返回介绍

Edit 方法

发布于 2019-09-29 09:55:05 字数 684 浏览 942 评论 0 收藏 0

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

expression.Edit

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

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文