Hallo zusammen,
in einem Tabellenblatt möchte ich eine
Schaltfläche oder einen Link setzen,
mit dem ich zur Erläuterung eine Grafik
öffnen kann, z.B. in einem kleinen Fenster,
das sich mit Klick auf „X“ wieder schließen läßt.
Geht sowas? Hat jemand einen Ansatz?
Gruß und danke
Rolf
Hallo Rolf,
klar geht das.
Erstell Dir den Button, mit dem Du ein Formular öffnest, in dem das gewünschte Bild angezeigt wird.
Weiß jetzt nicht, wie fit Du mit VBA bist, aber das ist definitv nicht schwer. Wenn Du weitere Hilfe benötigst, melde Dich einfach noch mal.
Grüße,
Kerstin
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
in einem Tabellenblatt möchte ich eine
Schaltfläche oder einen Link setzen,
mit dem ich zur Erläuterung eine Grafik
öffnen kann, z.B. in einem kleinen Fenster,
das sich mit Klick auf „X“ wieder schließen läßt.
Geht sowas? Hat jemand einen Ansatz?
Hi Rolf,
wie Kerstin sagt, ne Userform oder einen ToggleButton. D.h., das Bild wird in die Tabelle eingefügt, ist also vorhanden, bei jedem Klick auf den Button wird es sichtbar, beim nächsten nicht usw.
Jetzt stellt sich die Frage was dir lieber ist.
Gruß
Reinhard
Moin zusammen,
Vielen Dank erstmal für Eure Ideen.
Klick auf Button - Bild da, Maustaste loslassen - Bild weg.
Das gefällt mir noch besser, als die Geschichte mit dem Fenster.
Mir den Button zu plazieren, kriege ich noch hin, aber dann
verließen sie ihn 
- Habt Ihr noch Lust?
Gruß
Rolf
Klick auf Button - Bild da, Maustaste loslassen - Bild weg.
Das gefällt mir noch besser, als die Geschichte mit dem
Fenster.
Hi Rolf,
du brauchst einen CommandButton aus der Steuerelemttoolbox.
in Modul1 :
Option Explicit
Sub Malen()
Dim sh As Shape
For Each sh In Worksheets("Tabelle1").Shapes
If sh.Name Like "Mein\*" Then sh.Delete
Next sh
Worksheets("Tabelle1").Pictures.Insert("C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\Beispielbilder\Sonnenuntergang.jpg").Name = "MeinBild"
Worksheets("Tabelle1").Shapes("MeinBild").Select
With Selection
.Visible = False
.Left = 200
.Top = 250
.Width = 100
.Height = 80
End With
End Sub
in **Tabelle1** :
Option Explicit
Private Sub CommandButton1\_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Worksheets("Tabelle1").Shapes("MeinBild").Visible = True
End Sub
Private Sub CommandButton1\_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Worksheets("Tabelle1").Shapes("MeinBild").Visible = False
End Sub
Gruß
Reinhard
Danke
Hallo Reinhard,
das klappt super 
Vielen Dank, Du hast mir mal wieder sehr geholfen.
Ich habe mir aber die Bilder über Einfügen/Grafik/aus Datei… in die Datei kopiert und die Bildnummer (fürs Makro) durch Bildmarkierung und dann über Menu/Einfügen/Namen/Definieren… ermittelt.
Gruß
Rolf
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]