Home » パワーポイントマクロ・PowerPoint VBAの使い方 » Shape・図形 » テキストボックスを削除するPowerPointマクロ

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

対象:PowerPoint2007, PowerPoint2010, PowerPoint2013

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

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

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

[スポンサードリンク]

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

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


Sub アクティブスライドのテキストボックスを削除する()

 Dim shp As Shape

 For Each shp In _
 ActiveWindow.Selection.SlideRange.Shapes

  If shp.Type = msoTextBox Then
   shp.Delete
  End If

 Next shp

End Sub

アクティブなスライドのすべてのShapeに対してループを回し、
 For Each shp In _
 ActiveWindow.Selection.SlideRange.Shapes

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

そのShapeを削除しています。
   shp.Delete

選択範囲のテキストボックスを削除するサンプルマクロ

以下のようなマクロで、選択範囲内のテキストボックスをすべて削除できます。


Sub 選択範囲内のテキストボックスを削除する()

 Dim shp As Shape

 With ActiveWindow.Selection

  If .Type <> ppSelectionShapes Then Exit Sub

  For Each shp In .ShapeRange

   If shp.Type = msoTextBox Then
    shp.Delete
   End If

  Next shp

 End With

End Sub

選択されているShapeに対してループを回して、
  For Each shp In .ShapeRange

テキストボックスだったときに、削除をしています。
   If shp.Type = msoTextBox Then
    shp.Delete

選択されているのがShapeでなかったときに実行時エラーが発生しないように、ループ処理に入る前に、Shapeが選択されていない場合はマクロを終了するようにしています。
 With ActiveWindow.Selection
  If .Type <> ppSelectionShapes Then Exit Sub

テキストボックスをすべて削除するサンプルマクロ

以下のようなマクロにすれば、アクティブなプレゼンテーションファイル上の全テキストボックスを削除できます。


Sub 全テキストボックスを削除する()

 Dim sld As Slide
 Dim shp As Shape

 For Each sld In ActivePresentation.Slides
  For Each shp In sld.Shapes

   If shp.Type = msoTextBox Then
    shp.Delete
   End If

  Next shp
 Next sld

End Sub

アクティブなプレゼンテーションファイルの全スライドにループを回して、
 For Each sld In ActivePresentation.Slides

各スライドの全Shapeにループを回して、
  For Each shp In sld.Shapes

テキストボックスだったら削除しています。
   If shp.Type = msoTextBox Then
    shp.Delete

[スポンサードリンク]

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » Shape・図形 » テキストボックスを削除するPowerPointマクロ

TrackBack:1

TrackBack URL
テキストボックスだけを選択するPowerPointマクロ from インストラクターのネタ帳
アクティブスライド上のテキストボックスだけを選択するPowerPoint(パワーポイント)マクロをご紹介しています。

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » Shape・図形 » テキストボックスを削除するPowerPointマクロ

「Shape・図形」の記事一覧

検索


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

.