読者です 読者をやめる 読者になる 読者になる

Xamarin 日本語情報

Xamarin(ザマリン) の代理店だったエクセルソフト田淵のブログです。主に Xamarin に関するエントリーをアップしていきます。(なるべく正しい有益な情報を掲載していきたいと考えていますが、このブログのエントリーは所属組織の公式見解ではありませんのでご注意ください)

Word で画像のサイズを均一にするマクロのメモ

こんにちは。エクセルソフトの田淵です。

絶対忘れるのでメモっておきます。

Sub SizeChange()
    Const cPoint As Single = 0.3528
    Const w as Integer = 115
    Dim i As Integer
    
    Selection.WholeStory    '文章全体を選択
    
    With Selection
        For i = 1 To .InlineShapes.Count    '文章中に存在する全ての図に対して実行
            If .InlineShapes(i).Width > w/ cPoint Then
                .InlineShapes(i).LockAspectRatio = msoTrue
                .InlineShapes(i).Width = w/ cPoint
            End If
        Next
    End With
End Sub

文中の画像全部を 幅115mm に統一するマクロ。