Hoe kopieert u een afbeelding van een werkblad naar een gebruikersformulier in Excel?
Dit artikel beschrijft hoe u een afbeelding van het actieve werkblad naar een gebruikersformulier (UserForm) in Excel kunt kopiëren.
Afbeelding van werkblad naar UserForm kopiëren via kopiëren en plakken
Afbeelding van werkblad naar UserForm kopiëren met VBA-code
Afbeelding van werkblad naar UserForm kopiëren via kopiëren en plakken
Volg onderstaande stappen om een afbeelding van een werkblad naar een UserForm te kopiëren.
1. Ga naar het werkblad met de afbeelding die u naar het UserForm wilt kopiëren en druk tegelijkertijd op 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 (Image Control) toe aan het UserForm. Klik hiervoor op de knop Afbeelding in het dialoogvenster Gereedschapskist en teken vervolgens handmatig een afbeeldingsbesturingselement in het UserForm. Zie screenshot:
4. Klik met de rechtermuisknop op het Afbeelding invoegen-besturingselement en selecteer Eigenschappen in het contextmenu, zoals hieronder in de screenshot wordt weergegeven:
5. U ziet nu een deelvenster Eigenschappen aan de linkerkant van het venster Microsoft Visual Basic for Applications.
6. Ga terug naar het werkblad, selecteer de afbeelding die u in het UserForm wilt weergeven en kopieer deze door op Ctrl + C te drukken.
7. Ga opnieuw naar Microsoft Visual Basic for Applications, scroll omlaag, klik op het veld Afbeelding en plak de naam van de gekopieerde afbeelding erin onder het tabblad Alfanumeriek.
De afbeelding uit het werkblad is nu gekopieerd naar het UserForm.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Afbeelding van werkblad naar UserForm kopiëren met VBA-code
In dit gedeelte wordt een methode beschreven om meerdere afbeeldingen van een werkblad naar een UserForm te kopiëren en vervolgens de bijbehorende afbeelding weer te geven in het UserForm door de afbeeldingsnaam te selecteren in een keuzelijst (ComboBox). Volg hiervoor de onderstaande stappen.
1. Volg stap 1 en 2 hierboven om een UserForm in uw werkblad in te voegen.
2. Voeg vervolgens een Frame-besturingselement toe aan het UserForm, zoals in de onderstaande screenshot wordt weergegeven:
3. Klik met de rechtermuisknop op het ingevoegde frame en selecteer Eigenschappen in het contextmenu. Selecteer in het linkerdeelvenster onder Eigenschappen bij het veld Zichtbaar de optie False. Zie screenshot:
4. Voeg meerdere afbeeldingsbesturingselementen toe aan het frame, zoals in de onderstaande screenshot wordt weergegeven.
5. Ga terug naar het werkblad, selecteer de afbeelding die u in het UserForm wilt weergeven en druk op Ctrl+C om deze te kopiëren.
6. Open het venster Microsoft Visual Basic for Applications, klik met de rechtermuisknop op het eerste afbeeldingsbesturingselement en selecteer Eigenschappen in het contextmenu. Zie de weergegeven screenshot.
7. Klik in het deelvenster Eigenschappen op het veld Afbeelding en druk vervolgens op Ctrl + V om de afbeelding die u in stap 5 hebt gekopieerd hierin te plakken. Selecteer daarna 1 – fmPictureSizeModeStretch in de keuzelijst van het veld PictureSizeMode, zoals in de onderstaande screenshot wordt weergegeven.
8. Herhaal stap 5 - 7 om andere afbeeldingen van het werkblad naar de overige afbeeldingsbesturingselementen links in het UserForm te plakken. Het resultaat ziet eruit zoals in de onderstaande screenshot wordt weergegeven.
9. Verplaats het frame-besturingselement naar de hoek van het UserForm en voeg vervolgens een nieuw afbeeldingsbesturingselement en een keuzelijst-besturingselement toe aan het UserForm. Zie screenshot:
10. Klik met de rechtermuisknop op het UserForm en klik vervolgens op Code weergeven. Kopieer de onderstaande VBA-code en plak deze in het codovenster om de oorspronkelijke code te vervangen.
VBA-code 1: 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 SubOpmerking: In de code is UserForm1 de naam van het ingevoegde UserForm, Image4 de naam van het afbeeldingsbesturingselement waarin u de afbeeldingen wilt weergeven. ‘Image’ staat voor alle afbeeldingsbesturingselementen die de afbeeldingen bevatten die u van het werkblad hebt gekopieerd. ComboBox1 is de naam van de keuzelijst die u in het UserForm hebt ingevoegd. Pas deze namen indien nodig aan.
11. Sluit het venster Microsoft Visual Basic for Applications.
12. Voeg een opdrachtknop toe aan het werkblad 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 vervolgens de onderstaande VBA-code en plak deze in het codovenster. Klik ten slotte op Dit venster sluiten.
VBA-code 2: Afbeelding van werkblad naar UserForm kopiëren
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub15. Klik op Ontwikkelaar > Ontwerpmodus om de ontwerpmodus uit te schakelen.
Vanaf nu verschijnt het UserForm zodra u op de opdrachtknop klikt. Selecteer een afbeeldingsnaam in de keuzelijst om een afbeelding weer te geven. Zie screenshot:
Door verschillende namen in de keuzelijst te selecteren, verschijnen er telkens andere afbeeldingen in het UserForm.
Gerelateerde artikelen:
- Hoe centreert u een afbeelding in een Excel-cel?
- Hoe controleert u of een cel een afbeelding bevat in Excel?
- Hoe Afbeelding invoegen of een afbeelding dynamisch in een cel weergeeft op basis van de celwaarde in Excel?
- Hoe vergroot u een afbeelding wanneer u erop klikt in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins