Visio) (Document.VBProject 屬性

會傳回可用來控制文件之 Microsoft Visual Basic for Applications (VBA) 專案的自動化物件。 唯讀。

語法

運算式。VBProject

表達 代表 Document 物件的變數。

傳回值

物件

註解

若要取得 VBProject 屬性所傳回之物件的相關資訊，請遵循下列步驟：

若要取得 VBProject 屬性所傳回之物件的詳細資訊

1. 在 [開發人員] 索引標籤上的 [程式碼] 群組中，按一下[Visual Basic]。

2. 在 Visual Basic 編輯器中，按一下 [工具] 功能表上的 [參考]。

3. 在 [參考] 對話方塊中，按一下 [Microsoft Visual Basic for Applications 擴充性 5.3]，然後按一下 [確定]。

4. 按一下 [檢視] 功能表上的 [物件瀏覽]。

5. 在 [專案/程式庫] 清單中，選取 [VBIDE] 型別程式庫。

6. 在 [ 類別] 清單中，檢查名為 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 支援與意見反應。