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
Beste Grüße,Sergej