这个真是我一直想要的！不过大佬，为啥我用这个动作不太成功呀！我是PPT2019

大佬我在，感谢回复！我刚刚重装使用，但没有成功嘞 只提示报错：

命今返回失败，错误：准备命合出错：lnvalidclass

string(ExceptionfromHRESULT:0x800401F3

(CO_E_CLASSSTRING))

(----上下占位方块v1:Office软件辅助----)

奇怪，我这里试验成功了呢

这个动作也非常的简单，就是在母版上下插入方块，我把代码写在这里你自己试试

Sub AddShapesToSlideMaster()
    Set topShape = ActivePresentation.slideMaster.Shapes.AddShape(msoShapeRectangle, 100, 100, 100, 100)
    topShape.Top = -500
    Set bottomShape = ActivePresentation.slideMaster.Shapes.AddShape(msoShapeRectangle, 100, 100, 100, 100)
    bottomShape.Top = 1000
End Sub

好吧奇怪 我读了一下quicker文档还是没成功，不过我直接在PPT里面调用宏也可以啦，感谢感谢

不客气，我直接让人工智能 kimi AI给我写的，还挺好用，你也可以试试