同じ形状の図形の線幅をまとめて変更するPowerPointマクロ

対象：PowerPoint2007, PowerPoint2010, PowerPoint2013

PowerPointで資料を作成しているときに、一つのプレゼンテーションファイルの中の、同じ形をした図形の、線の幅・太さを、まとめて変更したいということがありました。

具体的には、一つのスライドの中に「四角形吹き出し」図形が、

たくさん存在していて、その線の太さを一気に「0.5pt」に変更したい、

同じ形状の図形の線幅をまとめて変更するPowerPointマクロ

という場面があったのです。

一つ一つ手作業で行うとなると、なかなか面倒です。

［スポンサードリンク］

同じ形状の図形の線幅をまとめて変更するサンプルマクロ

その際に作ったPowerPointマクロをご紹介しておきます。

Sub 四角形吹き出しの線幅を変更する()

　Dim shp As Shape

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

　　If shp.AutoShapeType = _
　　msoShapeRectangularCallout Then
　　　shp.Line.Weight = 0.5
　　End If
　　
　Next shp

End Sub

上記のマクロを実行すると、アクティブなスライドの「四角形吹き出し」の線幅が「0.5pt」に変更されます。

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

そのShapeの形が四角形吹き出し・msoShapeRectangularCalloutだったら、
　　If shp.AutoShapeType = _
　　msoShapeRectangularCallout Then

線の太さ・幅を0.5に設定しています。
　　　shp.Line.Weight = 0.5

図形の形状を判定している、
　　If shp.AutoShapeType = _
　　msoShapeRectangularCallout Then
の部分の定数・msoShapeRectangularCalloutを変更すれば、もちろん他の形状の図形でも同様にまとめて書式変更することができます。

関連語句

VBA, Visual Basic for Applications

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

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

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

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

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

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

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

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

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

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

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

3年前(2021年4月)の
人気記事

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