Comment copier une image d'une feuille de calcul vers un formulaire utilisateur dans Excel?
Cet article vous montrera les méthodes de copie d'une image de la feuille de calcul active vers Userform dans Excel.
Copier l'image de la feuille de calcul vers Userform avec copier-coller
Copier l'image de la feuille de calcul vers Userform avec le code VBA
Copier l'image de la feuille de calcul vers Userform avec copier-coller
Veuillez procéder comme suit pour copier une image de la feuille de calcul vers Userform.
1. Passez à la feuille de calcul contenant l'image que vous devez copier dans Userform, puis appuyez sur le bouton autre + F11 clés ensemble pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, veuillez cliquer insérer > Formulaire utilisateur. Voir la capture d'écran:
3. Insérez maintenant un contrôle d'image dans l'UserForm. Veuillez cliquer sur le Image(s) bouton dans le Boîte à outils boîte de dialogue, puis dessinez un contrôle d'image dans le Formulaire utilisateur manuellement. Voir la capture d'écran:
4. Cliquez avec le bouton droit sur le contrôle Image inséré, puis cliquez sur biens dans le menu contextuel comme ci-dessous, capture d'écran montrée:
5. Ensuite, vous pouvez voir un biens Le volet s'affiche sur le côté gauche du Microsoft Visual Basic pour applications fenêtre.
6. Revenez à la feuille de calcul et sélectionnez l'image que vous souhaitez afficher dans le formulaire utilisateur, puis copiez l'image en appuyant sur Ctrl + C clés.
7. Entrez dans le Microsoft Visual Basic pour applications à nouveau, faites défiler vers le bas pour cliquer sur le Image et collez-y le nom de l'image copiée sous l'onglet Alphabétique.
Maintenant, l'image de la feuille de calcul est copiée dans le formulaire utilisateur.
Copier l'image de la feuille de calcul vers Userform avec le code VBA
Cette section vous montrera une solution de contournement pour copier plusieurs images de la feuille de calcul vers un formulaire utilisateur, puis affichera l'image correspondante dans le formulaire utilisateur en sélectionnant le nom de l'image dans une zone de liste déroulante. Veuillez faire comme suit.
1. Veuillez suivre les étapes 1 et 2 ci-dessus pour insérer un formulaire utilisateur dans votre feuille de calcul.
2. Insérez ensuite un Contrôle du cadre dans UserFrom comme ci-dessous la capture d'écran montrée:
3. Cliquez avec le bouton droit sur le cadre inséré et sélectionnez biens dans le menu contextuel. À gauche biens volet, veuillez sélectionner Faux du Visible champ. Voir la capture d'écran:
4. Insérez plusieurs contrôles Image dans le cadre comme illustré ci-dessous.
5. Revenez à la feuille de calcul et sélectionnez l'image que vous souhaitez afficher dans le formulaire utilisateur, puis appuyez sur le bouton Ctrl + C clés pour le copier.
6. Entrez dans le Microsoft Visual Basic pour applications fenêtre, cliquez avec le bouton droit sur le premier contrôle Image et sélectionnez biens dans le menu contextuel. Voir la capture d'écran illustrée.
7. dans le biens volet, veuillez cliquer sur le Image champ, puis appuyez sur le Ctrl + V touches pour coller l'image que vous avez copiée à l'étape 5, puis sélectionnez 1 - fmPictureSizeModeStrtch du ModeTailleImage liste déroulante comme ci-dessous la capture d'écran montrée.
8. Répétez l'étape 5 - 7 pour coller toutes les images de la feuille de calcul aux contrôles Image de gauche dans l'UserForm. Et le résultat s'affichera comme ci-dessous.
9. Déplacez le Cadre contrôle dans le coin de l'UserForm, puis insérez un nouveau Image(s) contrôle et un Boîte combo control dans l'UserForm. Voir la capture d'écran:
10. Cliquez avec le bouton droit sur Formulaire utilisateur, Puis cliquez sur Voir le code. Ensuite, copiez et collez ci-dessous le code VBA pour remplacer l'original dans la fenêtre Code.
Code VBA1: copier l'image de la feuille de calcul vers le formulaire utilisateur
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
Notes: Dans le code, FormulaireUtilisateur1 est le nom du UserForm inséré, Image4 est le nom du contrôle Image dans lequel vous afficherez des images. Et Image représente tous les contrôles Image qui contiennent les images que vous avez copiées à partir de la feuille de calcul. ComboBox1 est le nom de la zone de liste déroulante que vous avez inséré dans le formulaire utilisateur. Veuillez les changer pour les vôtres.
11. Fermer la Microsoft Visual Basic pour applications fenêtre.
12. Insérez un bouton de commande dans la feuille de calcul en cliquant sur Développeur > insérer > Bouton de commande (contrôle ActiveX).
13. Cliquez avec le bouton droit sur le bouton de commande et sélectionnez Voir le code dans le menu contextuel. Et puis copiez et collez le code VBA ci-dessous dans la fenêtre Code. Et enfin fermez la fenêtre.
Code VBA2: copier l'image de la feuille de calcul vers le formulaire utilisateur
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
15. Cliquez Développeur > Mode de conception pour désactiver le mode de conception.
À partir de maintenant, en cliquant sur le bouton de commande, l'UserForm apparaîtra. Vous pouvez afficher l'image en sélectionnant le nom de l'image dans la zone de liste déroulante. Voir la capture d'écran:
Sélectionnez des noms différents dans la zone de liste déroulante pour afficher différentes images dans le UserForm.
Articles connexes:
- Comment centrer une image dans une cellule Excel?
- Comment vérifier si une cellule contient une image dans Excel?
- Comment insérer une image ou une image dynamiquement dans une cellule en fonction de la valeur de la cellule dans Excel?
- Comment agrandir l'image en cliquant dessus dans Excel?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!