Kod:
Sub YeniMenu()
With CommandBars(1).Controls.Add(msoControlPopup)
.Caption = "YeniMenü"
With .Controls.Add(msoControlButton)
.Caption = "Yeni Alt Menü 1"
.FaceId = 210
.BeginGroup = True
.OnAction = "Goster"
End With
With .Controls.Add(msoControlButton)
.Caption = "Yeni Alt Menü 2"
.FaceId = 211
.BeginGroup = True
.OnAction = "Goster"
End With
End With
End Sub
Sub YeniMenuKaldir()
CommandBars(1).Controls("YeniMenü").Delete
End Sub
Sub Goster()
Dim Msg, Style, Title
Msg = "Yeni menü eklediniz"
Style = vbYes
Title = "YeniMenü"
Response = MsgBox(Msg, Style, Title)
End SubArkadaşlar bu yukarıdaki makro yu kullandığım zaman yeni menü ekle makrosunu tıkladığımda bütün excel kitaplarında menü görünüyor.
Benim istedigim sadece çalışma kitabında görünen makro kodu ?
Sizde Var ise benimle paylaşırmısınız?
Birde bu yukardaki makro yu çalıştırdığımda ekledigim menünün altında adan zye sıralama komutu var. Ben bu komutu kendi oluşturdugum makro ile nasıl değiştirceğim. A-Z ye makro kodunun hangisini oldugunu bulamıyorum.
