Word2007 図の属性一括変更（行内->四角)

質問

Word2007 で複数のページにわたり挿入された
約２００の図（属性は行内）があります。
これらの属性を行内から四角に変更し、
右揃えにしたいのです。
VBAを利用した方法を教えてください。

回答No.1

DreamyCat

Dim shp As Shape
Dim ilshp As InlineShape
'
' MsgBox ActiveDocument.Shapes.Count
' MsgBox ActiveDocument.InlineShapes.Count

For Each ilshp In ActiveDocument.InlineShapes
ilshp.ConvertToShape
Next
'
　 For Each shp In ActiveDocument.Shapes
'shpの位置を計算して右端にそろえる
　　　　'答に近いヒントを書きます。あとは調べて試行すればわかると思います。
　　　　' pagesetup.width
Next

お礼

ご回答いただき、有難うございました。
私は、VBは素人で、コードが書いてあっても、作っていても、
内容を理解しておらず、他の人のコードなどを見て、
試行錯誤のみでやっているだけなのですが、
回答が寄せられるまでに、他の人のコードをいろいろ調べて

Sub SeikeiFigs()
Dim ishape As Object
For Each ishape In ActiveDocument.InlineShapes
ishape.ConvertToShape
MyPic = ActiveDocument.Shapes.Count
ActiveDocument.Shapes(MyPic).Select
WordBasic.AlignRight
Selection.ShapeRange.WrapFormat.Type = 0
Next ishape
End Sub

までは到達したのですが、
変換後にページの境界に位置することになる図が、前のページの先頭に
配置されてしまったりで、別の面でこまっています。

いただいたご回答の、
>> 'shpの位置を計算して右端にそろえる
>> 　　　　'答に近いヒントを書きます。あとは調べて試行すればわかると思います。
>> 　　　　' pagesetup.width
>> Next
あたりをもう少し調べて、がんばってみます。
教えていただき有難うございました。