Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Steuerelement Bild laden Link in Zelle

Steuerelement Bild laden Link in Zelle
05.05.2018 17:55:13
Pascal
Hallo ihr Excel Spezialisten:)
ich habe zur zeit eine Excel Datei mit einem Image ActiveX Steuerelement das durch klick auf commandbutton 1 das Bild läd was im Mudul mit einem Link hinterlegt ist.
Da sich dieser Link ab und an ändert möchte ich den Link nicht immer im Modul anpassen.
Ich habe im Tabellenblatt 1 den Butten und das Image Steuerelement, in dem Tabellenblatt 2 steht in A1 der Dateipfad C:\...... und in B1 der Name der Datei ***.jpg .
Durch klick auf den Button soll die Datei aus A1+B1 im Image Steuerelement angezeigt werden.
Ich hoffe ihr könnt verstehen was ich möchte und bedanke mich schon mal für eure hilfe!
Schöne Grüße
Pascal
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Steuerelement Bild laden Link in Zelle
05.05.2018 18:20:29
Sepp
Hallo Pascal,
die Namen der Steuerelemente musst du ggf. anpassen!
Microsoft Excel Objekt Tabelle1
Option Explicit 
 
Private Sub CommandButton1_Click() 
  Dim strPath As String, strFile As String 
 
  strPath = Range("A1") 
  strFile = Range("B1") 
 
  If Right(strPath, 1) <> "\" Then strPath = strPath & "\" 
 
  If Dir(strPath & strFile, vbNormal) <> "" Then 
    Image1.Picture = LoadPicture(strPath & strFile) 
  Else 
    Image1.Picture = LoadPicture("") 
    MsgBox "Datei nicht gefunden!" 
  End If 
End Sub 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0


 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Steuerelement Bild laden Link in Zelle
05.05.2018 18:20:53
Nepumuk
Hallo Pascal,
einfach so:
Private Sub CommandButton1_Click()
    Set Image1.Picture = LoadPicture(Cells(1, 1).Text & Cells(1, 2).Text)
End Sub

Gruß
Nepumuk
Anzeige
AW: Steuerelement Bild laden Link in Zelle
05.05.2018 19:30:38
Pascal
Vielen Dank für eure Hilfe!
Das hat mir sehr weiter geholfen. läuft super:)
Schöne Grüße
Pascal
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Bild laden mit ActiveX-Steuerelement in Excel


Schritt-für-Schritt-Anleitung

  1. Vorbereitung: Öffne Excel und erstelle ein neues Arbeitsblatt.

  2. ActiveX-Steuerelemente einfügen:

    • Gehe zu "Entwicklertools" in der Menüleiste.
    • Klicke auf "Einfügen" und wähle das "Image"-Steuerelement aus.
    • Ziehe das Steuerelement auf dein Arbeitsblatt.
    • Füge einen "CommandButton" hinzu, um das Bild zu laden.
  3. Zellen für den Dateipfad und den Dateinamen vorbereiten:

    • In Tabelle2 solltest du in Zelle A1 den Dateipfad (z.B. C:\Bilder\) und in Zelle B1 den Dateinamen (z.B. bild.jpg) eintragen.
  4. VBA-Code einfügen:

    • Klicke mit der rechten Maustaste auf den CommandButton und wähle "Code anzeigen".
    • Füge den folgenden Code ein:
    Private Sub CommandButton1_Click()
       Dim strPath As String, strFile As String
    
       strPath = Range("A1").Value
       strFile = Range("B1").Value
    
       If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    
       If Dir(strPath & strFile, vbNormal) <> "" Then
           Image1.Picture = LoadPicture(strPath & strFile)
       Else
           Image1.Picture = LoadPicture("")
           MsgBox "Datei nicht gefunden!"
       End If
    End Sub
  5. Testen: Schließe den VBA-Editor und klicke auf den CommandButton, um das Bild anzuzeigen.


Häufige Fehler und Lösungen

  • Fehler: Datei nicht gefunden!

    • Lösung: Überprüfe den Dateipfad in Zelle A1 und den Dateinamen in Zelle B1. Achte darauf, dass der Dateiname korrekt ist, einschließlich der Dateiendung.
  • Problem mit dem Bildanzeige:

    • Lösung: Stelle sicher, dass das ActiveX-Steuerelement richtig konfiguriert ist und dass der VBA-Code korrekt eingefügt wurde.

Alternative Methoden

  • Verwendung von Formeln: Statt eines CommandButtons kannst du auch Hyperlinks verwenden, um Bilder zu laden. Dies erfordert jedoch eine manuelle Eingabe der Bildpfade.

  • Einbetten eines Bildes: Eine andere Möglichkeit ist, das Bild direkt in die Zelle einzufügen, anstatt ein ActiveX-Steuerelement zu verwenden.


Praktische Beispiele

  1. Beispiel mit lokalem Pfad:

    • A1: C:\Bilder\
    • B1: urlaub.jpg
    • Wenn du auf den Button klickst, wird das Bild urlaub.jpg angezeigt.
  2. Beispiel mit Netzwerkpfad:

    • A1: \\Netzwerk\Bilder\
    • B1: party.jpg
    • Dies funktioniert auch für Bilder, die auf einem Netzwerk gespeichert sind.

Tipps für Profis

  • Verwende Variablen: Halte den Code übersichtlich, indem du Variablen für häufig verwendete Werte definierst.

  • Fehlerbehandlung: Füge eine Fehlerbehandlungsroutine hinzu, um Benutzerfreundlichkeit zu erhöhen, besonders wenn es um Pfadüberprüfungen geht.

  • Formate beachten: Stelle sicher, dass das Bildformat (z.B. .jpg, .png) korrekt ist und vom ActiveX-Steuerelement unterstützt wird.


FAQ: Häufige Fragen

1. Wie kann ich das ActiveX-Steuerelement in eine Zelle einbetten? Du kannst ActiveX-Steuerelemente nicht direkt in Zellen einbetten, aber sie können über Zellen platziert werden.

2. Funktioniert dies in allen Excel-Versionen? Der vorgestellte Ansatz wurde in Excel 2016 getestet. Ältere Versionen unterstützen möglicherweise nicht alle Funktionen.

3. Kann ich andere Steuerelemente verwenden? Ja, du kannst auch andere ActiveX-Steuerelemente verwenden, aber das Bildsteuerelement ist am besten geeignet, um Bilder anzuzeigen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige