PowerPoint で空のテキストボックスを削除する

Sub RemoveEmptyTextBoxes()
    Dim SlideObj As Slide
    Dim ShapeObj As Shape
    Dim ShapeIndex As Integer
    For Each SlideObj In ActivePresentation.Slides
        For ShapeIndex = SlideObj.Shapes.Count To 1 Step -1
            Set ShapeObj = SlideObj.Shapes(ShapeIndex)
            If ShapeObj.Type = msoTextBox Then
                If Trim(ShapeObj.TextFrame.TextRange.Text) = "" Then
                    ShapeObj.Delete
                End If
            End If
        Next ShapeIndex
    Next SlideObj
End Sub

Sub RemoveEmptyTextBoxes()

Dim SlideObj As Slide

Dim ShapeObj As Shape

Dim ShapeIndex As Integer

For Each SlideObj In ActivePresentation.Slides

For ShapeIndex = SlideObj.Shapes.Count To 1 Step -1

Set ShapeObj = SlideObj.Shapes(ShapeIndex)

If ShapeObj.Type = msoTextBox Then

If Trim(ShapeObj.TextFrame.TextRange.Text) = "" Then

ShapeObj.Delete

End If

Next ShapeIndex

Next SlideObj

End Sub

このコードを実行すると、すべてのスライドに対して処理がループして実行され、テキストを含まないすべてのテキストボックスが削除されます。カウント変数の値は、1 つずつ増えるのではなく減っていきます。コードでオブジェクトを 1 つ削除するたびにコレクションからオブジェクトが削除されるので、カウントが減ります

PowerPoint で空のテキストボックスを削除する

いいね:

コメント

共有:

いいね:

コメント