PowerPoint VBA教程:Application属性

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

expression.Application

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

VBA示例

本示例中,一个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

上页:PowerPoint VBA教程:AnswerWizard属性 下页:PowerPoint VBA教程:Assistant属性

PowerPoint VBA教程:Application属性

PowerPoint VBA教程:Assistant属性 PowerPoint VBA教程:Author属性
PowerPoint VBA教程:AuthorIndex属性 PowerPoint VBA教程:AuthorInitials属性
PowerPoint VBA教程:AutoAttach属性 PowerPoint VBA教程:AutoCorrect属性
PowerPoint VBA教程:AutoFormat属性 PowerPoint VBA教程:AutoLayout属性
PowerPoint VBA教程:AutoLength属性 PowerPoint VBA教程:AutoLoad属性
PowerPoint VBA教程:AutomationSecurity属性 PowerPoint VBA教程:AutoReverse属性
PowerPoint VBA教程:AutoRotateNumbers属性 PowerPoint VBA教程:AutoShapeType属性
PowerPoint VBA教程:AutoSize属性 PowerPoint VBA教程:AutoUpdate属性
PowerPoint VBA教程:BackColor属性 PowerPoint VBA教程:Background属性
PowerPoint VBA教程:BaseLineAlignment属性 PowerPoint VBA教程:BaselineOffset属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号