Redimensionare imagini

Sub fotoResize()

' fotoresize Macro

' Redimesionarea tuturor imaginilor din document, 

' fără a păstra proporția între lungime și lățime

' Aici, dimensiunile sunt trecute în pixeli

   Dim i As Long

    With ActiveDocument

        For i = 1 To .InlineShapes.Count

            With .InlineShapes(i)

                .LockAspectRatio = msoFalse

                .Height = 198.45

                .Width = 130.45

            End With

        Next i

     End With

End Sub