Redimensionamento de imagens (aumente o tamanho da captura de tela) na palavra microsoft automaticamente

Question

Eu preciso redimensionar (aumentar o tamanho) as várias fotos em documentos do Word em um único clique.

eu tenho uma macro comigo. A seguir é o um ..

Sub ResizePics()
 Dim shp As Word.Shape
 Dim ishp As Word.InlineShape
 If Word.Selection.Type <> wdSelectionInlineShape And _
 Word.Selection.Type <> wdSelectionShape Then
 Exit Sub
 End If
 If Word.Selection.Type = wdSelectionInlineShape Then
 Set ishp = Word.Selection.Range.InlineShapes(1)
 ishp.LockAspectRatio = False
 ishp.Height = InchesToPoints(1.78)
 ishp.Width = InchesToPoints(3.17)
 Else
 If Word.Selection.Type = wdSelectionShape Then
 Set shp = Word.Selection.ShapeRange(1)
 shp.LockAspectRatio = False
 shp.Height = InchesToPoints(1.78)
 shp.Width = InchesToPoints(3.17)
 End If
 End If
 End Sub

mas a macro acima está funcionando apenas para uma captura de tela. Se quiser redimensionar todas as imagens selecionadas, é necessário alguma modificação.

Por favor, ajude-me a modificar a macro.

    

Answer 1

Eu vou dar uma olhada neste tutorial e eu escrevi isso código:

 Sub ResizePics()
 Dim shp As Word.Shape
 Dim ishp As Word.InlineShape

For Each ishp In ActiveDocument.InlineShapes
 ishp.LockAspectRatio = False
 ishp.Height = InchesToPoints(1.78)
 ishp.Width = InchesToPoints(3.17)
Next ishp

For Each shp In ActiveDocument.Shapes
 shp.LockAspectRatio = False
 shp.Height = InchesToPoints(1.78)
 shp.Width = InchesToPoints(3.17)
Next shp
 End Sub

eu não sou programador, então é só tentar :)