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