こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

Dim shp As InlineShape

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

End Sub

投稿日時 - 2015-01-08 14:06:04

QNo.8884285

困ってます

質問者が選んだベストアンサー

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

投稿日時 - 2015-01-08 15:02:25

お礼

enunokokoro 様

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

投稿日時 - 2015-01-09 08:53:48

このQ&Aは役に立ちましたか?

13人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問