Word VBA 表内の図を一括中央揃えにするマク

質問

Ｗｏｒｄの表に3,000個ほどの図を入れ、それぞれコメントを入れておりますが、図の位置が左揃えになったり、中央揃えになったり、右揃えになったりしています。これら図だけを一括して中央揃えにするマクロを作ろうとしています。　図のサイズを一括して変更するマクロは資料を参考にして出来ましたが、中央揃えにするマクロがどうしても出来ません。　参考にして作ったプログラムは以下の通りですが、コンパイルエラーになってしまいます。　四苦八苦しています。どなたかご指導お願いします。

Sub　図の一括中央揃え()
'
' 図の一括中央揃え
'
'

Dim shp As InlineShape

For Each shp In ActiveDocument.InlineShapes
shp.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next

End Sub

回答No.1

enunokokoro · ベストアンサー

InlineShapeのメンバーにParagraphFormatがないためです。
http://msdn.microsoft.com/ja-jp/library/office/ff840794(v=office.15).aspx

この場合、Rangeを追加してParagraphFormatを使えるようにします。

Sub　図の一括中央揃え()
'
' 図の一括中央揃え修正版
'
Dim shp As InlineShape

　For Each shp In ActiveDocument.InlineShapes
　shp.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
　Next

End Sub

お礼

enunokokoro 様

ありがとうございました。正しく変更できました。