Word: Redimensionar imagem por porcentagem - macro

Eu rotineiramente colo muitas capturas de tela no Microsoft Word 2007 e, em seguida, 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?

Essa questão é semelhante ao meu, mas o requisito do usuário é redimensionar todas as suas imagens para o mesmo tamanho. Eu preciso redimensionar imagens que tenham uma altura arbitrária / largura.

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

Copie este código para um módulo no VBA Editor (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 essa 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.