Visio) (Document.Company 屬性

會取得或設定文件所屬的公司名稱，這是文件的其中一個屬性。 讀取/寫入。

語法

運算式。公司

表達 代表 Document 物件的變數。

傳回值

字串

註解

設定Company屬性相當於在 [屬性] 對話方塊的 [公司] 方塊中輸入資訊 (按一下 [檔案] 索引標籤，依序按一下 [資訊]、[屬性]，然後按一下 [進階屬性]) 。

範例

這個 Microsoft Visual Basic 宏會示範如何使用 Company 屬性來記錄繪圖所在的公司。 它會將 Document 物件新增至 Documents 集合，並設定 Document 物件的 Company 屬性以及其他屬性。

在執行這個巨集之前，請用您的值來替代下列程式碼中的斜體字項目。 若要驗證是否已設定這些屬性，請開啟 [屬性] 對話方塊。

 
Public Sub Company_Example() 
  
    Dim vsoDocument As Visio.Document  
 
    Set vsoDocument = Documents.Add("")  
 
    'Set the properties of the document.  
    vsoDocument.Title = "document title "  
    vsoDocument.Creator = "author name "  
    vsoDocument.Description = "document description "  
    vsoDocument.Keywords = "keyword1, keyword2, keyword3 "  
    vsoDocument.Subject = "document subject "  
    vsoDocument.Manager = "manager name "  
    vsoDocument.Company = "company name "  
 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。