返回介绍

Application 属性

发布于 2019-10-04 14:08:31 字数 667 浏览 1007 评论 0 收藏 0

返回一个Application 对象,该对象代表指定对象的创建者。

expression.Application

expression必选。该表达式返回“应用于”列表中的对象之一。

示例

本示例中,一个Presentation 对象被传送至某过程。此过程在演示文稿中添加一张幻灯片,然后将其保存在 Microsoft PowerPoint 运行的文件夹中。

Sub AddAndSave(pptPres As Presentation)
 pptPres.Slides.Add 1, 1
 pptPres.SaveAs pptPres.Application.Path & "\Added Slide"
End Sub

本示例显示在当前演示文稿的第一张幻灯片上创建每个链接的 OLE 对象的应用程序的名称。

For Each shpOle In ActivePresentation.Slides(1).Shapes
 If shpOle.Type = msoLinkedOLEObject Then
 MsgBox shpOle.OLEFormat.Application.Name
 End If
Next

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

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

发布评论

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