Рет қаралды 74,879
Follow the code ( just control + C and control + V):
Sub RedimensionarImagens()
Dim ishp As InlineShape
For Each ishp In ActiveDocument.InlineShapes
ishp.LockAspectRatio = msoFalse
ishp.Width = 5
ishp.Height = 150
Next ishp
For Each oILShp In ActiveDocument.InlineShapes
oILShp.Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next
End Sub