Word VBA教程:Edit方法

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

expression.Edit

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

VBA示例

本示例打开(为了进行编辑)活动文档中第一个嵌入式 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号