Araç çubuğunda Makro Butonu

[istavrit]

Merhaba,

Excel 2007 kullanıyorum, Hızlı erişim Araç çubuğuna macro çalıştıran bir buton ekledim. Ancak bu buton sadece bu excelde çalışıyor. açtığım diğer excellerde macro bulunamıyor, sebebi ne olabilir acaba?

Teşekkürler...

 

[N.Ziya Hiçdurmaz]

Yanıt

Makrolarınıza bu şekil kısayol önerebilirim
ThisWorkbook yazılacak

Private Sub Workbook_Open()
On Error Resume Next
Application.CommandBars(1).Controls("TEST").Delete
Set Menu = Application.CommandBars(1).Controls.Add(msoControlPopup)
Menu.Caption = "TEST"
With Menu.Controls.Add(msoControlButton)
.Caption = "DENEME"
.OnAction = "MAK1"
.FaceId = 474
End With
End Sub

Module yazılacak

Sub MAK1()
MsgBox "Kodlarınız", vbInformation
End Sub

 

[istavrit]

Öncelikle teşekkür ederim sn. Ziya.

Ancak bu kodu kullanamadım. excel 2003'te bu tip bir sorun yoktu.
araç çubuğunu özelleştirerek butona makroyu atıyorduk ve tüm yeni excellerde kullanabiliyorduk.

bu işin makrosuz yapılabileceğini düşünüyorum.

Makronuzu denedim çalışıyor, tekrar teşekkürler