Excelde menülerin indeks değerleri ve ya adları?

[hsayar]

Evet çok genel bir soru olacak ama excelde tüm indeks değerlerini öğrenebileceğim bir yer vamı
çubuklar

1 Worksheet bar onu öğrendim
Set c = Application.CommandBars(1)
1 de 5 sırada olan biçim
Set cp = c.Controls(5)
şeklinde


1
sağ tuş menüleri
Application.CommandBars("cell").Controls.Add
hücrede sağ tıklayınca açılan menüye ek için
Application.CommandBars("Row").Controls.Add
satıra sağ tıklayınca açılan menüye ek için
Set SutGen_stn = Application.CommandBars("Column").Controls.Add

şeklinde aa sayfa sekmelerine sağ tıklyınca çıkan menünün adı veya indeksinin nasıl bulurum genel olarak hepsinin yazıl olduğu dosya klasör adres vs. varmı?

Saygılarımla

 

[Ferhat Pazarçevirdi]

Linki inceleyin.

http://support.microsoft.com/kb/213552

 

[hsayar]

teşekkürler umarım sayfa sekmelerine sağ tıklyınca açılan menü sorusunun cevabını bulurum daha açılmadı

 

[hsayar]

"ply" imiş oh be

 

[Haluk]

Bu da işinize yarayabilir ...

    'Haluk ® - 17/02/2006
    Sub CommandBarControlID()
        Dim Header1 As String * 5
        Dim Header2 As String * 38
        Dim Header3 As String * 10
        Dim Capt As String * 30
        Dim WinScrObj As Object, MyShortCut As Object
        Dim MyFolder As String, MyFile As String
        Dim TargPath As String

        TargPath = "C:\MS-ExcelControlsID.txt"
        MyFile = "MS-ExcelControlsID.txt"
       
        Header1 = "No"
        Header2 = "Kontrol"
        Header3 = "ID"
            Open TargPath For Output As #1
            Print #1, Header1; Header2; Header3
            Print #1, String(50, "-")
            Print #1,
                For Each Ctrl In CommandBars.FindControls
                    i = i + 1
                    Capt = Replace(Ctrl.Caption, "&", "")
                    CtrlId = Ctrl.ID
                    Print #1, i & ") "; Capt, CtrlId
                Next
            Close #1
           
        Set WinScrObj = CreateObject("WScript.Shell")
        MyFolder = WinScrObj.SpecialFolders("DeskTop")
        Set MyShortCut = WinScrObj.CreateShortcut _
                        (MyFolder & "\" & MyFile & ".lnk")
        With MyShortCut
            .TargetPath = WinScrObj.ExpandEnvironmentStrings(TargPath)
            .WorkingDirectory = WinScrObj.ExpandEnvironmentStrings(TargPath)
            .WindowStyle = 4
            .IconLocation = WinScrObj.ExpandEnvironmentStrings(TargPath & ", 0")
            .Save
        End With
       
        MsgBox "Masaustune dosya icin kisa yol olusturuldu ...", vbInformation, "Rapor !"
        Set WinScrObj = Nothing
        Set MyShortCut = Nothing
    End Sub

 

[Haluk]

Bir de bu var ....

 

[hsayar]

teşekkür ederim hocam Birde control id lerin kullanımına ilişşkin küçük bir örnek rica etsem mümkünmü?