Excelde standart Menü

[monsieur]

Merhaba,

Aşağıdaki kodlarla excele menü eklentisi yapılabiliyormuş (denedim oldu ). Ben bu menüyü excel açıldığında normal menü gibi standart olmasını istiyorum bunu nasıl yapabilirim.


Şimdiden teşekkürler.

Sub Gorunum_Menu_Hazirla()
  Dim AnaMenu As CommandBarControl, AltMenu As CommandBarControl
  
  KomutDugmemiSil "Gorunum"
  Set AnaMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
  
  With AnaMenu
    .Caption = "AnaMenu"
    .Tag = "Gorunum"
    .BeginGroup = False
  End With
  
  With AnaMenu.Controls.Add(msoControlButton, 1, , , True)
    .Caption = "Menu1"
    .OnAction = "MakroCagir"
  End With
  
  If AnaMenu Is Nothing Then Exit Sub
  
  Set AltMenu = AnaMenu.Controls.Add(msoControlPopup, 1, , , True)
  
  With AltMenu
.Caption = "Menu2"
  End With
  
  With AltMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "1.komut"
.OnAction = "MakroCagir"
  End With
  
End Sub

Sub KomutDugmemiSil(Menum As String)
  Do
    On Error Resume Next
    Application.CommandBars.FindControl(, , Menum, False).Delete
  Loop Until Application.CommandBars.FindControl(, , Menum, False) Is Nothing
End Sub

Sub MenüSil()
    KomutDugmemiSil "Gorunum"
End Sub

Sub MakroCagir()
  MsgBox "Geldim : " & Now
End Sub

OnAction = komutu ile makrunuzu hazırlyaıp çağırabilirsiniz.

 

[janveljan]

Forumda eklentilerle ilgili bir araştırma yaparsanız sorunuzun cevabını bulabilirsiniz.
Add-Ins / Eklenti

 

[monsieur]

Oraya dll eklendiğini biliyorum fakat bu kodları dll yaptığım zaman oradan çalışacakmıdır ben onu merak ediyorum

ve birde excel için hiç dll yazmadım normal bir dll gibimi yazacağız.

Kolay gelsin.

 

[1Al2Ver]

Oraya dll eklendiğini biliyorum fakat bu kodları dll yaptığım zaman oradan çalışacakmıdır ben onu merak ediyorum

ve birde excel için hiç dll yazmadım normal bir dll gibimi yazacağız.

Kolay gelsin.

Merhaba, şayet eklentiyi ilgili klasöre (AddIns) kopyaladıysanız ;

Kopyalanan eklenti Araçlar--Eklentiler'de görülür, önündeki kutucuğu tıklayın,

Eklenti bu durumda her dosyada çalışır,

Kolay gelsin.