Formül Çubuğunu makro ile daraltma

[volki_112]

Merhabalar. Resimdeki formül çubuğunu makro ile nasıl daraltabiliriz.

 

[Korhan Ayhan]

Merhaba,

Faydalı olabilir...

Sub FormulCubuguYuksekliginiDegistir()
    ' Formül Çubuğunun yüksekliğini değiştiren klavye kısayolu (Ctrl + Shift + U)
    ' "^" Ctrl tuşunu, "+" ise Shift tuşunu temsil eder.
    
    Application.SendKeys "^+{u}"
    
    ' Kullanıcıya bir geri bildirim mesajı göstermek faydalı olabilir
    MsgBox "Formül Çubuğu yüksekliği değiştirildi (Genişletildi/Daraltıldı)."
End Sub

 

[volki_112]

Merhaba,

Faydalı olabilir...

Sub FormulCubuguYuksekliginiDegistir()
    ' Formül Çubuğunun yüksekliğini değiştiren klavye kısayolu (Ctrl + Shift + U)
    ' "^" Ctrl tuşunu, "+" ise Shift tuşunu temsil eder.
   
    Application.SendKeys "^+{u}"
   
    ' Kullanıcıya bir geri bildirim mesajı göstermek faydalı olabilir
    MsgBox "Formül Çubuğu yüksekliği değiştirildi (Genişletildi/Daraltıldı)."
End Sub

hocam genişse daraltsın. dar ise hiç bir şey yapmasın şeklinde nasıl yaparız. olabilir mi

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub FormulaBarHeight_Min()
    If Application.FormulaBarHeight > 1 Then
        Application.FormulaBarHeight = 1
    End If
End Sub

 

[volki_112]

Deneyiniz.

Option Explicit

Sub FormulaBarHeight_Min()
    If Application.FormulaBarHeight > 1 Then
        Application.FormulaBarHeight = 1
    End If
End Sub

teşekkürler hocam