Word で画像のサイズを大きいものだけ均一にして中央揃えするマクロ

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

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

Sub SizeChange()

    '画像をmmで指定する場合のポイントへの変換
    Const cPoint As Single = 0.3528
    '変更したいmmを指定
    Const w As Integer = 115

    'すべてのインラインシェイプを対象
    Dim shp As InlineShape
    For Each shp In ActiveDocument.InlineShapes
        
        '指定より大きかったら指定mmまで縮小
        If shp.Width > w / cPoint Then
            shp.LockAspectRatio = msoTrue
            shp.Width = w / cPoint
        End If
        
        '中央揃えに
        shp.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        
    Next
    
End Sub

文中の大きい画像を幅115mm に縮小して中央揃えにするマクロ