Add-Ins yerine başka birşey yazdırmak

[mavisachal]

Arkadaşlar selam,
Ben Excel'de kendimce bir menu ekledim. Ancak şöyle bir sorunum war ki ben menumu ekledikten sonra bir de baktim bu Add-Ins diye bir bolum altına geliyor. Yani sanirim bu Excel 2007'de olan birsey oysaki ben Add-Ins yerine direk Menumun adı olan telefon rehberi yazsın istiyorum.
Ekte örneği görebilirsiniz.
Bunu nasıl yapabiliriz acaba?
Teşekkürler.

Kodlar;

Sub auto_open()
On Error Resume Next
Application.CommandBars(1).Controls("Telefon Rehberi").Delete
Set Menu = Application.CommandBars(1).Controls.Add(msoControlPopup)
Menu.Caption = "Telefon Rehberi"
With Menu.Controls.Add(msoControlButton)
.Caption = "Rehber"
.OnAction = "formac"
.FaceId = 479
End With
End Sub
Sub auto_close()
On Error Resume Next
Application.CommandBars(1).Controls("Telefon Rehberi").Delete
End Sub
Sub formac()
MsgBox "işlem tamam"
End Sub

 

[Ferhat Pazarçevirdi]

Merhabalar,

Eğer 2007 ve üstü bir versiyon kullanıyorsanız, bu menü oluşturma kodları ile
ancak,

Mazi kalbimde bir yaradır
Bahtım saçlarımdan karadır
Beni zaman zaman ağlatan
İşte bu hazin hatıradır
​

tangosunu söyleyebilirsiniz. Durumunuzu, -en iyi- bu parça ifade eder.

Excel 2007 ile birlikte; bildiğimiz/alıştığımız anlamda "Menü" kavramı bitmiştir. Bunun yerine Excel bünyesine, Ribbon'ları (Şeritleri) zerk etmişlerdir.

Ama Microsoft, eski kodlamalara yatırım yapmış insancıkları da üzmemek için, uyumluluk anlamında Add-Ins (Eklentiler) şeridini bizlere tahsis etme nezaketini göstermiştir.

Sorunun başlangıcı Excel 2007 ile birlikte değişen dosya yapısında .. Yeni dosya yapısı, XML bazlı tasarlanmıştır. XML : Extensible Markup Language (Genişletilebilir İşaretleme Dili)

Örneğin, .xlsx uzantılı gördüğünüz tek bir dosya, -yapısı gereği- içinde değişik uzantılı (.rels, .xml, .bin) birçok başka dosya da barındırmaktadır. Tıpkı bir .zip/.rar dosya gibi düşünün...

Bu dosya yapısının birçok avantajının olduğu söylenmekte... Merakınız varsa, burayı inceleyin.

Manuel olarak şeritlere müdahale etmek mümkün değildir. Eğer özel bir şerit (size göre Add-Ins'in dışında bir şerit) ilave etmek istiyorsanız, .xlsm dosyanızın içine özel bir xml dosya yerleştirmelisiniz.

Bunun için de, "customUI.xml" adında bir dosya oluşturmalısınız. (CustomUI : Custom User Interface/Özel Kullanıcı Arayüzü)

İşin bu kısmı biraz karışık... Daha doğrusu, hala alışamadığımız için, yabancı geliyor.

Ben amerikayı yeniden keşfetmektense, Ron de Bruin'in açıklamalarını incelemenizi öneririm. Aradığınız birçok şeyi, Ron cevaplamış.

Kısaca, Excel 2003 ve öncesi için geçerli menü kodlarınızı revize etmeden, probleminizi çözmenize imkan yok.

.

 

[mavisachal]

Teşekkür ederim cok guzel aciklamisiniz ve site cok yararli geldi