Formulaire personnalisé ou Userform avec un arrière-plan en mosaïque , Excel VBA

Une image dans un formulaire peut être affichée non seulement comme une image entière, mais aussi comme une mosaïque. Dans ce cas, la valeur de la propriété PictureTiling doit être définie sur True. Bien sûr, vous devez également prendre soin de la propriété PictureAlignment, qui définit l’emplacement de l’image initiale, à partir de laquelle toute la couverture mosaïque est construite.
Les valeurs des propriétés de formulaire peuvent être définies à l’aide de la fenêtre Propriétés ou dans le code. Dans ce dernier cas, cela se fait généralement dans la procédure de gestion de l’événement Initialize du formulaire, qui est généré lorsque le formulaire est initialisé mais avant qu’il ne s’affiche à l’écran. À titre d’exemple, construisons un formulaire avec un arrière-plan en mosaïque et définissons ses propriétés dans le code au stade de l’initialisation du formulaire.

Figure 1: Une image mosaïque d’un UserForm

Alors, créez un formulaire et dans le module formulaire tapez le code suivant. Assurez-vous également que le répertoire que Excel utilise par défaut contient le fichier graphique requis que vous souhaitez afficher en tant qu’arrière-plan en mosaïque.

Private Sub UserForm_Initialize()

   Me.Caption = "mosaïque"

   Me.BorderStyle = fmBorderStyleNone

   Dim imageA As String

   imageA = "image1.jpg"

   If Len(Dir(imageA)) > 0 Then

      Me.Picture = LoadPicture(pic)

      Me.PictureAlignment = fmImageAtureAlignmentTopLeft

      Me.PictureTiling = True

   Else

      MsgBox "Pas de fichier" & CurDir & "\" & "me.bmp"

   End If

End Sub

 

Commentaires
■ Pour savoir quel répertoire vous avez défini par défaut, allez dans l’onglet Fichier du ruban et cliquez sur le bouton Options. Dans la fenêtre Options Excel qui s’ouvre, sélectionnez la catégorie Enregistrer à gauche, et à droite, dans le groupe Enregistrer le classeur, dans le champ Emplacement du fichier, le répertoire actuel sera affiché par défaut. Si nécessaire, il peut être modifié.
■ Cette application vérifie l’existence d’un fichier bitmap dans le répertoire donné à l’aide de la fonction Dir (). S’il ne se trouve pas dans le répertoire de travail, lorsque l’application est lancée, le formulaire s’affiche sans fond de mosaïque. La fonction Dir () renvoie le nom d’un répertoire ou d’un fichier qui correspond au modèle spécifié comme argument de cette fonction.

■ S’il n’y a pas de répertoire ou de fichier approprié, la fonction Dir () renvoie une chaîne vide. Par conséquent, la vérification de l’existence d’un fichier se réduit simplement à la vérification de la longueur de la chaîne retournée par la fonction Dir (). S’il est de longueur nulle, alors il n’y a pas de fichier.

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

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

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