如何让Excel VBA运行带参数的PPT宏？

Sub RunPPTMacro()
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptMacroName As String
    Dim pptParameter As Variant
    
    ' 设置PowerPoint应用程序对象
    Set pptApp = New PowerPoint.Application
    pptApp.Visible = True ' 让PowerPoint可见
    
    ' 打开指定的PowerPoint演示文稿
    Set pptPres = pptApp.Presentations.Open("C:\Path\To\Your\Presentation.pptx")
    
    ' 设置要运行的宏名称和参数
    pptMacroName = "YourMacroName"
    pptParameter = "YourParameter"
    
    ' 运行带有参数的宏
    pptPres.Application.Run pptMacroName, pptParameter
    
    ' 关闭演示文稿并退出PowerPoint
    pptPres.Close
    pptApp.Quit
    
    ' 释放对象变量
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub