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

[スポンサードリンク]

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

「Shapesコレクション・Shapeオブジェクト」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.