Bilder in XL lösen immer wieder den HaJoZi'schen Reflex aus: "XL ist keine Bildbearbeitung ..."
Bilder machen aber sogar XL gelegentlich ein bisschen bunter
Um die Auswahl einer Druck-ComboBox etwas zu illustrieren, habe ich so etwas wie eine Vorschau auf das Druckergebnis in Pics gepackt und mit einer USF verknüpft. Für jedes Layout ein eigenes Pic.
Zum Spielen braucht Ihr: eine Userform B/H 300 x 410, darin ein Frame B/H 256 X 320, T&L 18, darin Eure Anzahl an Images: H/B 256 x 300, T/L 6 , 8, Visible = False und dann natürlich für jedes ein Bildchen. Als Letztes eine ComboBox außerhalb des Frames B/H 140 x 18 und T/L 348, 75.
Verwendet erst einmal die Vorgabenamen für die Controls.
Die USF bekommt dann diesen Code:
Code: Alles auswählen
Option Explicit
Sub UserForm_Initialize()
Dim ctr As Control
For Each ctr In Me.Controls
If TypeName(ctr) = "Image" Then 'so werden alle Images eingelesen
'If Left(ctr.Name, 3) = "Pic" Then 'falls man die Bilder nach Namen filtern will
Me.ComboBox1.AddItem ctr.Name
End If
Next ctr
End Sub
Sub ComboBox1_Change()
Dim ctr As Control, sPic As String, bPic As Byte
For Each ctr In Me.Controls 'vgl. UserForm_Initialize
If Left(ctr.Name, 2) = "Im" Then
ctr.Visible = False
End If
Next ctr
bPic = Me.ComboBox1.ListIndex + 1
sPic = "Image" & bPic
For Each ctr In Me.Controls
If ctr.Name = sPic Then
ctr.Visible = True
Exit Sub
End If
Next ctr
End Sub
Viel Spaß beim Spielen!