Ron은 워크 시트의 항목을 강조 표시하기 위해 종종 Shapes (실제로는 타원형)를 사용합니다. 그는 모양을 추가하고 크기를 지정한 다음 모양 색상을 빨간색으로 변경하고 채우기 색상을 삭제하여 실제로 강조하려는 내용을 가리지 않도록해야합니다. 그는 이러한 단계를 매우 자주 수행하며, 매크로를 사용하여 속도를 높일 수 있다는 데 의심의 여지가 없지만 어떻게해야할지 모르겠습니다.

매크로 기반 솔루션을 살펴보기 전에 매크로가 필요하지 않은 솔루션을 고려할 수 있습니다. 예를 들어, 타원 (원하는 형식)을 만든 다음 마우스 오른쪽 버튼으로 클릭하면 기본 모양으로 설정할 수 있습니다. 이렇게하면 향후 통합 문서에 셰이프를 빠르게 추가 할 수 있습니다.

크기와 색상이 다른 셰이프가 여러 개있는 경우 해당 셰이프를 다른 통합 문서에 복사하기 만하면됩니다. 해당 통합 문서는 이러한 셰이프의 “보유자”가 될 수 있으므로 필요에 따라 다른 통합 문서로 다시 복사 할 수 있습니다. 이것은 수년 동안 사용할 수있는 표준 모양의 갤러리를 만드는 좋은 방법입니다.

매크로가 가장 좋은 방법이라고 결정한 경우 매크로를 사용하여 타원을 추가하는 것이 비교적 쉽습니다. 여기 아주 간단한 것이 있습니다 :

Sub Custom_Oval1()

ActiveSheet.Shapes.AddShape(msoShapeOval, 150, 150, _       120, 60).Select     Selection.ShapeRange.Fill.Visible = msoFalse     With Selection.ShapeRange.Line         .DashStyle = msoLineSolid         .Weight = 3         .Visible = msoTrue         .ForeColor.RGB = RGB(255, 0, 0)

.Transparency = 0     End With End Sub

이렇게하면 워크 시트의 단일 위치에 원하는 색상, 채우기 및 투명도가있는 표준 타원이 삽입됩니다. 완료되면 모양이 여전히 선택되고 타원을 원하는 위치로 끌어서 필요할 수있는 크기를 조정할 수 있습니다.

타원을 원하는 위치에 더 가깝게 만들려면 워크 시트의 활성 셀을보고 셀의 높이와 너비에 맞는 크기로 해당 셀 주위에 타원을 배치하는 변형을 사용할 수 있습니다.

Sub Custom_Oval2()

Dim lLeft As Long     Dim lTop As Long     Dim lWidth As Long     Dim lHeight As Long

lLeft = ActiveCell.Left - 5     lWidth = ActiveCell.Width + 5     lTop = ActiveCell.Top     lHeight = ActiveCell.Height + 5

ActiveSheet.Shapes.AddShape(msoShapeOval, lLeft, _       lTop, lWidth, lHeight).Select     Selection.ShapeRange.Fill.Visible = msoFalse     With Selection.ShapeRange.Line         .DashStyle = msoLineSolid         .Weight = 3         .Visible = msoTrue         .ForeColor.RGB = RGB(255, 0, 0)

.Transparency = 0     End With End Sub

매크로의이 변형은 ActiveCell 개체의 위치에 따라 모양의 위치를 ​​결정합니다. 원하는 경우 ActiveCell의 모든 항목을 Selection으로 변경할 수 있습니다. 이렇게하면 타원의 크기가 단순히 활성 셀이 아닌 선택 항목을 둘러싸도록 조정할 수 있습니다. 또한 타원에 더 잘 맞도록 왼쪽, 너비 및 높이 값이 약간 조정됩니다. 원하는 모양을 얻기 위해 다른 조정 값으로 플레이 할 수 있습니다.

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (4631)은 Microsoft Excel 2007, 2010, 2013 및 2016에 적용됩니다.