Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bilder in UserForm und Bildgröße anpassen

Gruppe

UserForm

Problem

Wie kann ich Bilder eines Verzeichnisses in einem UserFormDropDown-Feld auflisten und nach Auswahl in der UserForm anzeigen lassen. Die Bildgröße soll automatisch an die UserForm angepaßt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

ClassModule: frmBilderZeigen

Private Sub cbbBilder_Change()
  imgBild.Picture = LoadPicture(cbobilder.Value)
End Sub

Private Sub cmdWeiter_Click()
  Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim iCounter As Integer
   Dim sPath As String
   sPath = Range("B1").Value
   With Application.FileSearch
      .LookIn = Range("B1").Value
      .Filename = "*.gif"
      .Execute
      For iCounter = 1 To .FoundFiles.Count
         cbobilder.AddItem .FoundFiles(iCounter)
      Next iCounter
   End With
   If cbobilder.ListCount > 0 Then
      cbobilder.ListIndex = 0
   End If
End Sub

StandardModule: basMain

Sub CallForm()
   frmBilderZeigen.Show
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Grafik und UserForm