Modifier la taille de la boîte dans une case à cocher dans Excel avec des contrôles ActiveX?

Question

J'ai cette case à cocher ActiveX dans Excel et je veux changer la taille de la boîte.

Je sais que je peux le faire si je le verrouiller à une cellule et changer la taille des cellules. Y a-t-il un autre moyen?

Answer 1

Utilisez les Shape.ScaleHeight, Shape.ScaleWidth Méthodes

Sub ChangeShapeSize() 
Dim Ht As Single, Wd As Single 

    Ht = 1.75 
    Wd = 2.75 

    With Worksheets(1).Shapes("CheckBox1") 
     .ScaleHeight Ht, msoFalse, msoScaleFromTopLeft 
     .ScaleWidth Wd, msoFalse, msoScaleFromTopLeft 
    End With 

End Sub