Shape.ProgID 属性 (Visio)

返回代表 ActiveX 控件、嵌入对象或链接对象的形状的编程标识符。 此为只读属性。

语法

expression。 ProgID

表达 一个代表 Shape 对象的变量。

返回值

String

备注

如果形状不代表 ActiveX 控件或者 OLE 2.0 嵌入或链接对象，则 ProgID 属性将引发异常。 如果 ForeignType 属性在值中返回 visTypeIsOLE2，则形状代表 ActiveX 控件、嵌入对象或链接对象。

使用 Shape 对象或 OLEObject 的 ProgID 属性可以获取对象的编程标识符。 每个 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。