वीबीए एक्सेल बटन उस पर क्लिक करने के बाद आकार बदलता है (कमांड बटन)

Question

मैं आकार बदलने से बटन को कैसे रोक सकता हूं? प्रत्येक बार जब मैं बटन पर क्लिक करता हूं, तो बटन का आकार या फ़ॉन्ट आकार बदल जाता है।

नोट: मैं अपनी चादर को लॉक नहीं कर सकता क्योंकि मेरा मैक्रो शीट में लिख देगा।

ऑटोसाइज बंद है। मैं विंडोज 7 (64 बिट) पर एक्सेल 2007 चलाता हूं।

Answer 1

एक ActiveX एक के बजाय एक फार्म बटन का प्रयोग करें, ActiveX बेतरतीब ढंग से चादरें

Answer 2

मैं listboxes के लिए निम्नलिखित का उपयोग पर खुद को गलत व्यवहार नियंत्रित करती हैं। बटन के लिए समान सिद्धांत; उपयुक्त के रूप में अनुकूलित करें।

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 

यह निम्न प्रकार के और प्रक्रियाओं का उपयोग करता है:

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 

Answer 3

आप बटन मैक्रो का चयन आदेश है?

वर्कशीट में कुछ कक्षों का नाम बदलने के कुछ ही समय बाद टॉगल बटन टॉगल फ़ंक्शन के बाद चयन करता है, फ़ॉन्ट का आकार घट जाता है। मैंने यह सुनिश्चित करके यह तय किया है कि रेंज ("...")। नया सेल नाम शामिल करें, न कि निर्देशांक।

Answer 4

ऐसा तब होता है जब एक्सेल खोलने के बाद स्क्रीन रिज़ॉल्यूशन/सेटिंग्स बदलती हैं।

उदाहरण के लिए:

1. ओपन किसी कार्यपुस्तिका अलग स्क्रीन आकार के साथ एक कंप्यूटर से दूरस्थ डेस्कटॉप के साथ में पर यह
2. प्रवेश करें एक बटन है कि
3. बटन पर क्लिक करें => बटन आकार होगा

मुझे मिला एकमात्र समाधान एक्सेल को बंद करना और नई स्क्रीन सेटिंग्स के साथ इसे फिर से खोलना है। एक्सेल के सभी उदाहरण बंद किए जाने चाहिए, बिना इंटरफ़ेस के अन्य प्रक्रियाओं द्वारा निष्पादित किसी भी अदृश्य उदाहरण को मारना चाहिए।

Answer 5

पुरानी समस्या, लेकिन अभी भी हम में से उन लोगों के लिए एक मुद्दा है जो Excel 2007 पर फंस गए हैं। ActiveX Listbox ऑब्जेक्ट पर एक ही समस्या थी और प्रत्येक आकार की गणना पर इसका आकार बढ़ाएगा। लिंककल्स संपत्ति अपने मूल्यों के लिए एक गतिशील (ऑफसेट) रेंज की तलाश में थी। पुनर्गठन ताकि वह मेरी समस्या को तय करने वाली सामान्य सीमा की तलाश में था।

Answer 6

मैं onClick इस प्रकार के अंत करने के लिए कुछ कोड कहा:

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

काम करने के लिए लगता है।

मुझे इस मुद्दे को थोड़ा अलग तरीके मिला। मेरे प्राथमिक लैपटॉप डिस्प्ले पर कार्यपुस्तिका खोलकर, फिर इसे मेरे बड़े मॉनीटर पर ले जाया जा रहा है। मुझे लगता है कि वही मूल कारण है।

Answer 7

मुझे Excel 2013 का उपयोग करके यह समस्या थी। लंबे समय तक काम करने के लिए सबकुछ ठीक और अचानक, जब मैंने बटन (ActiveX) पर क्लिक किया, तो यह बड़ा हो गया और फ़ॉन्ट एक ही समय में छोटा हो गया।

फ़ाइल को सहेजने के बिना, मैंने अपने कंप्यूटर को पुनरारंभ किया और उसी एक्सेल फ़ाइल को फिर से खोल दिया और सब कुछ ठीक है।

Answer 8

मेरा मुद्रण के बाद आकार दिया और जूम बदलते स्क्रीन redrew और यह तय

ActiveWindow.Zoom = 100 
ActiveWindow.Zoom = 75 

Answer 9

Excel 2007, में इस समस्या को देखा 2010 और 2013

इस कोड को प्रकट से इस मुद्दे को रोकता है। जब भी एक सक्रिय एक्स ऑब्जेक्ट सक्रिय होता है तो कोड को चलाने की आवश्यकता होती है।

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 

Answer 10

(Excel 2003)

मुझे ऐसा लगता है वहाँ दो अलग-अलग मुद्दे हैं: - एक बटन जब उस पर क्लिक के पाठ का आकार बदलने (हालांकि हमेशा नहीं, पता नहीं क्यों), और - एक अलग रिज़ॉल्यूशन के साथ डिस्प्ले पर कार्यपुस्तिका खोलते समय सभी बटनों का आकार बदलना (जो प्रारंभिक डिस्प्ले पर वापस आने पर भी subsist)।

व्यक्तिगत आकार बदलने के मुद्दे के रूप में: मैंने पाया कि बटन के एक आयाम को "फिर से जीवंत" करने के लिए यह पर्याप्त है। जैसे:

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

आप प्रत्येक बटन के क्लिक उप ("myButton_Click") में रख, या यह "onClick" घटना के लिए एक कस्टम क्लास लागू कर सकते हैं।