PPT 加载宏没有反应 安全设置已经最低了

baneit319

本贴已经由shenjianrong163 前辈解决,大家不用回复了,在此郑重感谢!!!

各位前辈，帮我看看,已经搞了两天了,快崩溃了，谢谢！
用PPT做了1个宏文件,存为ppam文件(试过ppa,结果也一样).
关闭以后,然后再打开其他ppt文件,然后用加载项添加宏的方式,发现这个宏加进去没有反应.请问这是为什么哪里需要设置?(宏安全设置已经调到最低了)
同样的代码,同样的方式,我用Excel就可以(存为xlam,然后新的Excel文件,加载项添加这个宏,就可以),百思不得其解

1.PPT里添加这个宏

添加宏1

2.PPT里添加宏,能看到这个宏的名字前面已经打勾了

添加宏2

3.宏加载项设置

宏加载项设置

4.宏的安全设置(已经是最低了)

宏安全设置

5.功能区无法显示这个宏,我直接打开代码区,也没有这个宏的代码,感觉就是没有加载进来,只是有这个宏的名字

功能区无法显示这个宏

6. 同样的操作方式,换成Excel就可以(用excel存为xlam,然后同样用新的excel文件加载宏,就可以添加这个宏)

同样方式Excel就可以

shenjianrong163

你的问题是Ｏffice PPT还是WPS PPT?

baneit319

shenjianrong163 发表于 2021-7-3 20:44
你的问题是Ｏffice PPT还是WPS PPT?

Office PPT.很奇怪,为什么同一台电脑上Excel可以这样加载宏,PPT就不行.我已经试了两台电脑(其中还是一台是win7),结果都是这样,好奇怪呀.难度PPT不能用这种方式加载宏吗?

shenjianrong163

Ｏffice PPT一般情况下是可以加载的。

baneit319

shenjianrong163 发表于 2021-7-3 20:50
Ｏffice PPT一般情况下是可以加载的。

但是我使用两台不同操作系统版本电脑的office(office 版本也不一样)都这样,感觉这是个相同的问题.
我还试了随便写个简单的代码存为加载宏也这样(sub cc  msgbox "CC" end sub ).
搞不明白是哪里出了问题?已经搞了两天了,头大了.
1.加载项里可以看见这个宏的名字

加载项里可以看到这个宏的名字

2.VBA代码里却没有这个宏及代码

VBA代码里面却没有这个宏及代码

3.我想,所以自定义功能区是空的.

所以自定义功能区也是空的

baneit319

shenjianrong163 发表于 2021-7-3 20:50
Ｏffice PPT一般情况下是可以加载的。

Excel完全正常,就是PPT不行,而且是两台不同版本window操作系统不同office的电脑.

shenjianrong163

试试下面的代码：

1. Sub Auto_Open()
   
2.     Dim myMenuBar
   
3.     Dim NewMenu
   
4.     Dim ctrl1
   
5.     Dim s
   
6.     Dim flag As String
   
7.     '初始化菜单
   
8.     Set myMenuBar = CommandBars.ActiveMenuBar
   
9.     Set NewMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
   
10.     NewMenu.Caption = "测试"
    
11.     Set ctrl1 = NewMenu.Controls.Add(Type:=msoControlButton, Id:=1)
    
12.     ctrl1.Caption = "测试"
    
13.     ctrl1.Style = msoButtonIconAndCaption
    
14.     ctrl1.FaceId = 218
    
15.     ctrl1.OnAction = "CC"
    
16. End Sub
    
17. Sub CC()
    
18.     MsgBox "CC"
    
19. End Sub

复制代码

baneit319

shenjianrong163 发表于 2021-7-3 22:37
试试下面的代码：

还是一样,自己在ppt里运行没有问题,如果存为ppam或ppa后,做为加载宏,就只能看到名字,没有代码.也运行不了.
下面这个ceshi就是用的你的代码(我觉的,问题不是在于功能去或者工具菜单栏,而是宏加载进去后,没有代码.只有这个名字打个勾.有点像宏没有了)

baneit319

shenjianrong163 发表于 2021-7-3 22:37
试试下面的代码：

还是不行,和上面一样,直接拷贝代码到PPT里运行没有问题.如果把它存为PPam,然后加载宏,就又出现上面这样(只有1个宏名字,VBA里找不到代码,也运行不了)我想,这应该不是功能区,或者工具栏菜单栏的问题.
感觉就像这个加载的宏加不进去(只剩名字,没有代码)

shenjianrong163

如何查看ppa加载宏的源代码
https://jingyan.baidu.com/article/647f01159d77e77f2148a880.html