Excel Vba Forum - Excelce.Net
EXCEL DOSYA ve KOD ÖRNEKLERİ (Sadece Okunabilir) => Excel Menüleri => DOSYA => Konuyu başlatan: Excelce.Net - 18 Şubat 2010, 22:26:15
-
Excel "Dosya" menüsüne özel menü eklemek için makro kodu;
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;
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.]