---

Hallo zusammen,

habe nun schon mehrere Beisträge durchgeschaut, finde aber leider keine passende Lösung.
Ich habe per Makro ein Bild in die Zelle L8 eingefügt.
Per Klick auf den Button "Eingabe lsöchen" soll auch das Bild gelöscht werden, die Buttons in dem Sheet allerdings nicht.
Bisher habe ich nur Lösungen, die mir auch die Buttons löschen, wie z.B.
ActiveSheet.DrawingObjects.Delete

Wie bekomme ich es hin, dass wirklich nur das eine Bild gelöscht wird?
In dem Sheet befinden sich 4 Buttons und eben das eine Bild!

Vielen Dank und Gruß
Tammy89
Excel 2010

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tammy89,
Habe jetzt gerade kein Beispiel parat (vielleicht postest Du ja eines, da wäre die Motivation zum Testen größer  ) aber normalerweise gibt es eine Auflistung der DrawingObjects, in der Du Dir das passende heraussuchen kannst.

Grüße
Klaus 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tammy89

Ich würde, beim Einfügen des Bildes, diesem einen Namen zuweisen.
So kann man es schneller selektieren/löschen.

Code:

---

Sub einfuegen()
    Dim objPicture As Picture
    On Error GoTo Fehler
    With ActiveSheet.Cells(8, 12)    ' Bild kommt in Zelle L8
        Set objPicture = .Parent.Pictures.Insert("C:\Logo.jpg")
        objPicture.Top = .Top
        objPicture.Left = .Left
        objPicture.Height = 150
        'objPicture.Width = 150
        objPicture.Name = "MeinBild"
    End With
Fehler:
    If Err.Number <> 0 Then MsgBox Err.Number & " " & Err.Description
    Set objPicture = Nothing
End Sub

---

Code:

---

Sub loeschen()
    ActiveSheet.Shapes("MeinBild").Delete
End Sub

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo HenryV,

danke für den Code, leider bekomme ich es bei mir nicht zum Laufen, bzw. das Bild wird viel größer und nicht in L8 eingefügt.
Ich hatte bisher folgenden Code:

Sub BildWE()
If Range("C6").Value = "" Then Exit Sub
  'Bildpfad setzen
  strPfadWE = "P:..." & ActiveSheet.Range("C6").Value & ".jpg"
  'Zelle auswählen, in welches das Bild eingefügt werden soll
  ActiveSheet.Range("L8").Select
  'MsgBox strPath7
        'Bild einfügen
        ActiveSheet.Pictures.Insert (strPfadWE)
        ActiveSheet.Pictures.Width = 200
        ActiveSheet.Pictures.Height = 200     
End Sub

Sub Clean_Button()
'Text löschen
ActiveSheet.Range("C6:F6,C7:F7,C12:F12,C13:F13,L8").ClearContents
'Bild löschen
ActiveSheet.Shapes("Bild").Delete
End Sub

Wenn ich hier nun den Code
ActiveSheet.Pictures.Name = "Bild"
ergänze bekomme ich eine Fehlermeldung (Laufzeitfehler '438': Objekt unterstützt diese Eigenschaft oder Methode nicht).

Wie kann ich in diesem Code dem Bild einen Namen vergeben, oder alles komplett zu ändern?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tammy89

Du kannst den Namen auch gleich beim Einfügen vergeben.

Code:

---

'Bild einfügen
ActiveSheet.Pictures.Insert(strPfadWE).Name = "Bild"

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super, vielen Dank.
Funktioniert :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

wenn es sich um 4 Formular-Schalter handelt und sich keine weiteren Steuerelemente im Tabellenblatt befinden, kannst du folgenden Code für das Löschen des eingefügten Bildes verwenden:

Code:

---

    Dim shaShape As Shape
    For Each shaShape In ActiveSheet.Shapes
        If shaShape.OLEFormat.Object.OnAction = "" Then shaShape.Delete
    Next shaShape

---

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP