図形のテキストの文字あふれを解消する

テキストボックスなどの図形では、中のテキストがあふれて隠れていることがあります。一見して気づきにくいこともあるので、目視で確実に検出するのは困難です。

そうした文字あふれ(オーバーフロー)図形を一括して検出したり対策したりするマクロを紹介します。

図形中のテキストの文字あふれ対策マクロ

Sub 図形のテキストオーバーフローを検出()
    f_chkOverFlow ActiveDocument.Shapes
End Sub

Private Sub f_chkOverFlow(ITMS As Object)

    Dim oShp As Shape
    
    For Each oShp In ITMS
        If oShp.Type = msoGroup Then
            f_chkOverFlow oShp.GroupItems
        Else
            If oShp.TextFrame.Overflowing Then
                'オーバーフロー図形の処理
                oShp.TextFrame.AutoSize = True
                'oShp.Name = "_OVERFLOW" & oShp.Name
            End If
        End If
    Next oShp    
End Sub

グループ化された図形に対応するため、再帰処理を使っています。再帰処理については以下のトピックを参照してください。