设为首页收藏本站

简字体切换切换到宽版

ExcelHome技术论坛»论坛 › Excel Home原创图书读者交流论坛 › 《Excel VBA精粹/大全》系列论坛 › VBA无法使用PowerPoint.Application,求解决方法

EH技术汇-专业的职场技能充电站	妙哉！函数段子手趣味讲函数	Excel服务器-会Excel,做管理系统	Excel Home精品图文教程库
HR薪酬管理数字化实战	Excel 2021函数公式学习大典	Excel数据透视表实战秘技	打造核心竞争力的职场宝典
300集Office 2010微视频教程	数据工作者的案头书	免费直播课集锦	ExcelHome出品 - VBA代码宝免费下载
	用ChatGPT与VBA一键搞定Excel	WPS表格从入门到精通	Excel VBA经典代码实践指南

发新帖

查看: 2211|回复: 6

VBA无法使用PowerPoint.Application,求解决方法

TA的精华主题

TA的得分主题

发表于 2020-2-6 09:43 | 显示全部楼层 |阅读模式

[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★

各位大神，

我最近在尝试用VBA新建PPT文件，但是运行时却有系统提示错误，不知道如何解决，请教大神们该如何解决：

无法, 使用, powerpoint, 解决, 方法

回复

TA的精华主题

TA的得分主题

楼主| 发表于 2020-2-8 15:35 | 显示全部楼层

[广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★

哪位大神指点一二吧，真的不知道怎么弄了，谢谢！！！

回复

TA的精华主题

TA的得分主题

楼主| 发表于 2020-2-20 09:46 | 显示全部楼层

[广告] ★ExcelHome默写助手 - 不用妈妈陪的默写神器 · Word/WPS插件 · 自定义默写单 · 自定义描红字帖★

在VBE工具－》引用中，引用MS_Powerpoint_library，就能解决了

回复

TA的精华主题

TA的得分主题

发表于 2020-3-2 09:30 来自手机 | 显示全部楼层

[广告] ★ExcelHome默写助手 - 不用妈妈陪的默写神器 · Word/WPS插件 · 自定义默写单 · 自定义描红字帖★

as 后面加个 new

回复

TA的精华主题

TA的得分主题

发表于 2023-1-23 12:46 | 显示全部楼层

[广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★

本帖最后由 ning84 于 2023-1-23 13:12 编辑

Sub ll()
Dim xlWk As Workbook
Set xlWk = ThisWorkbook
Dim Ppt As PowerPoint.Application
Dim Pres As Presentation
Set Ppt = New PowerPoint.Application
Set Pres = Ppt.Presentations.Add
Pres.Application.Visible = msoTrue
Debug.Print Pres.Name, Pres.Application.Path
Pres.SaveAs xlWk.Path & "\ls.ppt"
Debug.Print Pres.Path, Pres.Name
Stop
End Sub

复制代码

Function SavePpt(PptName)
Dim Ppt As PowerPoint.Application
Dim Pres As Presentation
Set Ppt = New PowerPoint.Application
Set Pres = Ppt.Presentations.Add
Pres.Application.Visible = msoTrue
Pres.SaveAs PptName
Set SavePpt = Pres
End Function

复制代码

回复

TA的精华主题

TA的得分主题

发表于 2023-3-8 13:24 | 显示全部楼层

[广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★

Function SavePpt(PptName)
Dim Ppt As PowerPoint.Application
Dim Pres As Presentation
Set Ppt = New PowerPoint.Application
Set Pres = Ppt.Presentations.Add
Pres.Application.Visible = msoTrue
Pres.SaveAs PptName
Set SavePpt = Pres
End Function
'''
Function OpenPpt(PptName) As Presentation
Dim Ppt As PowerPoint.Application
Dim Pres As Presentation
Set Ppt = New PowerPoint.Application
Ppt.Visible = msoTrue
For Each Pres In Ppt.Presentations
If Pres.FullName = PptName Then
Set OpenPpt = Pres
Exit Function
End If
Next Pres
Set Pres = Ppt.Presentations.Open(PptName, msoFalse)
Set OpenPpt = Pres
End Function

复制代码

回复

TA的精华主题

TA的得分主题

发表于 2024-3-24 14:56 | 显示全部楼层

[广告] ★ExcelHome默写助手 - 不用妈妈陪的默写神器 · Word/WPS插件 · 自定义默写单 · 自定义描红字帖★

Option Explicit
Sub ll()
Dim Pres As Presentation
Set Pres = Application.ActivePresentation
Dim Shp As Shape, ShpRng As ShapeRange, TxtRng As TextRange
With Pres.Slides(1).Shapes("MainNote")
With .TextFrame.TextRange
.Text = "FFFFFFF"
.Font.Size = 30
End With
Debug.Print .Left, .Top
End With
'''
With Pres.Slides(1).Shapes("LeftNote")
Debug.Print .Left, .Top
End With
End Sub
Sub llll()
Dim ShpRng As ShapeRange
Set ShpRng = Application.ActiveWindow.Selection.ShapeRange
With ShpRng
Debug.Print .Left, .Top
End With
End Sub

复制代码

回复

发新帖

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-5-22 04:10 , Processed in 1.047586 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号沪ICP备11019229号-2

本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！本站特聘法律顾问：李志群律师

快速回复 返回顶部 返回列表