设为首页收藏本站

简字体切换切换到宽版

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

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

发新帖

查看: 2494|回复: 6

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

TA的精华主题

TA的得分主题

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

[广告] ★用Excel做企业管理系统，Excel服务器学习和下载★

各位大神，

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

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

回复

TA的精华主题

TA的得分主题

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

[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★

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

回复

TA的精华主题

TA的得分主题

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

[广告] ★ 对Excel用户最友好的数据分析编程语言，再不发愁Excel计算困难和容量限制 ★

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

回复

TA的精华主题

TA的得分主题

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

[广告] ★用Excel做企业管理系统，Excel服务器学习和下载★

as 后面加个 new

回复

TA的精华主题

TA的得分主题

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

[广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★

本帖最后由 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 Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★

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 | 显示全部楼层

[广告] ★用Excel做企业管理系统，Excel服务器学习和下载★

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-11-25 21:30 , Processed in 0.037177 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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