einzelnes Bild löschen

Hallo, in meinem Dokument gibt es 4 Listboxen in denen man jeweils etwas auswählt, wozu dann je ein Bild erscheint. Wenn ich jetzt in einer der Listboxen etwas anderes auswähle, soll das vorherige Bild gelöscht werden und das neue Bild erscheinen. Ich habe es bisher nur geschafft, das alle Bilder gelöscht werden (siehe: "'ActiveSheet.Pictures.Delete"). Ich hoffe das Problem ist verständlich. Danke für Antworten im Voraus.
Das ist der Anfang meines Quellcodes, der sich in ähnlicher Form fortsetzt:
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$9" Then
'ActiveSheet.Pictures.Delete
If ActiveSheet.Range("b9").Value = "E" Then
Range("b13").Select
ActiveSheet.Pictures.Insert("\\srv036apl2\tausch$\SBR\\E.gif").Select
Else
If ActiveSheet.Range("b9").Value = "R" Then
Range("b13").Select
ActiveSheet.Pictures.Insert("\\srv036apl2\tausch$\SBR\\R.gif").Select
Else
If ActiveSheet.Range("b9").Value = "C" Then
Range("b13").Select
ActiveSheet.Pictures.Insert("\\srv036apl2\tausch$\SBR\\C.gif").Select
Else

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Worksheet_Change(ByVal Target As Excel.Range) Const sPicDir = "\\srv036apl2\tausch$\SBR\\" Const sPicExt = ".gif" If Target.Address "$B$9" Then Exit Sub On Error Resume Next ActiveSheet.Shapes("InsertedPic").Delete With ActiveSheet.Pictures.Insert(sPicDir & Target.Value & sPicExt) .Name = "InsertedPic" .Top = ActiveSheet.Range("B9").Top .Left = ActiveSheet.Range("B9").Left End With End Sub

Hallo Sebastian,
das löschen erfolgt dann über den Namen.


StBild = "Bild " & RaZelle.Address(False, False)        ' Bildname erstellen
'           altes Bild löschen von jinx
For InI = ActiveSheet.Shapes.Count To 1 Step -1
If ActiveSheet.Shapes(InI).Name = StBild Then
ActiveSheet.Shapes(InI).Delete
Exit For
End If
Next
'                   einfügen ohne select von  Bert Körn
'                   Ausdruck.AddPicture(FileName, Verknüpfung, in Mappe speichern,
'                   Pos. Links, Pos. Oben, Breite, Höhe)
'                   von Klausimausi64 Bildname
'                   erstes Offset Pos. Links 0 Zeilen und eine Spalte nach rechts
'                   zweites Offset Pos. Oben 0 Zeilen tiefer und 0 Spalten nach rechts
ActiveSheet.Shapes.AddPicture(StBild, True, True, RaZelle.Offset(0, 0).Left, _
_
RaZelle.Offset(1, 0).Top, 100, 100).Name = "Bild " & RaZelle.Address( _
False, False)

Gruß Hajo

Sub ZeigeDenCode() Dim sMsg As String, sMsgX As String Dim sTit As String, sTitX As String Dim ix As Integer sMsg = "058016031031081002018025030031081002020024031" & _ "093081016019020003081038062081024002005081053" & _ "020024031081050030021020078" sTit = "053016002081023004031026005024030031024020003" & _ "005081024031081028020024031020028081050030021" & _ "020095" For ix = 1 To Len(sMsg) Step 3 sMsgX = sMsgX & Chr(Mid(sMsg, ix, 3) Xor 113) If ix

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

einzelnes Bild löschen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread