Bilder-Spielerei in USFs

.. das wohl mächtigste Werkzeug in Bill Gates' Büro-Sippe. Ob reine Formeln, PowerQuery oder VBA. Hier bleiben kaum Wünsche unerfüllt.
Benutzeravatar
d'r Bastler
Beiträge: 832
Registriert: 29. Aug 2022, 13:20
Hat sich bedankt: 224 Mal
Danksagung erhalten: 119 Mal

Bilder-Spielerei in USFs

#1

Beitrag von d'r Bastler »

Moin allerseits,

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 :P
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
Jede Auswahl in der CBX zeigt ein anderes Bild, löscht man die Auswahl, bleibt's grau.

Viel Spaß beim Spielen!
d'r Bastler von den VBAsteleien.de
Win 10 + Office 2019 & Win11 + Office 2021 + Visio 2019 pro & macOS.X15 + Office2019pro & Android12 & XL365

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste