Visio) (Document.Company 屬性

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

語法

運算式。公司

運算式 代表 Document 物件的變數。

傳回值

字串

註解

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

範例

此 Microsoft Visual Basic 巨集示範如何使用 [公司 ] 屬性來記錄為其製作繪圖的公司。 它會將 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 支援與意見反應。