テスト証跡を作成する際、キャプチャした画像をExcelに貼り付けるのですが、枠線がなくて見づらいことがあります。毎回手動で枠線を設定するのが面倒なのでマクロを作りました。

Public Sub アクティブブックの画像すべてに枠線をつける()
    Dim ws As Worksheet
    Dim shp As Shape
    
    For Each ws In Worksheets  '全シートループ
        For Each shp In ws.Shapes  '全図形ループ
            If shp.Type = msoPicture Then  '図形タイプが画像のもののみ処理
                shp.Line.ForeColor.SchemeColor = vbBlack  '枠線の色
                shp.Line.Weight = 0.5  '枠線の太さ
                shp.Line.Style = msoLineSingle 
                shp.Line.DashStyle = msoLineSolid
            End If
        Next
    Next
End Sub