Home » パワーポイントマクロ・PowerPoint VBAの使い方 » Shapesコレクション・Shapeオブジェクト » テキストボックスを削除するPowerPointマクロ

テキストボックスを削除するPowerPointマクロ

対象：PowerPoint2007, PowerPoint2010, PowerPoint2013

「powerpoint マクロテキストボックスを削除」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

テキストボックスを削除するPowerPointマクロ・VBA（Visual Basic for Applications）のコードを探している方による検索です。

いつものように、参考になりそうなマクロを作ってみました。

［スポンサードリンク］

アクティブスライドのテキストボックスを削除するサンプルマクロ

以下のようなマクロで、アクティブなスライドのテキストボックスをすべて削除できます。

Sub アクティブスライドのテキストボックスを削除する()
　With ActiveWindow.Selection.SlideRange.Shapes
　　Dim i As Long
　　For i = .Count To 1 Step -1
　　　If .Item(i).Type = msoTextBox Then
　　　　.Item(i).Delete
　　　End If
　　Next
　End With
End Sub

アクティブなスライドのすべてのShapeに対してループを回し、
　With ActiveWindow.Selection.SlideRange.Shapes
　　Dim i As Long
　　For i = .Count To 1 Step -1

ShapeオブジェクトのTypeプロパティをチェックして、テキストボックスだったときに、
　　　If .Item(i).Type = msoTextBox Then

そのShapeを削除しています。
　　　　.Item(i).Delete

最終更新日時：2020-02-21 19:56

▼『いちばんやさしい PowerPoint VBA の教本』は、一番易しいパワポマクロ入門書、というわけではありませんので、ご注意ください。