Shapes
18.07.2004 14:02:31
WilhelmR.
ich fügen nach Bedarf 2 Bilderchen Name:mit und ohne,als Shapes in ein Arbeitsblatt ein.
Die Shapes lagern in Tabelle2 und werden von dort kopiert.
Code:
Sub Einfügen_mit()
Application.ScreenUpdating = False
Call ohne_raus
Sheets("Tabelle2").Select
ActiveSheet.Shapes("mit").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("H9").Select
ActiveSheet.PasteSpecial Format:="Bild (JPEG)", Link:=False, DisplayAsIcon _
:=False
Selection.Name = "mit"
End Sub
Um immer nur 1 Bild vorzufinden muss natürlich wenn "mit" eingefügt wird, vorher "ohne" raus.
das klappt mit folgendem Code:
Sub ohne_raus()
Application.ScreenUpdating = False
ActiveSheet.Shapes("ohne").Select
Selection.Delete
End Sub
Das klappt aber nur wenn "ohne" auch da ist.
Wenn nicht quäkt Excel natürlich los dass "ohne" nicht gefunden wurde und damit ist alles Weitere erst mal gestorben.
Ich suche nun einen Weg im Löschcode zu sagen: wenn "ohne" vorhanden ist, dann löschen, wenn nicht vorhanden, dann eben exit Sub.
Augenblicklich Brett vor`m Kopf.
Wilhelm