OLEFormat.DoVerb メソッド (Publisher)

OLE オブジェクトに対して動詞を実行するよう要求します。

構文

式。DoVerb (iVerb)

式OLEFormat オブジェクトを表す変数。

パラメーター

注釈

ObjectVerbs プロパティを使用して、OLE オブジェクトに対して使用できる動詞を判断します。

例

次の使用例は、作業中の文書の先頭ページの 3 つ目の図形がリンク OLE オブジェクトまたは埋め込み OLE オブジェクトである場合に、その図形の最初の動詞を実行します。

With ActiveDocument.Pages(1).Shapes(3) 
 If .Type = pbEmbeddedOLEObject Or _ 
 .Type = pbLinkedOLEObject Then 
 .OLEFormat.DoVerb (1) 
 End If 
End With

次の使用例は、作業中の文書の最初のページで 3 番目の図形に対して動詞 Open を実行します(図形が動詞 Open をサポートする OLE オブジェクトの場合)。

Dim strVerb As String 
Dim intVerb As Integer 
 
With ActiveDocument.Pages(1).Shapes(3) 
 
 ' Verify that the shape is an OLE object. 
 If .Type = pbEmbeddedOLEObject Or _ 
 .Type = pbLinkedOLEObject Then 
 
 ' Loop through the ObjectVerbs collection 
 ' until the "Open" verb is found. 
 For Each strVerb In .OLEFormat.ObjectVerbs 
 intVerb = intVerb + 1 
 If strVerb = "Open" Then 
 
 ' Perform the "Open" verb. 
 .OLEFormat.DoVerb iVerb:=intVerb 
 Exit For 
 End If 
 Next strVerb 
 End If 
End With 

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。