Word Docのすべての画像にスタイルを適用するためのVBA

Question

VBAを使用して、すべての画像にスタイルを適用すること、または少なくともすべての画像に細い境界を与えることは可能ですか？

Answer 1

次は機能するはずです、

Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
  pic.Borders.OutsideLineStyle = wdLineStyleSingle
  pic.Borders.OutsideLineWidth = wdLineWidth050pt
Next

.

Answer 2

イメージにスタイルを適用したい場合は、このマクロを使用します。

Sub set_image_to_figure_style()
  Dim pic As InlineShape
  For Each pic In ActiveDocument.InlineShapes
    pic.Select
    Selection.Style = ActiveDocument.Styles("Figure")
  Next
End Sub

.