Kleines Problem:
Ich habe in einer Tabelle Wachskarten 100 Pictures mit untenstehendem Code will ich diese mit einem leeren weissem Bild Image13.picture "löschen"-überschreiben.
Da bekomme ich immer Fehlermeldung:
Object unterstützt diese Eigenschaft oder Methode nicht.!!
Dim i as Integer
For i = 1 To 100
Workheets("Wachskarte").Image(i).Picture = Worksheets("Grafik").Image13.Picture
x = x + 1
Next i
Wenn ich das Bild mit der richtigen Nummer z.B. Image2.Picture angebe wird das Bild überschrieben, dies funktioniert!
Worksheets("Wachskarte").Image2.Picture = Worksheets("Grafik").Image13.Picture 'funzt
Wer kann helfen was kann da falsch sein?
Schönen Tag noch
Egon