返回列表 上一主題 發帖

[發問] Excel VBE commandBar control ID 碼的列表

[發問] Excel VBE commandBar control ID 碼的列表

例如對VBE的操作總要有 ID如下:
Application.VBE.CommandBar().findcontrol(ID:= controlID,)

不知哪位大師有這個表可以分享 ,謝謝

回復 2# GBKEE

謝謝 大師,已依照指點執行;
以下的VBA碼是大師曾經指點的,用來顯示 References窗體的, 其中的 ...  .FindControl(ID:=1561).execute  1561找不到;
另,爬文中也有用 ID:=2578 來叫用 VBProject 專案密碼窗體,這個 2578 也在列表中找不到

敢問大師 這些ID是怎麼來的
敬請指點
感恩

    Private Sub 設定引用項目()  '遺漏項存在時用手動刪除,用手動存檔後重新執行程式.
    Dim E
    On Error Resume Next
    With ThisWorkbook.VBProject
        For Each E In .References
         Debug.Print E.Name
        Next
    End With
    If Err <> 0 Then
       Application.CommandBars.FindControl(ID:=1561).Execute
       Application.SendKeys "%T"
       Application.SendKeys "R"
      End
    End If
End Sub

TOP

回復 4# GBKEE


    謝謝 GBKEE 大師
我換個方式:
.findcontrol(ID:=1561). excecute 可以在 2010執行, 取出引用 references 窗體
只是這個號碼 1561 在 ID 列表內找不到

感恩

TOP

回復 6# GBKEE


    謝謝 GBKEE 大師

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
返回列表 上一主題