Bild löschen, wenn vorhanden
11.12.2003 18:14:32
Erwin
ich habe eine Mitglieder-Datei erstellt, in der auf Tab3 pers. Daten und ein Bild erscheint, wenn im Ordner Fotos eins gespeichert ist, ansonsten kommt der Text "kein Bild". Mit dem Code
Range("E7").Select
LW = "D:\Fotos\"
BildName = "SB1" & "_" & "SB2" 'Nachname_Vorname
BildDatei = LW & BildName & ".jpg"
If Dir(BildDatei) <> "" Then
ActiveSheet.Pictures.Insert(BildDatei).Select
Else
ActiveSheet.Range("E6").Value = "kein Bild"
End If
Range("A1").Select
klappt alles wunder bar. Nun möchte ich aber mit einem Button die Texteinträge und das Bild,wenn vorhanden,löschen können.
Habe dazu den Code geschrieben:
Private Sub CmdLöschen_Click()
Range("A6").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
If Pictures.Count > 0 then Pictures.Delete
End
Das Problem ist, es löscht mir auch meine Schaltfläche! Ich möchte aber nur das Bild, das vorher eingefügt wurde, löschen!
Kann mir jemand helfen?
Wäre schön, Erwin