Home » パワーポイントマクロ・PowerPoint VBAの使い方 » 画像 » 画像に枠線を設定するPowerPointマクロ

画像に枠線を設定するPowerPointマクロ

対象：PowerPoint2007, PowerPoint2010, PowerPoint2013, Windows版PowerPoint2016

「パワーポイントマクロ画像に枠線」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

VBA（Visual Basic for Applications）から、画像に枠線を設定するには、

どのようなコードを書けばいいのかを探している方による検索です。

［スポンサードリンク］

アクティブスライドの画像に枠線を設定するサンプルマクロ

以下のようなマクロで、アクティブなスライドの画像に、枠線を設定することができます。

Sub 画像に枠線を設定する_アクティブスライド()
　Dim shp As Shape
　For Each shp In ActiveWindow.Selection.SlideRange.Shapes
　　If shp.Type = msoPicture Then

　　　With shp.Line
　　　　.Visible = msoTrue
　　　　.Style = msoLineSingle
　　　　.DashStyle = msoLineSolid
　　　　.Weight = 5
　　　　.ForeColor.RGB = RGB(255, 0, 0)
　　　End With

　　End If
　Next
End Sub

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

Shapeが画像だったときに、
　　If shp.Type = msoPicture Then

LineFormatオブジェクトの各種プロパティを設定しています。
　　　With shp.Line
　　　　.Visible = msoTrue
　　　　.Style = msoLineSingle
　　　　.DashStyle = msoLineSolid
　　　　.Weight = 5
　　　　.ForeColor.RGB = RGB(255, 0, 0)

アクティブプレゼンテーションファイルの画像に枠線を設定するサンプルマクロ

以下のようなマクロにすれば、アクティブなプレゼンテーションファイルの画像に、枠線を設定することができます。

Sub 画像に枠線を設定する_アクティブプレゼンテーション()
　Dim sld As Slide
　For Each sld In ActivePresentation.Slides
　　Dim shp As Shape
　　For Each shp In sld.Shapes
　　　If shp.Type = msoPicture Then

　　　　With shp.Line
　　　　　.Visible = msoTrue
　　　　　.Style = msoLineSingle
　　　　　.DashStyle = msoLineSolid
　　　　　.Weight = 5
　　　　　.ForeColor.RGB = RGB(255, 0, 0)
　　　　End With

　　　End If
　　Next shp
　Next sld
End Sub

アクティブなプレゼンテーションファイルの全Slideに対してFor Each～Nextループを回して、
　For Each sld In ActivePresentation.Slides

各Slideの全Shapeに対してFor Each～Nextループを回して、
　　For Each shp In sld.Shapes

先の、アクティブスライドの画像に枠線を設定するマクロと同じ処理を行っています。
　　　If shp.Type = msoPicture Then
　　　　With shp.Line