PowerPoint) (Font.Application 属性
返回表示指定对象的创建者的 Application 对象。
语法
表达式。应用
expression:表示 Font 对象的变量。
返回值
应用程序
示例
在此示例中, 演示文稿 对象传递给该过程。 该过程向演示文稿添加一张幻灯片,然后运行 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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈