वीबीए एक्सेल

Question

में रिबन को कम करता है मैं वीबीए के साथ एक्सेल 2013 में रिबन को कम करना चाहता हूं। मैं रिबन को टॉगल नहीं करना चाहता, और मैं "फाइल", "सम्मिलित करें" आदि सहित सब कुछ छिपाना नहीं चाहता हूं। मैंने कई अलग-अलग तरीकों की कोशिश की है, लेकिन कोई भी मुझे संतुष्ट नहीं करता है।

यह खाल सब कुछ:

Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",False) 

यह टॉगल:

CommandBars.ExecuteMso "MinimizeRibbon" 

यह भी टॉगल:

SendKeys "^{F1}" 

कैसे मैं बस मेरी रिबन मजबूर कर सकते हैं कम से कम करने?

Answer 1

सुनिश्चित नहीं हैं कि जब आप इस कॉल करने के लिए कोशिश कर रहे हैं लेकिन इस रिबन कम करने के लिए अपनी खुली

If Application.CommandBars("Ribbon").Height >= 150 Then 
    SendKeys "^{F1}" 
End If 

ओपन रिबन न्यूनतम आकार होने के लिए 150 तो यह केवल टॉगल होगा यदि यह खुला है लगता है अगर काम करेंगे

Answer 2

आप इस पूरी तरह से जैसे ही कार्यपुस्तिका तो खोला है कार्यपुस्तिका कोड से जोड़ें छिपा हो करना चाहते हैं:

Private Sub Workbook_Open() 
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)" 
End Sub 

Answer 3

उपाय रिबन ऊंचाई, यह टॉगल, आगा को मापने में और यदि लंबा, फिर से टॉगल करें। एप्लिकेशन सेट करने के लिए भी सबसे अच्छा .creenupdating = false।

ht1 = Application.CommandBars("Ribbon").Height 
SendKeys "^{F1}", False 
DoEvents 
ht2 = Application.CommandBars("Ribbon").Height 
If ht2 > ht1 Then SendKeys "^{F1}", False 

और मुझे इससे नफरत है जब लोक सवाल तुम क्यों तुम क्या चाहते क्या करना चाहते हैं। मेरे पास एक डिक्टेटर ऐप है और एक्सेल के साथ बातचीत पर 100% नियंत्रण की आवश्यकता है।