會傳回可用來控制文件之 Microsoft Visual Basic for Applications (VBA) 專案的自動化物件。 唯讀。
語法
表情。VBProject
詞 一個代表 文件 物件的變數。
傳回值
物件
註解
要取得 VBProject 屬性回傳物件的資訊，請遵循以下步驟：
若要取得 VBProject 屬性所傳回之物件的詳細資訊
在開發者標籤的程式碼群組中，點選 Visual Basic。
在 Visual Basic 編輯器中，按一下 [工具] 功能表上的 [參考]。
在 [參考] 對話方塊中，按一下 [Microsoft Visual Basic for Applications 擴充性 5.3]，然後按一下 [確定]。
按一下 [檢視] 功能表上的 [物件瀏覽]。
在 [專案/程式庫] 清單中，選取 [VBIDE] 型別程式庫。
在 類別 列表中，檢視名為 VBProject 的類別。
如果此文件中沒有任何 VBA 專案存在，則 VBProject 屬性會建立一個專案。
從 Visio 2002 開始，若您在安全強化環境中執行且系統管理員封鎖了 Visual Basic 物件模型的存取， VBProject 屬性會產生例外。 沒有使用者介面或程式化方式開啟此功能——系統管理員必須透過設定群組原則來開啟或關閉 () 存取權限。 這有助於防止病毒傳播，方法是透過存取常用範本中的 Visual Basic 專案並將病毒程式碼注入其中。
範例
這個 VBA 巨集會示範如何將 VBA 專案所參考的程式庫名稱列印到 [立即] 視窗中。
執行此程式碼前，請確認在信任中心對話框的巨集設定頁面的開發者巨集設定中勾選了「信任存取 VBA 專案物件模型」勾選框 (點擊「檔案」標籤、「選項」、「信任中心」，然後點擊「信任中心設定」) 。
Public Sub VBProject_Example()
Dim varThisProject As Variant
Dim intReferences As Integer
Set varThisProject = ThisDocument.VBProject
intReferences = varThisProject.References.Count
While intReferences > 0
Debug.Print varThisProject.References(intReferences).Name
intReferences = intReferences - 1
Wend
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。