filmov
tv
Como alterar todas as imagens no Word de uma só vez (Tamanho e Alinhamento)
![preview_player](https://i.ytimg.com/vi/KErO9CUPEEA/sddefault.jpg)
Показать описание
Pessoal, vou colocar aqui os códigos do VBA, tanto para você quiser alterar o tamanho e caso você queira alterar o tamanho e o alinhamento.
É só selecionar o código, dar control + C e dar control + V na página em branco do "ThisDocument" no VBA e fazer os ajustes nos valores e/ou no alinhamento.
1) Caso você queira apenas REDIMENSIONAR:
Sub RedimensionarImagens()
Dim ishp As InlineShape
For Each ishp In ActiveDocument.InlineShapes
ishp.LockAspectRatio = msoFalse
ishp.Width = 5
ishp.Height = 150
Next ishp
End Sub
2 ) Caso você queira REDIMENSIONAR e ALINHAR:
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
É só selecionar o código, dar control + C e dar control + V na página em branco do "ThisDocument" no VBA e fazer os ajustes nos valores e/ou no alinhamento.
1) Caso você queira apenas REDIMENSIONAR:
Sub RedimensionarImagens()
Dim ishp As InlineShape
For Each ishp In ActiveDocument.InlineShapes
ishp.LockAspectRatio = msoFalse
ishp.Width = 5
ishp.Height = 150
Next ishp
End Sub
2 ) Caso você queira REDIMENSIONAR e ALINHAR:
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
Комментарии