ActiveX コントロールまたは OLE 埋め込みオブジェクトやリンク オブジェクトを表す図形のクラス ID 文字列を返します。 読み取り専用です。
構文
式。 ClassID
式OLEObject オブジェクトを表す変数。
戻り値
文字列
注釈
図形が 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 プロパティを取得することにより、インターフェイスが提供するメソッドとプロパティを判別することもできます。
例
次の VBA (Microsoft Visual Basic for Applications) マクロは、アクティブなページの OLEObjects コレクションを取得して、各 OLEObject オブジェクトの ClassID をイミディエイト ウィンドウに出力する方法を示します。 この例は、アクティブなページに OLE 2.0 の埋め込みオブジェクトまたはリンク オブジェクト、または ActiveX コントロールが少なくとも 1 つあることを前提としています。
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 のサポートおよびフィードバックを参照してください。