Edit 方法

在创建指定 OLE 对象的应用程序中打开此对象，以便进行编辑。

expression   必需。该表达式返回一个 OLEFormat 对象。

示例

本示例打开（为了进行编辑）活动文档中第一个嵌入式 OLE 对象（定义为图形）。

Dim shapesAll As Shapes

Set shapesAll = ActiveDocument.Shapes
If shapesAll.Count >= 1 Then
    If shapesAll(1).Type = msoEmbeddedOLEObject Then
        shapesAll(1).OLEFormat.Edit
    End If
End If

本示例打开（为了进行编辑）活动文档中第一个链接的 OLE 对象（定义为嵌入式图形）。

Dim colIS As InlineShapes

Set colIS = ActiveDocument.InlineShapes
If colIS.Count >= 1 Then
    If colIS(1).Type = wdInlineShapeLinkedOLEObject Then
        colIS(1).OLEFormat.Edit
    End If
End If