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

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)