VBA Excel Button redimensionne après avoir cliqué dessus (bouton de commande)

Comment puis-je arrêter un bouton de redimensionnement? Chaque fois que je clique sur le bouton, soit la taille du bouton ou de la taille de la police des changements.

Note: je ne peut pas verrouiller ma feuille que ma Macro va écrire dans la feuille.

Autosize est éteint. Je exécutez Excel 2007 sur Windows 7 (64 Bits).

source d'informationauteur user668338 | 2012-03-06

  1. 6

    Je utiliser pour les zones de liste. Même principe pour les boutons; adapter selon le cas.

    Private Sub myButton_Click()
    Dim lb As MSForms.ListBox
    Set lb = Sheet1.myListBox

    Dim oldSize As ListBoxSizeType
    oldSize = GetListBoxSize(lb)

    ' Do stuff that makes listbox misbehave and change size.
    ' Now restore the original size:
    SetListBoxSize lb, oldSize
End Sub

    Il utilise le type suivant et procédures:

    Type ListBoxSizeType
    height As Single
    width As Single
End Type

Function GetListBoxSize(lb As MSForms.ListBox) As ListBoxSizeType
    GetListBoxSize.height = lb.height
    GetListBoxSize.width = lb.width
End Function

Sub SetListBoxSize(lb As MSForms.ListBox, lbs As ListBoxSizeType)
    lb.height = lbs.height
    lb.width = lbs.width
End Sub
  2. 3

    J'ai ajouté un peu de code à la fin de la onClick ainsi: 

    CommandButton1.Width = 150
CommandButton1.Height = 33
CommandButton1.Font.Size = 11

    Semble fonctionner.

    J'ai eu le problème d'une manière légèrement différente. En ouvrant le classeur sur mon écran de portable, puis de passer à mon moniteur de grande taille. Même cause, je suppose.

  3. 1

    (Excel 2003)

    Il me semble il y a deux questions différentes:
    - le redimensionnement de texte d'UN bouton en cliquant dessus(mais pas toujours, je ne sais pas pourquoi), et
    - modification de la taille de TOUS les boutons, lors de l'ouverture du classeur sur un écran avec une résolution différente (qui subsistent même lorsque de retour à l'affichage initial).

    Comme pour l'individu problème de redimensionnement: j'ai trouvé que c'est suffisant pour modifier une dimension du bouton pour "rajeunir".
    Tels que :

     myButton.Height = myButton.Height + 1
 myButton.Height = myButton.Height - 1

    Vous pouvez le mettre dans chaque bouton en cliquant sur sub ("myButton_Click"), ou de la mettre en œuvre
    une Classe personnalisée pour le "onClick" de l'événement.

  4. 0

    Utiliser un bouton de Formes plutôt qu'un ActiveX, les contrôles ActiveX au hasard de mal se conduire eux-mêmes sur des feuilles

  5. 0

    Vous avez une commande de sélection dans les boutons de macro?

    Peu de temps après j'ai renommé certaines cellules dans une feuille de calcul, y compris celle que le bouton à bascule sélectionne après sa fonction de bascule, la taille de police réduite. J'ai corrigé cela, assurez-vous Range("...").Sélectionnez inclus le nouveau nom de la cellule, et non pas les coordonnées.

  6. 0

    Cela se produit lorsque la résolution de l'écran /modification des paramètres après Excel a été ouvert.

    Par exemple:

    1. Ouvrez un classeur qui contient un bouton
    2. Connecter avec le Bureau à Distance à partir d'un ordinateur avec différentes taille de l'écran
    3. Cliquez sur le bouton => la taille du bouton va changer

    La seule solution que j'ai trouvé est de fermer Excel et de le rouvrir avec les nouveaux paramètres de l'écran. Toutes les instances d'Excel doit être fermé, y compris toute instance invisible exécutés par d'autres processus sans interface doit être tué.

  7. 0

    Vieux problème, mais semble toujours être un problème pour ceux d'entre nous coincé sur Excel 2007. A avoir le même problème sur ActiveX Objet Listbox et permettrait d'élargir sa taille sur chaque re-calculer. Le LinkCells propriété était à la recherche d'une dynamique (offset) de la gamme de ses valeurs. La restructuration de sorte qu'il était à la recherche à un niveau normal fixé mon problème.

  8. 0

    J'ai eu ce problème à l'aide d'Excel 2013. Tout pour bien fonctionner pendant un long moment et tout d'un coup, quand j'ai cliqué sur le bouton (ActiveX), il est devenu plus grand et que la police est plus petit en même temps.

    Sans enregistrer le fichier, j'ai redémarré mon ordinateur et ouvrir le même fichier Excel à nouveau et tout est rentré dans l'ordre.

  9. 0

    Mine redimensionnée après l'impression et de changer le zoom ne redessine l'écran et il fixe

    ActiveWindow.Zoom = 100
ActiveWindow.Zoom = 75
  10. 0

    Vu ce problème dans Excel 2007, 2010 et 2013

    Ce code empêche le problème de se manifester. Le Code doit s'exécuter à chaque fois un active X de l'objet est activé.

    Sub Shared_ObjectReset()

    Dim MyShapes As OLEObjects
    Dim ObjectSelected As OLEObject

    Dim ObjectSelected_Height As Double
    Dim ObjectSelected_Top As Double
    Dim ObjectSelected_Left As Double
    Dim ObjectSelected_Width As Double
    Dim ObjectSelected_FontSize As Single

    ActiveWindow.Zoom = 100

    'OLE Programmatic Identifiers for Commandbuttons = Forms.CommandButton.1
    Set MyShapes = ActiveSheet.OLEObjects
    For Each ObjectSelected In MyShapes
        'Remove this line if fixing active object other than buttons
        If ObjectSelected.progID = "Forms.CommandButton.1" Then
            ObjectSelected_Height = ObjectSelected.Height
            ObjectSelected_Top = ObjectSelected.Top
            ObjectSelected_Left = ObjectSelected.Left
            ObjectSelected_Width = ObjectSelected.Width
            ObjectSelected_FontSize = ObjectSelected.Object.FontSize

            ObjectSelected.Placement = 3

            ObjectSelected.Height = ObjectSelected_Height + 1
            ObjectSelected.Top = ObjectSelected_Top + 1
            ObjectSelected.Left = ObjectSelected_Left + 1
            ObjectSelected.Width = ObjectSelected_Width + 1
            ObjectSelected.Object.FontSize = ObjectSelected_FontSize + 1

            ObjectSelected.Height = ObjectSelected_Height
            ObjectSelected.Top = ObjectSelected_Top
            ObjectSelected.Left = ObjectSelected_Left
            ObjectSelected.Width = ObjectSelected_Width
            ObjectSelected.Object.FontSize = ObjectSelected_FontSize

        End If
    Next

End Sub