VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

VBA-Begriff: Beispiel zur ScaleHeight-Methode

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