VBA d'appliquer le style à toutes les images du mot doc

Question

est-il possible d'appliquer un style ou du moins donner une bordure mince à toutes les images d'un document Word 2013 à l'aide de VBA?

Answer 1

Les suivants doivent fonctionner,

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

Answer 2

Si vous souhaitez appliquer un style aux images, utilisez cette macro:

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