In diesem Beispiel werden in myDocument alle Bilder und OLE-Objekte auf 175 Prozent ihrer ursprünglichen Höhe und Breite skaliert. Alle anderen Formen werden auf 175 Prozent ihrer aktuellen Höhe und Breite skaliert.
Set myDocument = Worksheets(1) For Each s In myDocument.Shapes Select Case s.Type Case msoEmbeddedOLEObject, _ msoLinkedOLEObject, _ msoOLEControlObject, _ msoLinkedPicture, msoPicture s.ScaleHeight 1.75, True s.ScaleWidth 1.75, True Case Else s.ScaleHeight 1.75, False s.ScaleWidth 1.75, False End Select Next