menü yapımı

[ormancı06]

Selam
deyişik sayfaları ve kitapları tek bir menü halinde birleştirmek istiyorum.nasıl yapabilirim ekdeki dosyada beş ayrı kitap var hepsine tek menüden ulaşmak istiyorum

 

[Selçuk1]

menü oluşturma kodları(alıntıdır)

Selam
deyişik sayfaları ve kitapları tek bir menü halinde birleştirmek istiyorum.nasıl yapabilirim

belki değerli üstadlarım daha güzel çözümler üretebilirler ama yabancı bir siteden bulduğum ve kısmen Türkçe ye uyarladığım kodları paylaşmak istedim. aşağıdaki kodları kendinize uyarlayabilirseniz excel menü çubuğunda size özel bir menü oluşacaktır. (alıntıdır)

Sub Auto_Open()
Dim AnaMenü As CommandBarControl, AnaAltMenü As CommandBarControl
Sheets("Sayfa1").Select
Range("a1").Select
Set AnaMenü = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With AnaMenü
.Caption = "&Deneme Menü"
.Tag = "MyTag"
.BeginGroup = False
End With
If AnaMenü Is Nothing Then Exit Sub
Set AnaAltMenü = AnaMenü.Controls.Add(msoControlPopup, 1, , , True)
With AnaAltMenü
.Caption = "1.Kısım"
End With
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "1.Kısım Yan Menüleri-1-"
.OnAction = "makrom"
.Style = msoButtonIconAndCaption
.FaceId = 3734
.State = msoButtonUp
End With
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "1.Kısım Yan Menüleri-2-"
.OnAction = "makrom"
.Style = msoButtonIconAndCaption
.FaceId = 3735
.State = msoButtonUp
End With
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "1.Kısım Yan Menüleri-3-"
.OnAction = "makrom"
.Style = msoButtonIconAndCaption
.FaceId = 3733
.State = msoButtonUp
End With
Set AnaAltMenü = AnaMenü.Controls.Add(msoControlPopup, 1, , , True)
With AnaAltMenü
.Caption = "2.Kısım"
End With
With AnaAltMenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "2.Kısım Yan Menüleri-1-"
.OnAction = "makrom"
.Style = msoButtonIconAndCaption
.FaceId = 3733
.State = msoButtonUp
End With
On Error Resume Next
End Sub
Sub makrom()
MsgBox "Deneme Menüsüne ait Makro Çalıştı"
End Sub
Sub auto_close()
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub