求助之vba之生成ppt

朝仓和美

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

亡亡鱼

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

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

朝仓和美

目前有一个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应该怎么写呢？