Xamarin 日本語情報

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

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 に縮小して中央揃えにするマクロ

エクセルソフト | ダウンロード | 学習用リソース | JXUG リンクページ | ブログ購読