Word: redimensionar imagem por porcentagem - macro

Question

Eu rotineiramente colo muitas capturas de tela no Microsoft Word 2007 e depois tenho que redimensioná-las manualmente para cerca de 75%, o que se torna muito tedioso.

As capturas de tela são de tamanhos diferentes.

Eu tentei criar uma macro para isso, mas só posso escrever uma macro que redimensione uma imagem selecionada para dimensões específicas. E não consigo fazer com que o gravador de macro reconheça o redimensionamento manual na janela do documento ou use a caixa de diálogo Tamanho.

É possível escrever uma macro que redimensionará uma imagem selecionada para 75% do tamanho atual?

Esta questão é semelhante à minha, mas a exigência do usuário é redimensione todas as suas imagens para o mesmo tamanho. Preciso redimensionar imagens que tenham altura / largura arbitrárias.

Também estou aberto a uma técnica que colará imagens em um tamanho menor para começar.

    

Answer 1

Copie este código para um módulo no Editor do VBA (Alt + F11) para o seu documento. Se já não houver um módulo, você pode optar por adicionar um no menu de inserção.

    Sub PicResize()
     Dim PercentSize As Integer

     PercentSize = 75

     If Selection.InlineShapes.Count > 0 Then
         Selection.InlineShapes(1).ScaleHeight = PercentSize
         Selection.InlineShapes(1).ScaleWidth = PercentSize
     Else
         Selection.ShapeRange.ScaleHeight Factor:=(PercentSize / 100), _
           RelativeToOriginalSize:=msoCTrue
         Selection.ShapeRange.ScaleWidth Factor:=(PercentSize / 100), _
           RelativeToOriginalSize:=msoCTrue
     End If
 End Sub

Para executar uma macro, pressione Alt + F8, selecione PicResize na lista de macros e clique em EXECUTAR. Você também pode atribuí-lo a um botão em um menu, se quiser apenas clicar a cada vez para executar a macro.