対象：PowerPoint2007, PowerPoint2010, PowerPoint2013
「vba パワーポイント ピクチャ すべて選択」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがあることに気づきました。
ピクチャ（画像）だけを、すべて選択するPowerPointのマクロ・VBA（Visual Basic for Applications）のコードを探している方による検索です。
［スポンサードリンク］
アクティブスライドの画像だけを選択するサンプルマクロ
以下のようなマクロで、アクティブなスライド上にある、画像だけをすべて選択することができます。
Sub アクティブスライドの画像だけを選択する()
Dim shp As Shape With ActiveWindow.Selection
.Unselect
For Each shp In .SlideRange.Shapes
If shp.Type = msoPicture Then
shp.Select Replace:=msoFalse
End If
Next shp
End With
End Sub
Dim shp As Shape With ActiveWindow.Selection
.Unselect
For Each shp In .SlideRange.Shapes
If shp.Type = msoPicture Then
shp.Select Replace:=msoFalse
End If
Next shp
End With
End Sub
サンプルマクロの解説
画像だけが選択された状態にするために、まずは、現在の選択状態を解除しておきます。
With ActiveWindow.Selection
.Unselect
その後、アクティブスライド上の全Shapeに対してループを回して、
For Each shp In .SlideRange.Shapes
その図形が画像だったときに、
If shp.Type = msoPicture Then
その図形（画像）を選択しています。
shp.Select Replace:=msoFalse
ShapeオブジェクトのSelectメソッドの引数・ReplaceにmsoFalseを指定することで、既に選択されている図形の選択を解除しないで、追加で選択するようにしています。
［スポンサードリンク］
Home » パワーポイントマクロ・PowerPoint VBAの使い方 » 画像 » 画像だけをすべて選択するPowerPointマクロ
