Wordに貼った作業エビデンスのスクリーンショットを一括で割合指定したいときに使う自分用マクロ。

Option Explicit

Public Sub Resize()
    Const scalePercentage = 45
    Dim inShape As InlineShape
    For Each inShape In ActiveDocument.InlineShapes
        inShape.ScaleHeight = scalePercentage
        inShape.ScaleWidth = scalePercentage
    Next
End Sub