Visio) (Document.ProgID 屬性

會傳回代表 ActiveX 控制項、內嵌物件或連結物件之圖形的程式識別碼。 唯讀。

語法

運算式。ProgID

表達 代表 Document 物件的變數。

傳回值

字串

註解

如果圖形不代表 ActiveX 控制項或 OLE 2.0 的內嵌或連結物件，則 ProgID 屬性會觸發例外狀況。 如果 ForeignType 屬性在值中傳回 visTypeIsOLE2，圖形便代表 ActiveX 控制項、內嵌物件或連結物件。

可以使用 Shape 物件的 ProgID 屬性或是 OLEObject 來取得物件的程式識別碼。 每個 OLE 物件類別都會在登錄中為自身儲存一個程式識別碼。 一般而言，這項作業會發生在提供物件的程式進行安裝時。 用戶端程式會使用這個識別碼來識別物件。 當您從 Microsoft Visual Basic 程式執行 GetObject (，「Visio.Application」) 等語句時，會使用 Microsoft Visio 識別碼。

下列是 ProgID 屬性可能傳回的字串：

 
Visio.Drawing.5 
MSGraph.Chart.5 
Forms.CommandButton.1 

在使用圖形的 Object 屬性取得該圖形所代表物件的 IDispatch 介面後，可以取得圖形的 ClassID 或 ProgID 屬性來判斷該介面所提供的方法和屬性。

範例

這個 Microsoft Visual Basic for Applications (VBA) 宏會示範如何取得使用中頁面的OLEObjects集合，並在 [即時運算] 視窗中列印每個OLEObject物件的ProgID。 下列範例會假設使用中頁面至少具有一個 OLE 2.0 內嵌或連結物件或是 ActiveX 控制項。

 
Public Sub ProgID_Example() 
 
 Dim intCounter As Integer 
 Dim vsoOLEObjects As Visio.OLEObjects 
 
 'Get the OLEObjects collection of the active page. 
 Set vsoOLEObjects = ActivePage.OLEObjects 
 
 'Step through the OLEObjects collection. 
 For intCounter = 1 To vsoOLEObjects.Count 
 Debug.Print vsoOLEObjects(intCounter).ProgID 
 Next intCounter 
 
End Sub

支援和意見反應

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