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