Um einen Hyperlink in einer Userform oder Imagebox zu verwenden, folge diesen Schritten:
Private Sub CommandButton1_Click()
Me.Image1.Picture = LoadPicture("C:\Pfad\zu\deinem\Bild.jpg")
End SubWorksheet_SelectionChange-Ereignis, um die Userform beim Auswählen einer Zelle zu öffnen.Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
UserForm1.Show
End If
End SubFehler: Bild wird nicht angezeigt.
Fehler: Userform öffnet sich nicht.
Worksheet_SelectionChange richtig implementiert ist und dass die Userform korrekt benannt ist.Anstelle von Hyperlinks kannst du auch die Auswahl von Listeneinträgen verwenden, um Bilder anzuzeigen. Nutze das ListBox-Steuerelement, um verschiedene Optionen anzuzeigen. Wenn ein Eintrag ausgewählt wird, kannst du das Bild entsprechend laden:
Private Sub ListBox1_Click()
Dim BildPfad As String
BildPfad = "C:\Pfad\zu\deinem\" & Me.ListBox1.Value & ".jpg"
Me.Image1.Picture = LoadPicture(BildPfad)
End SubEin Beispiel für eine Excel-Tabelle könnte wie folgt aussehen:
| Eintrag | Bildname |
|---|---|
| schönes Wetter | schönesWetter.jpg |
| schlechtes Wetter | schlechtesWetter.jpg |
| buntes Auto | buntesAuto.jpg |
Verwende die Einträge aus der Tabelle, um die Bildnamen dynamisch zu laden.
Worksheet_Change-Ereignisse, um Änderungen in der Tabelle zu überwachen und die Userform entsprechend zu aktualisieren.1. Kann ich auch andere Dateiformate anzeigen? Ja, du kannst auch andere Formate wie PNG oder BMP verwenden, solange du den entsprechenden Pfad angibst.
2. Funktioniert das auch in Excel Online? Leider wird VBA in Excel Online nicht unterstützt. Du musst Excel Desktop verwenden, um diese Funktionen zu nutzen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen