VBA Windows プログラミング

[VBA] ワードの文章の中のすべての図形をまとめて変更する方法ワードVBA ~ Selection.WholeStory.InlineShapes

ワードの文章の中のすべての図形をまとめて変更する方法。

幅を変更すると、同じ比率で高さも変更されます。



幅(w) = x  * 2.835
x cm にしたい場合は、2.835を掛けるとポイント単位になります。

Sub 文書内の図形の幅をすべて変更する()
    w = 74 * 2.835
    Selection.WholeStory
    For Each shp In Selection.InlineShapes
         r = w / shp.Width
         shp.Width = w
         ' shp.Height = shp.Height * r
    Next
End Sub