Pour insérer un bouton avec une image, vous devez utiliser la barre d’outils Control Toolbox. L’insertion d’un tel bouton fonctionne avec la macro .

Private Sub CommandButton1Click()

Dim cmd As CommandButton

Set cmd = ActiveSheet.OLEObjects.Add _

  (ClassType:="Forms.CommandButton.1", _

  Left:=80, Top:=33, Width:=100, Height:=50).Object

    cmd.Caption = " Cliquez ici "

    cmd.BackColor = RGB(256, 256, 256)

    cmd.AutoSize = True

    cmd.Picture = LoadPicture("C:\Users\JOSUE-PC\Desktop\cameroun.jpg")

    Set cmd = Nothing

End Sub

Définissez une variable d’objet du type CommandButton et insérez un nouveau bouton à partir de la barre d’outils Boîte à outils de contrôle à l’aide de la méthode Add. Ce bouton correspond à l’argument ClassType. Spécifiez ensuite la position du bouton à l’aide des arguments Gauche, Haut, Largeur et Hauteur. Utilisez la propriété Caption pour définir la légende du bouton. Vous pouvez déterminer la couleur d’arrière-plan du bouton avec la propriété BackColor et la fonction RVB. La valeur RVB 256, 256, 256 correspond à la couleur blanche. La propriété AutoSizer garantit que le bouton adapte sa taille afin que le texte et l’image s’affichent intégralement. Vous utilisez la propriété Picture pour spécifier qu’une image doit être affichée sur le bouton, que vous pouvez intégrer à l’aide de la fonction LoadPicture. À la fin de la macro, annulez la connexion entre les variables d’objet et l’objet à l’aide de l’instruction Set et du mot clé Nothing, libérant ainsi la mémoire réservée.

Figure: Bouton avec image

Cependant, le bouton qui vient d’être inséré n’a pasch pas de macro stockée. Avec ce type de bouton, il n’est pas possible d’attribuer une macro via le menu contextuel.

Pour affecter une macro, ou plutôt une macro d’événement, au bouton, procédez comme suite:

1. Affichez la barre d’outils CONTROL ELEMENT TOOLBOX sur votre feuille de calcul.

2. Dans la barre d’outils CONTROL TOOLBOX, cliquez sur l’icône DESIGN MODE.

3. Double-cliquez ensuite sur le bouton inséré, ce qui vous amènera automatiquement à l’environnement de développement. L’événement de clic encore vide sera désormais mis à votre disposition.

Private Sub CommandButton1_Click()

     call Info

     End Sub

4. Ajoutez d’autres commandes à l’événement click set ou appelez une autre macro à l’aide de l’instruction Call.

5. Revenez à votre feuille de calcul et désactivez le mode de conception en cliquant sur l’icône QUITTER LE MODE DE CONCEPTION.

Le bouton est maintenant prêt à être utilisé et vous pouvez démarrer la procédure d’événement stocké en cliquant dessus. Vous pouvez voir la macro Info appelée dans le Listing.

Sub Info ()

  MsgBox " C'est maintenant exactement " & Time & " L'horloge!", _

  vbInformation

End Sub