代替テキストを一括削除するPowerPointマクロ

対象：PowerPoint2007, PowerPoint2010, PowerPoint2013

「power point 2010 代替テキスト削除 vba」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

PowerPointでは、図形や画像などに、［代替テキスト］を設定することができます。

PowerPoint 2013なら下図のように、［図形の書式設定］作業ウィドウなどから、

PowerPoint 2010なら下図のように、［図形の書式設定］などの［代替テキスト］タブから。

代替テキストを一括削除するPowerPointマクロ

［スポンサードリンク］

「power point 2010 代替テキスト削除 vba」
という検索は、この［代替テキスト］を削除するVBA（Visual Basic for Applications）のコード・マクロを探している方による検索でしょう。

実務で使えそうな代替テキストを一括する削除するPowerPointマクロを2つご紹介しておきます。

アクティブスライドの代替テキストを一括削除するサンプルマクロ

以下のマクロで、アクティブなスライド上の図形などに設定されている［代替テキスト］をまとめて削除することができます。

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

　Dim shp As Shape

　For Each shp In _
　ActiveWindow.Selection.SlideRange.Shapes
　　
　　With shp
　　　.AlternativeText = ""
　　　.Title = ""
　　End With
　
　Next shp

End Sub

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

代替テキストの説明とタイトルに空白文字列を指定することで削除しています。
　　With shp
　　　.AlternativeText = ""
　　　.Title = ""

以下のマクロで、アクティブなプレゼンテーション上の図形などに設定されている［代替テキスト］をまとめて削除することができます。

Sub アクティブプレゼンテーションの代替テキストを削除する()

　Dim sld As Slide
　Dim shp As Shape

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

　　　With shp
　　　　.AlternativeText = ""
　　　　.Title = ""
　　　End With

　　Next shp
　Next sld

End Sub

アクティブなプレゼンテーション上の、全Slideにループを回して、
　For Each sld In ActivePresentation.Slides

各Slideオブジェクト内に配置されている全Shapeにループを回して、
　　For Each shp In sld.Shapes

代替テキストの説明とタイトルを削除しています。
　　　With shp
　　　　.AlternativeText = ""
　　　　.Title = ""

最終更新日時：2019-10-16 05:49

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

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