Grafiken auf bestimmte Höhe ändern
13.02.2021 21:43:14
Sergej
ich habe in aktivem Arbeitsblatt viele Grafiken, bei den die Höhe größer 8 cm ist.
Wie kann ich bitte per VBA im aktivem Arbeitsblatt alle Grafiken die Höhe größer 8 cm haben, auf Höhe 7 cm ändern?
Hier im Beispiel funktioniert es über vorherigem Auswahl und ohne Höhenüberprüfung:
Sub BildgroesseAnpassen()
If TypeName(Selection) = "Picture" Then
With Selection.ShapeRange
.LockAspectRatio = True
.Height = Application.CentimetersToPoints(7#)
End With
End If
End Sub
Sergej
Anzeige