wie wärs eigentlich mit einem schlichten "Hallo" am Anfang und einen Gruß am Ende. Das würde die Unterstützung wesentlich vereinfachen.
Nun zu deinem Problem.
Wie werden denn die Bilder kopiert.
Zeig mal dein Makro.
Gruß
RAnton
tut mir leid, war etwas unter Zeitdruck. Die Bilder in einer Funktion kopiert:
Sheets(actSheet).Range(rPosition).CopyPicture xlScreen, xlBitmap
Sheets(actSheet).Paste Destination:=Sheets(selSheet).Range("Bild_" & bPosition).
Ich bin noch Excel-Anfänger und hoffe, dass du eine Idee hast.
Vielen Dank.
Gruß
Dagmar Hartje
sheets(selSheet).shapes(x).delete
Kannst du das Bild löschen.
x steht für die Nummer des bildes.
mit
sheets(selSheet).shapes.count
kannst du feststellen, wieviele Bilder du auf dem Sheet hast.
Viel
Spaß
RAnton
vielen Dank für deine Hilfe, ich werde es ausprobieren.
Gruß
Dagmar Hartje