Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
424 Objekt erforderlich
14.02.2021 17:02:17
Sergej
Hallo Leute,
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 424 Objekt erforderlich
14.02.2021 17:08:54
EtoPHG
Hallo Sergej,
Nein, am Einfügen liegt es nicht, sondern 2 Zeilen vorher löschst Du das Objekt objShp und darum ist es nachher nicht mehr vorhanden, aber eben erforderlich!
Gruess Hansueli
AW: 424 Objekt erforderlich
14.02.2021 17:12:35
Sergej
Hallo Hansueli,
was muss ich bitte ändern?
Mein Ziel ist es vorher existierendes Bild zu löschen, dann das neue Einfügen und dann oben in der Ecke verschieben, den Name "Logo" und Bildgröße von 7 cm einstellen.
Beste Grüße,
Sergej
Anzeige
AW: 424 Objekt erforderlich
14.02.2021 17:17:28
Nepumuk
Hallo Sergej,
dir ist schon klar dass du mit: Pictures.Insert nur eine Verknüpfung zu dem Bild einfügst. Auf einem anderen Rechner wird es daher nicht angezeigt.
Dim objPicture As Picture

Set objPicture = .Pictures.Insert("D:\Daten\ICON-rgb-512x512px.jpg")
With objPicture
    .ShapeRange.LockAspectRatio = True
    .Name = "Logo"
    .Height = Application.CentimetersToPoints(7)
    .Top = 0
    .Left = 0
End With

Gruß
Nepumuk
Anzeige
AW: 424 Objekt erforderlich
14.02.2021 17:22:40
Sergej
Hallo Nepumuk,
das war mir nicht klar - gut dass du es erwähnt hast :-)
Wie kann ich es bitte dauerhaft einfügen / einbetten?
Beste Grüße,
Sergej
AW: 424 Objekt erforderlich
14.02.2021 17:30:56
Nepumuk
Hallo Sergej,
so:
Set objShape = .Shapes.AddPicture(Filename:="D:\Daten\ICON-rgb-512x512px.jpg", _
    LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=-1, Height:=-1)

With objShape
    .LockAspectRatio = msoTrue
    .Height = Application.CentimetersToPoints(7)
    .Name = "Logo"
End With

Gruß
Nepumuk
Anzeige
AW: 424 Objekt erforderlich
14.02.2021 17:49:54
Sergej
Hallo Nepumuk,
vielen Dank. Es funktioniert perfekt.
Beste Grüße,
Sergej

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige