Hoe een afbeelding van een werkblad naar een Userform in Excel kopiëren?

Dit artikel laat u methoden zien om een afbeelding van het actieve werkblad naar een Userform in Excel te kopiëren.

Afbeelding van werkblad naar Userform kopiëren met kopiëren en plakken
Afbeelding van werkblad naar Userform kopiëren met VBA-code

Afbeelding van werkblad naar Userform kopiëren met kopiëren en plakken

Volg de volgende stappen om een afbeelding van een werkblad naar een Userform te kopiëren.

1. Ga naar het werkblad dat de afbeelding bevat die u naar de Userform wilt kopiëren, en druk vervolgens tegelijkertijd op de toetsen Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Userform. Zie screenshot:

3. Voeg nu een Afbeeldingsbesturingselement in de UserForm in. Klik op de knop Afbeelding in het dialoogvenster Toolbox, en teken vervolgens handmatig een Afbeeldingsbesturingselement in de UserForm. Zie screenshot:

4. Klik met de rechtermuisknop op het ingevoegde Afbeeldingsbesturingselement en klik op Eigenschappen in het contextmenu zoals in onderstaande screenshot te zien is:

5. U ziet nu een Eigenschappenpaneel aan de linkerkant van het venster Microsoft Visual Basic for Applications.

6. Ga terug naar het werkblad, selecteer de afbeelding die u in de Userform wilt weergeven en kopieer de afbeelding door op Ctrl + C te drukken.

7. Ga terug naar het venster Microsoft Visual Basic for Applications, scrol omlaag, klik op het veld Afbeelding en plak vervolgens de gekopieerde afbeeldingsnaam erin onder het tabblad Alfabetisch.

Nu is de afbeelding uit het werkblad naar de Userform gekopieerd.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Afbeelding van werkblad naar Userform kopiëren met VBA-code

Deze sectie laat u een tijdelijke oplossing zien om meerdere afbeeldingen van een werkblad naar een Userform te kopiëren en vervolgens de bijbehorende afbeelding in de Userform weer te geven door de naam van de afbeelding te selecteren uit een keuzelijst. Volg de volgende stappen.

1. Volg bovenstaande stap 1 en 2 om een Userform in uw werkblad in te voegen.

2. Voeg vervolgens een Frame-besturingselement in de UserFrom in zoals in onderstaande screenshot te zien is:

3. Klik met de rechtermuisknop op de ingevoegde Frame en selecteer Eigenschappen in het contextmenu. Selecteer Nee in het veld Zichtbaar in het linker Eigenschappenpaneel. Zie screenshot:

4. Voeg meerdere Afbeeldingsbesturingselementen in de Frame in zoals in onderstaande screenshot te zien is.

5. Ga terug naar het werkblad, selecteer de afbeelding die u in de Userform wilt weergeven en druk op Ctrl + C om deze te kopiëren.

6. Ga terug naar het venster Microsoft Visual Basic for Applications, klik met de rechtermuisknop op het eerste Afbeeldingsbesturingselement en selecteer Eigenschappen in het rechtermuisknopmenu. Zie onderstaande screenshot.

7. Klik in het Eigenschappenpaneel op het veld Afbeelding, druk vervolgens op Ctrl + V om de afbeelding die u in stap 5 hebt gekopieerd te plakken, en selecteer vervolgens 1 – fmPictureSizeModeStrtch uit de Keuzelijst PictureSizeMode zoals in onderstaande screenshot te zien is.

8. Herhaal stap 5 - 7 om andere afbeeldingen van het werkblad naar de overige Afbeeldingsbesturingselementen links in de UserForm te plakken. Het resultaat wordt als volgt weergegeven in onderstaande screenshot.

9. Verplaats het Frame-besturingselement naar de hoek van de UserForm, voeg vervolgens een nieuw Afbeeldingsbesturingselement en een Keuzelijstbesturingselement in de UserForm in. Zie screenshot:

10. Klik met de rechtermuisknop op de UserForm en klik vervolgens op Code weergeven. Kopieer en plak vervolgens onderstaande VBA-code om de originele code in het Coderaam te vervangen.

VBA-code1: Afbeelding van werkblad naar Userform kopiëren

Private Sub ComboBox1_Change()
    UserForm1.Controls.Item("Image4").Picture = UserForm1.Controls.Item(UserForm1.ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
    Dim xImg As Control
    On Error Resume Next
    For Each xImg In UserForm1.Controls
        If TypeName(xImg) = "Image" And xImg.Name <> "Image4" Then
            UserForm1.ComboBox1.AddItem xImg.Name
        End If
    Next
End Sub

Opmerking: In de code is UserForm1 de naam van de ingevoegde UserForm, Image4 is de naam van het Afbeeldingsbesturingselement waarin u afbeeldingen gaat weergeven. En Afbeelding vertegenwoordigt alle Afbeeldingsbesturingselementen die de afbeeldingen bevatten die u van het werkblad hebt gekopieerd. ComboBox1 is de naam van de combobox die u in de userform heeft ingevoegd. Wijzig ze naar uw eigen namen.

11. Sluit het venster Microsoft Visual Basic for Applications.

12. Voeg een Opdrachtknop in het werkblad in door te klikken op Ontwikkelaar > Invoegen > Opdrachtknop (ActiveX-besturingselement).

13. Klik met de rechtermuisknop op de opdrachtknop en selecteer Code weergeven in het contextmenu. Kopieer en plak vervolgens onderstaande VBA-code in het Coderaam. Sluit het venster ten slotte.

VBA-code2: Afbeelding van werkblad naar Userform kopiëren

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

15. Klik op Ontwikkelaar > Ontwerpmodus om de Ontwerpmodus uit te schakelen.

Vanaf nu zal, wanneer u op de opdrachtknop klikt, de UserForm verschijnen. U kunt een afbeelding weergeven door de naam van de afbeelding te selecteren uit de keuzelijst. Zie screenshot:

Het selecteren van verschillende namen uit de keuzelijst zal verschillende afbeeldingen in de UserForm weergeven.

Gerelateerde artikelen:

• Hoe een afbeelding in een Excel-cel centreren?
• Hoe controleren of een cel een afbeelding bevat in Excel?
• Hoe dynamisch een afbeelding of foto in een cel invoegen op basis van een celwaarde in Excel?
• Hoe een afbeelding vergroten wanneer u erop klikt in Excel?