Xamarin 日本語情報

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

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

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

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

Sub SizeChange()

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

'すべてのインラインシェイプを対象
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 リンクページ | ブログ購読