Generiertes Objekt gleich ändern

ich habe folgendes Problem: Bei dem Workbook Öffnen stelle ich ein Bild-Objekt her

ActiveSheet.OLEObject.Add "Forms.Image.1"

Das möchte ich gleich nach der Herstellung mit einem Bild verknüpfen, leider erlaubt mir das Excel es nicht, da er das neuen Objekt noch nicht als solches erkennt.

Tabelle1.Image1.Picture = LoadPicture("C:\Picture.Jpg")

Das hier gibt Fehler, wenn es gleich nach der Herstellung des Objekts folgt. Und gibt kein Fehler, wenn ich es als getrenntes Makro ausführe.

Wie kann ich es umgehen und nur mit einer Kodeausführung die Eigenschaften eines neuerschaffenen Objekts ändern?

Danke in voraus
MfG