Bild anzeigen und löschen über Button
31.08.2006 23:18:47
Korl
aus dem Archiv habe ich mal einen schönen Code von Sepp gefunden mit dem man Bilder in einem Tabellenblatt anzeigen konnte. In einem Extratabellenblatt wurden zuvor die Bilder abgelegt und mit Namen versehen.
Mit einem Zellendropdown konnten dann die Bilder nach Wunsch angezeigt werden.
Ich würde mir nun gerne, immer in ein bestimmtes Tabellenblatt mittels Toggelbutton ein bestimmtes Bild anzeigen sowie werden entfernen lassen.
Ich habs versucht mit diesem Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'von Sepp
If Target.Address = "$B$2" Then
On Error Resume Next
Me.Shapes("curPic").Delete
Sheets("Tabelle3").Shapes(Target.Text).Copy
Me.Paste
With Me.Shapes(Me.Shapes.Count)
.Name = "curPic"
.Left = 100
.Top = 50
End With
Target.Select
End If
End Sub
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Bild anzeigen"
Range("B2").Value = "Test"
Else
ToggleButton1.Caption = "Bild löschen"
Range("B2").ClearContents
End If
End Sub
Einmal das Wunschbild aufgerufen, bekomme ich es nicht wieder weg.
Könnte mir bitte hierbei jemand helfen?
Gruß Korl