ich möchte mit dem Makro die Größen von Shapes einstellen. Nur leider kommt immer eine Fehlermeldung. Wer kann helfen? Danke.
Sub Graphikgröße()
For i = 1 To ActiveSheet.Shapes.Count
n = Left(ActiveSheet.Shapes(i).Name, 7)
If n = "Picture" Then
With ActiveSheet.Shapes(i)
.ShapeRange.LockAspectRatio = msoTrue
.ShapeRange.Height = 221.25
.ShapeRange.Width = 391.5
End With
End If
Next
End Sub
Matthias