Bild löschen, wenn vorhanden

Bild

Betrifft: Bild löschen, wenn vorhanden
von: Erwin
Geschrieben am: 11.12.2003 18:14:32

Hallo,
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

Bild


Betrifft: AW: Bild löschen, wenn vorhanden
von: K.Rola
Geschrieben am: 11.12.2003 18:24:21

Hallo,

was ist das für ein Bild, Pixelgrafik, Zeichnungsobjekt?

Gruß K.Rola


Bild


Betrifft: AW: Bild löschen, wenn vorhanden
von: Erwin
Geschrieben am: 11.12.2003 18:32:09

Hallo,
es handelt sich um gescannte Bilder oder von der Digitalkamera, Pixelgrafik.
Erwin


Bild


Betrifft: AW: Bild löschen, wenn vorhanden
von: K.Rola
Geschrieben am: 11.12.2003 18:43:12

Hallo,

Option Explicit

Sub Shape_löschen()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
  If Sh.Type = 13 Then Sh.Delete
Next
End Sub


Gruß K.Rola


Bild


Betrifft: AW: Bild löschen, wenn vorhanden
von: Erwin
Geschrieben am: 11.12.2003 18:58:03

Hallo K.Rola
Super, es funktioniert!
Danke dir, aber sag, was bedeutet Type=13?
Grüße v. Erwin


Bild


Betrifft: AW: Bild löschen, wenn vorhanden
von: K.Rola
Geschrieben am: 11.12.2003 19:17:20

Hallo,

die Typen der verschiedenen Shapes findest du im Objektkatalog.

13 ist der Long- Wert der Konstanten msoPicture

Gruß K.Rola


Bild

Beiträge aus den Excel-Beispielen zum Thema " Bild löschen, wenn vorhanden"