朝仓和美 发表于 2019-2-28 18:12

求助之vba之生成ppt

想在某个excel里加个按钮,按下以后自动生成一个ppt,根据当月相关数据生成内容。
按钮生成ppt这部分很简单,但是自动生成内容我就不清楚了。这一部分代码可以写在excel里吗?

亡亡鱼 发表于 2019-2-28 18:53

生成以前的处理放excel里 生成以后的处理在ppt里

—— 来自 HUAWEI EML-AL00, Android 9上的 S1Next-鹅版 v2.1.0-play

朝仓和美 发表于 2019-3-5 16:57

目前有一个xlsm,用来生成每月的四个xlsx

想要在xlsm上加入一个功能,生成一个汇总了四个xlsx的pptx

现在的思路是写一个A.pptm,调用A上的SUB来生成pptx。

我在xlsm上写的语句大概是这样的:

Sub 生成PPT()
    
    Set s = CreateObject("powerPoint.application")
    s.ProtectedViewWindows.Open ("X:\PPT.pptm")
    
    str1 = "测试"
    str2 = "生成PPT"
    
    s.Run str1
    s.Run str2
    
End Sub

现在有两个问题:

1、到s.run str1时,会打开一个“受保护视图”的PPT.pptm,然后报错【运行时错误 '-2147188160 (80048240)':Application.Run : Invalid request. Sub or function not defined.】,要在PPT.pptm上点"启用编辑"并查看一下宏之后,才能run成功

2、如果pptm上的sub 生成PPT是带参数的,比如sub 生成PPT( str as string),那么我xlsm上的str2应该怎么写呢?
页: [1]
查看完整版本: 求助之vba之生成ppt