Excel 2007 de menü düzeni

[hsayar]

Excel 2007 kullanıyorum
Aşağıdaki kodlar ile sadece MasrafTakip Çalışma kitabında çalışan Araç çubuğu ve bunlara komutlar ekledim.
Ancak resmin üst kısmında görüleceği üzere soldan sağa düm düz gidiyor ben bunların altalta gelmesini istiyorum. Nasıl yapabilirim?

Eğer mümkünse aynı resmin alt sol kısmında yer alan menü düzenine nasıl benzetebilirim?

Saygılarımla.

Dim cmbMTP As CommandBar
Const strMTP As String = "MasrafTakip"
Private Sub Workbook_Activate()
  Call MTP_AraçÇubuğuEkle
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Call MTP_AraçÇubuğuKaldır
End Sub
Private Sub Workbook_Deactivate()
  Call MTP_AraçÇubuğuKaldır
End Sub
Sub MTP_AraçÇubuğuEkle()
  Call MTP_AraçÇubuğuKaldır
  Set cmbMTP = Application.CommandBars.Add(strMTP, , , True)
  With cmbMTP
    .Visible = True
        With .Controls.Add(msoControlButton) 'bir sonrasına kendi komutumuzu yerleştirdik....
            .Style = msoButtonIconAndCaption
            .Caption = "&YıllıkBilanço"
            .OnAction = "x_Yili_Biloncosu"
            .FaceId = 2659 '9594
            .Tag = "HsrMSR01"
            .Parameter = 1
        End With
        With .Controls.Add(msoControlButton) 'bir sonrasına kendi komutumuzu yerleştirdik....
            .Style = msoButtonIconAndCaption
            .Caption = "&Genel Analiz Dökümü"
            .OnAction = "SubHsrMsr_GnlAnlzDok"
            .FaceId = 2521 '9594
            .Tag = "HsrMSR02"
'            .BeginGroup = True
        End With
        With .Controls.Add(msoControlButton) 'bir sonrasına kendi komutumuzu yerleştirdik....
            .Style = msoButtonIconAndCaption
            .Caption = "&Prsnl Analiz Dökümü"
            .OnAction = "SubHsr_MsrPrsAnlzDok"
            .FaceId = 2521 '9594
            .Tag = "HsrMSR03"
        End With
        With .Controls.Add(msoControlButton) 'bir sonrasına kendi komutumuzu yerleştirdik....
            .Style = msoButtonIconAndCaption
            .Caption = "&Genel Analiz Dökümü2"
            .OnAction = "SubHsrMsr_GnlAnlzDok2"
            .FaceId = 2521 '9594
            .Tag = "HsrMSR02"
        End With
  End With
End Sub

Sub MTP_AraçÇubuğuKaldır()
    On Error Resume Next
    Application.CommandBars(strMTP).Delete
    On Error GoTo 0
End Sub

 

[hsayar]

bu olay xlsm dosyalarında olmuyor mu?