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型の変数を使って判別を行っています。

関連語句
VBA, Visual Basic for Applications
▼『いちばんやさしい PowerPoint VBA の教本』は、一番易しいパワポマクロ入門書、というわけではありませんので、ご注意ください。
いちばんやさしいPowerPoint VBAの教本
［スポンサードリンク］

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

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓


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

検索


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

.