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