Excel에서 지정된 셀 값에 따라 도형 크기를 자동으로 변경하는 방법은 무엇입니까?

지정된 셀의 값에 따라 도형 크기를 자동으로 변경하려는 경우 이 문서가 도움이 될 수 있습니다.

VBA 코드를 사용하여 지정된 셀 값에 따라 도형 크기 자동 변경

VBA 코드를 사용하여 지정된 셀 값에 따라 도형 크기 자동 변경

다음 VBA 코드는 현재 워크시트에서 지정된 셀 값에 따라 특정 도형 크기를 변경하는 데 도움이 됩니다. 아래 단계를 따르세요.

1. 크기를 변경해야 하는 도형이 있는 시트 탭을 마우스 오른쪽 버튼으로 클릭한 다음, 마우스 오른쪽 버튼 메뉴에서 코드 보기(View Code)를 클릭합니다.

2. Microsoft Visual Basic for Applications 창에서 다음 VBA 코드를 복사하여 코드(Code) 창에 붙여넣습니다.

VBA 코드: Excel에서 지정된 셀 값에 따라 도형 크기 자동 변경

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Row = 2 And Target.Column = 1 Then
        Call SizeCircle("Oval 2", Val(Target.Value))
    End If
End Sub
Sub SizeCircle(Name As String, Diameter)
    Dim xCenterX As Single
    Dim xCenterY As Single
    Dim xCircle As Shape
    Dim xDiameter As Single
    On Error GoTo ExitSub
    xDiameter = Diameter
    If xDiameter > 10 Then xDiameter = 10
    If xDiameter < 1 Then xDiameter = 1
    Set xCircle = ActiveSheet.Shapes(Name)
    With xCircle
        xCenterX = .Left + (.Width / 2)
        xCenterY = .Top + (.Height / 2)
        .Width = Application.CentimetersToPoints(xDiameter)
        .Height = Application.CentimetersToPoints(xDiameter)
        .Left = xCenterX - (.Width / 2)
        .Top = xCenterY - (.Height / 2)
    End With
ExitSub:
End Sub

참고: 코드에서 “Oval 2”는 크기를 변경할 도형 이름입니다. 그리고 행 = 2, 열 = 1은 도형 “Oval 2”의 크기가 A2 셀의 값에 따라 변경됨을 의미합니다. 필요에 따라 이를 변경하세요.

다양한 셀 값에 따라 여러 도형의 크기를 자동으로 조정하려면 아래 VBA 코드를 적용하세요.

VBA 코드: Excel에서 다양한 지정된 셀 값에 따라 여러 도형 크기 자동 조정

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xAddress As String
    On Error Resume Next
    If Target.CountLarge = 1 Then
        xAddress = Target.Address(0, 0)
        If xAddress = "A1" Then
            Call SizeCircle("Oval 1", Val(Target.Value))
        ElseIf xAddress = "A2" Then
            Call SizeCircle("Smiley Face 3", Val(Target.Value))
        ElseIf xAddress = "A3" Then
            Call SizeCircle("Heart 2", Val(Target.Value))
        End If
    End If
End Sub

Sub SizeCircle(Name As String, Diameter)
    Dim xCenterX As Single
    Dim xCenterY As Single
    Dim xCircle As Shape
    Dim xDiameter As Single
    On Error GoTo ExitSub
    xDiameter = Diameter
    If xDiameter > 10 Then xDiameter = 10
    If xDiameter < 1 Then xDiameter = 1
    Set xCircle = ActiveSheet.Shapes(Name)
    With xCircle
        xCenterX = .Left + (.Width / 2)
        xCenterY = .Top + (.Height / 2)
        .Width = Application.CentimetersToPoints(xDiameter)
        .Height = Application.CentimetersToPoints(xDiameter)
        .Left = xCenterX - (.Width / 2)
        .Top = xCenterY - (.Height / 2)
    End With
ExitSub:
End Sub

참고:

3. Alt + Q 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 닫습니다.

이제부터 A2 셀의 값을 변경하면 Oval 2 도형의 크기가 자동으로 변경됩니다. 스크린샷 참조:

또는 A1, A2 및 A3 셀의 값을 변경하여 해당 도형인 “Oval 1”, “Smiley Face 3” 및 “Heart 3”의 크기를 자동으로 조정합니다. 스크린샷 참조:

참고: 셀 값이 10보다 클 경우 도형 크기는 더 이상 변경되지 않습니다.

관련 문서:

• Excel에서 특정 도형에 마우스 오버 팁을 추가하는 방법은 무엇입니까?
• Excel에서 투명한 배경색으로 도형을 채우는 방법은 무엇입니까?
• Excel에서 지정된 셀 값에 따라 특정 도형을 숨기거나 표시하는 방법은 무엇입니까?