Sayfaları Menü Halinde Gösterme

[janveljan]

Belgedeki sayfaları menu halinde gösteren ve menüden ilgili sayfa seçilince o sayfayı açan kodlar.

Sub auto_open()
  Dim AnaMenu As CommandBarControl
  Set AnaMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
  With AnaMenu
    .Caption = "Sayfalar"
    .BeginGroup = False
  End With
  For i = 1 To ActiveWorkbook.Sheets.Count
  With AnaMenu.Controls.Add(msoControlButton, 1, , , True)
    .Caption = Sheets(i).Name
    .OnAction = "sayfaac"
  End With
  Next
End Sub
Sub sayfaac()
    Sheets(Application.CommandBars.ActionControl.Caption).Select
End Sub
Sub auto_close()
    Application.CommandBars("Worksheet Menu Bar").Reset
End Sub

 

[ersoyalan]

Merhaba,

Kodları örnek bir dosyaya ekleyip gönderirmisin.

E.ALAN

 

[janveljan]

Dosya ekte