VBA per applicare lo stile a tutte le immagini in Word DOC
Domanda
È possibile applicare uno stile o almeno dare un bordo sottile a tutte le immagini in un documento Word 2013 utilizzando VBA?
Soluzione
Quanto segue dovrebbe funzionare,
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
pic.Borders.OutsideLineStyle = wdLineStyleSingle
pic.Borders.OutsideLineWidth = wdLineWidth050pt
Next
. Altri suggerimenti
Se si desidera applicare uno stile alle immagini utilizzare questa 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
. Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow