Gönderen Konu: Excel Dosya Menüsüne Özel Menü Eklemek  (Okunma sayısı 5901 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Excelce.Net

  • @Excelce.Net Kurucu
  • *
  • İleti: 147
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası...
    • Excelce.Net
Excel Dosya Menüsüne Özel Menü Eklemek
« : 18 Şubat 2010, 22:26:15 »
Excel "Dosya" menüsüne özel menü eklemek için makro kodu;

Kod: [Seç]
Sub Excelce_Ozel_Menu_Olustur()
   With CommandBars(1).Controls("Dosya")
      .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Excelce_Menü"
      .Controls("Excelce_Menü").OnAction = "Excelce_Menü"
      .Controls("Excelce_Menü").FaceId = 16
   End With
End Sub

Private Sub Excelce_Menü()
MsgBox "Özel yapım Excelce_Menü 'yü seçtiniz...", vbInformation, "Excelce.Net"
End Sub

"Dosya" menüsünü sıfırlayıp, eski haline getirmek için kullanılacak makro kodu;

Kod: [Seç]
Sub Excelce_Menu_iptal()
   CommandBars(1).Controls("Dosya").Reset
End Sub


Menü resimdeki gibi görünecektir;


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]