Home » パワーポイントマクロ・PowerPoint VBAの使い方 » 画像 » 画像だけをすべて選択するPowerPointマクロ

画像だけをすべて選択するPowerPointマクロ

対象: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

サンプルマクロの解説

画像だけが選択された状態にするために、まずは、現在の選択状態を解除しておきます。
 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マクロ

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

.