返回代表 ActiveX 控件或者嵌入或链接 OLE 对象的形状的类 ID 字符串。 此为只读属性。
语法
expression。 ClassID
表达 一个代表 OLEObject 对象的变量。
返回值
String
备注
如果形状不代表 ActiveX 控件或者 OLE 2.0 嵌入或链接对象，则 ClassID 引发异常。 如果在 Shape 返回的值中设置了 visTypeIsOLE2 位 (&H8000) ，则 形状表示 ActiveX 控件或 OLE 2.0 嵌入或链接对象。 ForeignType。
ClassID 返回以下形式的字符串：
{2287DC42-B167-11CE-88E9-002AFDDD917}
该字符串标识为对象提供服务的应用程序。 例如，它可能将 Microsoft Visio 页上的嵌入对象标识为 Microsoft Excel 对象。
使用形状的 Object 属性在该形状表示的对象上获取自动化接口后，您可能需要获取该形状的 ClassID 或 ProgID 属性来确定该接口提供的方法和属性。
示例
以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何获取活动页的 OLEObjects 集合并在“立即”窗口中打印每个 OLEObject 对象的 ClassID。 本示例假设活动页拥有至少一个 OLE 2.0 嵌入或链接对象或者一个 ActiveX 控件。
Public Sub ClassID_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 collection of OLEObjects on the page.
For intCounter = 1 To vsoOLEObjects.Count
Debug.Print vsoOLEObjects(intCounter).ClassID
Next intCounter
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。