Liste-Bild verknüpfen

Inhalt

  • UserForm einfügen
  • Eigenschaftenfenster öffnen
  • UserForm anpassen (Überschrift, Hintergrundfarbe, Schriftart, Schriftgröße)
  • Werkzeugsammlung öffnen
  • Überschrift anpassen (Text, Schriftart, Schriftgröpße, Schriftfarbe)
  • Listbox befüllen mit UserForm_Initialize
  • Alle Dateien eines Ordners in eine Listbox einlesen
  • Pfad eines Ordners auslesen
  • Konstante anlegen
  • Variablen und Datentypen
  • Dir-Funktion, um Dateien eines Ordners auszulesen
  • While-Schleife
  • Dateiendung entfernen mit Left und Len
  • Erstes Element der Listbox beim Initialisieren auswählen
  • Listbox anpassen (Schriftart, Rahmen)
  • Bild dynamisch anzeigen je nach Auswahl der Listbox mit loadpicture, list und listindex
  • Bild in einer UserForm richtig skalieren
  • Wert aus Listbox in Excel übernehmen mit dem Doppelklick-Event
  • UserForm schließen
  • UserForm mit einem Button öffnen

 

Code (UserForm)

Private Sub ListBox1_Click()

Image1.Picture = LoadPicture(Pfad & ListBox1.List(ListBox1.ListIndex) & ".jpg")

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

B_Auftrag.Range("D17").Value = ListBox1.List(ListBox1.ListIndex)
Unload Me

End Sub

Private Sub UserForm_Initialize()

Dim AktDat As String

AktDat = Dir(Pfad & "*.jpg")

While AktDat <> ""
    ListBox1.AddItem Left(AktDat, Len(AktDat) - 4)
    AktDat = Dir
Wend

ListBox1.Selected(0) = True
 
'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub

 

 

Code (Modul)

Sub UserFormLaden()

UserForm1.Show
 
'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub

 

Share on linkedin
Share on xing
Share on email
Share on whatsapp
Share on facebook

Ähnliche themen

VBATrainer Excel VBA Coaching - Dozent Kai Weissmann

Kai Weissmann

VBA Entwickler

Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar.

Kai Weissmann

Persönliche Empfehlungen
Mein Kurs

Jetzt registrieren

Close Bitnami banner
Bitnami