Home » パワーポイントマクロ・PowerPoint VBAの使い方 » Shapesコレクション・Shapeオブジェクト » グループ化されている図形をすべて選択するPowerPointマクロ

グループ化されている図形をすべて選択するPowerPointマクロ

対象：PowerPoint2003, PowerPoint2007, PowerPoint2010, PowerPoint2013

図形を扱うマクロを作りはじめると、図形がグループ化されている場合に、考えなければならないことが増えます。

そのための参考になりそうなマクロを作成してみました。

［スポンサードリンク］

グループ化されている図形をすべて選択するサンプルマクロ

アクティブなスライド上の、グループ化されている図形をすべて選択するPowerPointマクロです。

Sub アクティブスライド上のグループ化図形をすべて選択する()

　Dim shp As Shape
　Dim has_grp As Boolean　''グループ化図形が存在することを示すフラグ
　
　has_grp = False

　For Each shp _
　In ActiveWindow.Selection.SlideRange.Shapes
　　If shp.Type = msoGroup Then
　　　shp.Select msoFalse
　　　has_grp = True
　　End If
　Next shp

　If has_grp = False Then
　　MsgBox "アクティブスライドにグループ化されている図形は存在しません。"
　End If

End Sub

サンプルマクロの解説

アクティブスライドの全シェイプに対しFor Each～Nextループを回して
　For Each shp _
　In ActiveWindow.Selection.SlideRange.Shapes

グループ化された図形だった場合に
　　If shp.Type = msoGroup Then

その図形を選択しています。
　　　shp.Select msoFalse

Shape.Selectメソッドで選択するときに、既に選択されている図形の選択が解除されないよう、引数にmsoFalseを指定しています。

グループ化されている図形が存在しないとき、最後にメッセージを表示するため、has_grpというboolean型の変数を使って判別を行っています。

グループ化された図形・オートシェイプをグループ解除するPowerPointマクロ

関連語句

VBA, Visual Basic for Applications

▼『いちばんやさしい PowerPoint VBA の教本』は、一番易しいパワポマクロ入門書、というわけではありませんので、ご注意ください。

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

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

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

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

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

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

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

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

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

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

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

1位:Windows 10で手書き入力するIMEパッドを表示するには
2位:IF関数で○○以上××以下という条件を指定する
3位:右から（後から・末尾から）n文字を削除したい
4位:IF関数で空白なら空白にする
5位:COUNTIF関数で「○○以上」「○○以下」の指定
6位:IF関数で空白でない場合・空白でなければの書き方
7位:左から（前から・先頭から）n文字削除する方法

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

グループ化されている図形をすべて選択するPowerPointマクロ

グループ化されている図形をすべて選択するサンプルマクロ

サンプルマクロの解説

検索