텍스트 상자의 글꼴 크기 변경

이러한 텍스트 상자는 ChartObjects. 따라서 ChartObjects대신 루프를해야 합니다. 그런 다음 Shapes컬렉션을 반복 하고 적절한 TextBox글꼴 을 만날 때만 글꼴을 변경해야합니다. 차트를 선택하고 도형을 삽입하여 포함 된 텍스트 상자를 차트에 삽입 할 수 있습니다. 그때부터 이러한 모양은 차트와 함께 이동합니다.

예를 들면 :

Sub FindTextBoxes1()

    Dim c As ChartObject
    Dim s As Shape

    For Each c In ActiveSheet.ChartObjects
        For Each s In c.Chart.Shapes
            If s.Type = msoTextBox Then
                s.TextFrame2.TextRange.Font.Size = 30
            End If
        Next s
    Next c

End Sub

이 매크로가 작동하기를 원하는 위치를 더 잘 가리 키기 위해 Workbook및 Worksheet변수를 지정하십시오 (추악한 대신 ActiveSheet)

여기 에서 영감을

내장 된 텍스트 상자 당신이 모양 구별하기 좋은 반면 않습니다 당신이 사람에서 변경할 수 없습니다 변경할을, 당신은 또한 변경할 수 있도록 실제로 먼저 텍스트 상자를 선택할 필요가 없습니다 귀하의 Font.Size경우에 당신은 온통 반복합니다 포함되지 않은 텍스트 상자. 간단히 참조 Characters내 TextRange. 예를 들면 :

Sub FindTextBoxes2()

    Dim s As Shape

    For Each s In ActiveSheet.Shapes
        If s.Type = msoTextBox Then
             s.TextFrame2.TextRange.Characters.Font.Size = 30
        End If
    Next

End Sub