Macro do Visual Basic no Word para redimensionar / centro / excluir todas as imagens
Eu encontrei uma macro online VBA que redimensiona todas as imagens em um documento do Word:
Sub ResizeAllImages()
''# make all images (both inline and floating)
''# 11 cm wide while preserving aspect ratio
Dim oShp As Shape
Dim oILShp As InlineShape
For Each oShp In ActiveDocument.Shapes
With oShp
.Height = AspectHt(.Width, .Height, _
CentimetersToPoints(11))
.Width = CentimetersToPoints(11)
End With
Next
For Each oILShp In ActiveDocument.InlineShapes
With oILShp
.Height = AspectHt(.Width, .Height, _
CentimetersToPoints(11))
.Width = CentimetersToPoints(11)
End With
Next
End Sub
Não consegui encontrar o nome de um método que eu pudesse usar para alinhar todas as imagens. Alguém sabe o que eu preciso adicionar e onde eu teria que adicioná-lo?
Por fim, gostaria de excluir imagens que considero pequenas demais. Como eu faria ... Se a largura da forma for menor que 5 e a altura da forma for menor que 5, exclua a forma.
Para facilitar a leitura de grandes quantidades de texto on-line, às vezes gosto de colar tudo na palavra e, em seguida, reorganizá-lo. Eu substituo cada período em branco, com uma linha manual de período, o que me dá uma nova linha para cada frase. Eu leio melhor quando é assim. Como estou colando tudo, os gráficos também aparecem, então gostaria de poder controlar o tamanho de todas as imagens e me livrar de qualquer imagem desnecessária.