VBA Excel'de şerit küçültme

Excel 2013'teki şeridi VBA ile en aza indirmek istiyorum. Ben şeridi değiştirmek istemiyorum ve "Dosya", "Ekle", vb. Dahil olmak üzere her şeyi saklamak istemiyorum. Birkaç farklı yöntem denedim ama hiçbiri istediğimi tatmin etmiyor.VBA Excel'de şerit küçültme

Bu gizler her şeyi:

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

Bu geçiş yapar:

CommandBars.ExecuteMso "MinimizeRibbon"

Bu aynı zamanda değişir:

SendKeys "^{F1}"

ben sadece benim kurdele zorlayabilir nasıl minimize edilecek?

kaynak

2013-09-26 Kyle Weller

Neden kullanıcıyı karıştırmak istiyorsunuz? Kullanıcının şeridin görünüp görünmeyeceğine karar vermesine izin verin. – adrianm

Kullanıcı karar vermek için nereye gitmiyor? Bir düğmeye tıklayın, bir makro çalıştırın, karar verin. –

'Workbook_Open()' olayında 'Application.DisplayFullScreen = True' nasıl? –

Bu aramaya çalışıyoruz ama onun açık

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

Açık Şerit minimum boyut açık mı diye 150 yani bu sadece geçiş yapılır gibi görünüyor, bu kurdeleyi aza indirmek için çalışacaktır zaman emin değil

kaynak

2013-09-26 19:31:55 engineersmnky

Teşekkürler, bu harika bir şey, ama şeridimin açıldığında 147 ve kapandığında 61 olduğunu fark ettim. Bu yüzden 100. –

eşiklerimi ayarlamıştım, çünkü çalışma sayfası odağı olmadığı için bir Userform'dan başlatılırsa gönderiler başarısız olur, bu nedenle ya her iki göndericiden önce etkinleştirin ya da –

-3

bu kısa sürede çalışma kitabı ardından açılan çalışma kitabı koduna bu eklemek gibi tamamen gizli olmasını istiyorsanız:

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

kaynak

2014-04-14 13:41:40 RJSK

komut çubuklarını kullanın. sonuçtan memnun değil. –

ölçü Şerit yüksekliği, buna geçiş, aga ölçmek ve daha uzunsa, yeniden başlat. Application.Screenupdating = false değerini ayarlamak için de en iyisi.

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

Ve halktan ne istediğinizi yapmak istediğinizi sorduğunda nefret ediyorum. Bir Diktatör Uygulamanız var ve Excel ile etkileşimde% 100 kontrole ihtiyacım var.

kaynak

2014-08-10 15:11:30 LawrieM

VBA Excel'de şerit küçültme

cevap

İlgili konular