424 Objekt erforderlich
14.02.2021 17:02:17
Sergej
was stimmt bitte in meinem Code nicht?
Ich bekomme immer die Fehlermeldung: 424 Objekt erforderlich.
Ich vermute es liegt an dem Abschnitt nach dem Einfügen vom Bild.
Eingefügtes Bild soll links oben in der Ecke verschoben werden, den Name "Logo" und Bildgröße von 7 cm erhalten
If .Name = "Eingabe" Then
For Each objShp In .Shapes
If objShp.Name Like "CommandButton*" Then
objShp.Delete
ElseIf objShp.Name = "Button99" Then
objShp.Delete
ElseIf objShp.Left > 200 And objShp.Height > Application.CentimetersToPoints(8) _
Then
objShp.LockAspectRatio = True
objShp.Height = Application.CentimetersToPoints(7)
ElseIf objShp.Left objShp.LockAspectRatio = True
objShp.Name = "Logo"
objShp.Height = Application.CentimetersToPoints(7)
objShp.Top = 0
objShp.Left = 0
End If
Next
Beste Grüße,Sergej
Anzeige