Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ToggleButton
BildScreenshot zu ToggleButton ToggleButton-Seite mit Beispielarbeitsmappe aufrufen

Bild anzeigen und löschen über Button

Betrifft: Bild anzeigen und löschen über Button von: Korl
Geschrieben am: 31.08.2006 23:18:47

Hallo und guten Abend,

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
     Code eingefügt mit Syntaxhighlighter 1.14


Einmal das Wunschbild aufgerufen, bekomme ich es nicht wieder weg.

Könnte mir bitte hierbei jemand helfen?


Gruß Korl

  


Betrifft: AW: Bild anzeigen und löschen über Button von: Josef Ehrensberger
Geschrieben am: 31.08.2006 23:27:48

Hallo Korl!

Wenn es sich dabei nur um ein einziges Bild handelt, dann kannst du es einfach in die Tabelle einfügen und mit dem ToggleButton ein-/ausblenden

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
  Me.Shapes("Bild 1").Visible = True
  ToggleButton1.Caption = "Ausblenden"
Else
  Me.Shapes("Bild 1").Visible = False
  ToggleButton1.Caption = "Einblenden"
End If
End Sub



Gruß Sepp



  


Betrifft: AW: Bild anzeigen und löschen über Button von: Korl
Geschrieben am: 31.08.2006 23:49:15

Hallo Sepp,

ich danke Dir für Deine Mühe und Interesse.
Wenn Dein Gedanke so gehe würde wie angedacht, ist es in Ordnung.

Wenn ich mir das Bild in die Tabelle einfüge, wird es durch den Toggelbutton ausgeblendet aber nicht wieder eingeblendet.

Weist Du noch einen Rat?

Gruß Korl


  


Betrifft: es funktioniert doch! Danke Sepp! o.T. von: Korl
Geschrieben am: 01.09.2006 22:53:20

.


  


Betrifft: AW: Bild anzeigen und löschen über Button von: Korl
Geschrieben am: 31.08.2006 23:28:55

Hallo,

ich habe es jetzt so gemacht:
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
       Shapes("curPic").Delete
     
          End If
End Sub


Es funktioniert, lässt sich das Ganze auch ohne Ereignisprozedur, also alles über
den Toggelbutton lösen?

Gruß Korl


 

Beiträge aus den Excel-Beispielen zum Thema "Bild anzeigen und löschen über Button"