Changer Taille de la police d'un bouton par programmation

Question

Bonjour,

Dans un projet de classeur Excel 2016 en VB, j'ai ajouter à une feuille un bouton par programmation.

Par contre je ne trouve pas de code pour changer la taille de la police du boutton.

Voici mon code:

 Private Sub Feuil11_Startup() Handles Me.Startup
        ImpClient = Controls.AddButton(Range("H1"), "ImpClient")
        ImpClient.Text = ("IMPRIMER")
        ImpClient.Height = 74.25
        ImpClient.Width = 299.25
        ImpClient.BackColor = Color.Lime
        ImpClient.Font = New System.Drawing.Font(ImpClient.Font, FontStyle.Bold)
        ImpClient.FlatStyle = FlatStyle.Flat
        AddHandler ImpClient.Click, AddressOf ImpClient_Click
        ImpClient.Cursor = Cursors.Hand
    End Sub

---

JF Collombet ® CreateSpecificCulture

Answer 1

Bonjour, jeffcollombet,

D'après l'information dans l'article en bas la propriété Font à une déclaration ReadOnly, ainsi que Button.Font ne pourrait pas être modifié par un code :
Button.Font Property
Merci de nous tenir au courant.

Cordialement,
Teodora

---

Votez! Appel à la contribution TechNet Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

Answer 2

Bonjour,

Si on est exigeant sur la présentation on peut peut-être s'adresser à un autre contrôle, par exemple une image a aussi un événement onClick, sauf erreur ...

ça suppose un peu plus de tâtonnement bien entendu.

Answer 3

Oui c'est vrai, mais en l'occurrence je passais par un button pour l'ergonomie de l'application étant donnée quelle est utilisée sur une borne tactile

---

JF Collombet ® CreateSpecificCulture