ActiveSheet.Image1.Picture = .....
23.04.2009 17:00:17
Frank
In meinem Tabellenblatt sind mehrere Images direkt ohne Userform eingebettet. ( kann sein, über 100 )
Nun möchte ich zu bestimmter Zeit bestimmte Bilder ändern.
Der Befehl "ActiveSheet.Image1.Picture = ActiveSheet.Image2.Picture" funktioniert einwandfrei.
Nun soll aber die Auswahl ( Image1 oder Image32 ... ) vom Code generiert werden.
Der Versuch die Images über ihren Namen oder ihren Index anzusprechen schlägt fehl.
Activesheet.OLEObjects("Image1").Picture = Activesheet.Image2.Picture
Activesheet.Shapes("Image1").Picture = Activesheet.Image2.Picture
Activesheet.OLEObjects(1).Picture = Activesheet.Image2.Picture
Activesheet.Shapes(1).Picture = Activesheet.Image2.Picture
keiner dieser Zeilen funktioniert (Objekt unterstützt diese Eigenschaft oder Methode nicht)
Das zu ändernde Image hat definitiv den Index 1
Activesheet.Shapes(1).Select beweist das.
Wie kann ich dem Image ein anderes Bild zuordnen, ohne den Wortlaut "Activesheet.Image1.Picture ....." zu verwenden ?
Danke im Voraus
Frank