VBA para aplicar estilo para todas as imagens no documento do Word
Pergunta
É possível aplicar um estilo ou, pelo menos, dar uma borda fina para todas as imagens em um documento do Word 2013 usando o VBA?
Solução
O seguinte deve funcionar,
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
pic.Borders.OutsideLineStyle = wdLineStyleSingle
pic.Borders.OutsideLineWidth = wdLineWidth050pt
Next
Outras dicas
Se você deseja aplicar um estilo para as imagens de usar essa 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
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow