Yeni menü ekleyerek içerik oluşturmak

[mekist]

Merhaba Üstadalar,


Excelde bir sayfa içinde 3-4 tane makro var.Bunları Araç çubuğunda bir menü oluşturup menün altına yerleştirilebiliyormu.Excell 2003 de kendimiz menü oluşturabiliyoduk.2007 de menü oluşturma göremedim.Bu konuda yardımınıza ihtiyacım var.

 

[mekist]

Aşağıdaki kodları inceleyebilirsiniz.

Burada ilk iki kod ana menü,alttaki iki kod ise alt menü yaratır.

Type:=msoControlPopup ana menü için kullanılır.



Kod:
Sub Autpen()
Dim ActiveMenuListe As Object
Set ActiveMenuListe = CommandBars.ActiveMenuBar
Dim Menu As Object
Set Menu = ActiveMenuListe.Controls.Add(Type:=msoControlPopup, Temporary:=True)
Menu.Caption = "&ÖzelMenü"

Dim M16 As Object
Set M16 = Menu.Controls.Add(Type:=msoControlButton, ID:=4)
With M16
.Caption = "&Boş"
.OnAction = "Yardım"
.FaceId = 97
End With
'********************************************************************
Dim M98 As Object
Set M98 = Menu.Controls.Add(Type:=msoControlPopup, ID:=1)
With M98
.Caption = "&Diğer"
End With
'********************************************************************
Dim M9801 As Object
Set M9801 = M98.Controls.Add(Type:=msoControlButton, ID:=1)
With M9801
.Caption = "&Cd-Rom Aç"
.OnAction = "CDRoomAcar"
.FaceId = 33
End With
'********************************************************************
Dim M9802 As Object
Set M9802 = M98.Controls.Add(Type:=msoControlButton, ID:=1)
With M9802
.Caption = "&Cd-Rom Kapa"
.OnAction = "CDRoomKapat"
.FaceId = 27
End With
End Sub

Bu kodları Recep İvedik'İn mesajından aldım.
Burdaki kodları detaylı olarak açıklayacak biri varmıdır.

 

[Korhan Ayhan]

Selamlar,

Sn. mekist,

Sanırım Recep İPEK beyin soyadını yazarken yanlış yazdınız.

......
Bu kodları Recep İvedik'İn mesajından aldım.
Burdaki kodları detaylı olarak açıklayacak biri varmıdır.

 

[mekist]

Selamlar,

Sn. mekist,

Sanırım Recep İPEK beyin soyadını yazarken yanlış yazdınız.

Haklısınız yanlış olmuş.Yanlış anlama olmasın bilerek yazılmamıştır.Yanlışlıktan dolayı özür dilerim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linkteki konuları inceleyiniz.

http://www.excel.web.tr/f115/