Bild an Zellhöhe anpassen
21.01.2020 10:16:25
Kisska
ich füge ein Bild mit Excel Bordmitteln in einer beliebige Zelle ein und möchte, dass das Bild an die Zellhöhe angepasst wird.
Mein Code:
Sub BildgroesseAnpassen()
Dim Grafik As Shape
For Each Grafik In ActiveSheet.Shapes
With Grafik
.LockAspectRatio = msoTrue ' Seitenverhältnis sperren
.Height = .TopLeftCell.Height
End With
Next
End Sub
Nach Beenden wird das Bild trotz des Fehlers wie gewünscht angepasst.
Kann mir bitte jemand sagen, warum der Fehler entsteht bzw. wie man diesen beheben kann?
Viele Grüße
Kisska