Les images dans un formulaire personnalisé ou Userform, Excel VBA

Le contrôle Image  est utilisé pour afficher les fichiers graphiques aux formats BMP, CUR, GIF, ICO, JPG et WMF. Tableau suivantrépertorie les principales propriétés du champ Image.

Tableau : Propriétés du contrôle d’image

Propriété Description
Picture Spécifie le fichier graphique à afficher. Utilisé avec la fonction LoadPicture
PictureSizeMode Définit la mise à l’échelle de l’image. Valeurs autorisées: fmPictureSizeModeClip (les parties de l’image qui ne rentrent pas dans les limites de l’objet sont coupées), fmPictureSizeModeStretch (l’image est mise à l’échelle de manière à couvrir toute la surface de l’objet), fmPictureSizeModeZoom (l’image est mise à l’échelle avec la même taille relative pour qu’elle s’adapte entièrement à l’objet)
PictureAlignment Définit la position de l’image dans le contrôle. Valeurs valides: fmPictureAlignmentTopLeft (en haut à gauche), fmPictureAlignmentTopRight (en haut à droite), fmPictureAlignmentCenter (centre), fmPictureAlignmentBottomLeft (en bas à gauche), fmPictureAlignmentBottomRight (en bas à droite) fmPictureAlignmentBottomRight (en bas à droite)
PictureTiling Accepte les valeurs booléennes et définit s’il faut couvrir l’objet avec des mosaïques de l’image

À propos de la fenêtre
L’image est souvent utilisée lors de la création de fenêtres de type À propos du programme ou À propos de l’auteur pour insérer des images bitmap dans la fenêtre. Nous allons créer une fenêtre dans laquelle placer l’image et deux inscriptions. De plus, vous aurez besoin d’un fichier (monchien.jpg).

Figure: À propos de la fenêtre


Assurez-vous donc que le répertoire que Excel utilise par défaut contient le fichier graphique nécessaire que vous souhaitez afficher en arrière-plan en mosaïque. Entrez le code requis dans le module de formulaire. Notez que différentes étiquettes utilisent des paramètres de police différents pour rendre la fenêtre plus présentable.

Private Sub UserForm_Initialize()

   Me.Caption = "Une image"

   Image1.BorderStyle = fmBorderStyleNone

   Image1.Picture = LoadPicture("monchien.jpg")

   Image1.PictureSizeMode = fmPictureSizeModeZoom

   Label1.Font.Size = 12

   Label1.Font.Bold = True

   Label1.Caption = "Mon chien"

   Label2.Font.Size = 11

   Label2.Font.Italic = True

   Label2.Caption = "Il s’appelle Roméo"

End Sub

 

2 Afficher les diapositives
Le contrôle Image vous permet créer des diapositives simples. Nous montrerons comment cela se fait avec un exemple simple. Nous implémentons ici une application qui vous permet de visualiser plusieurs images.

Figure: Afficher les diapositives

Alors, nous allons créer un formulaire dans lequel placer l’image et la liste. De plus, vous aurez besoin de fichiers avec les images raster correspondantes (monchien.jpg, monchat.jpg, moncheval.jpg), qui doivent être placés dans le même répertoire que Excel utilise par défaut. Entrez le code approprié dans le module de formulaire.

Private Sub UserForm_Initialize()

   Me.Caption = "Diapositives"

   Image1.BorderStyle = fmBorderStyleNone

   Image1.PictureSizeMode = fmPictureSizeModeZoom

   ListBox1.AddItem "Mon chien"

   ListBox1.AddItem "Mon chat"

   ListBox1.AddItem "Mon cheval"

   ListBox1.ListIndex = 0

End Sub

Private Sub ListBox1_Click()

   Dim bs As Variant

   bs = Array("monchien.jpg", "monchat.jpg ", "moncheval.jpg ")

   Image1.Picture = LoadPicture(bs(ListBox1.ListIndex))

End Sub

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x