同じ形状の図形の線幅をまとめて変更する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の使い方などを紹介し続けています。
日経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オブジェクト」の記事一覧