Passing a parameter to a subroutine

Question

I have a powerpoint file with the following macro:

Sub test(msg$)
    MsgBox msg
End Sub

I have a vbscript file that looks like this:

Option Explicit
On Error Resume Next
RunMacro

Sub RunMacro()

    Set ppApp = CreateObject("Powerpoint.Application")
    Set ppPres = ppApp.Presentations.Open("test.pptm", 1)

    ppApp.Run "test.pptm!test ""my message here"" "

    ppApp.Quit

    Set ppPres = Nothing
    Set ppApp = Nothing
End Sub

But I can't seem to pass the string parameter to the macro (no message box shows up in PPT). I'm guessing something is wrong with the number of quotation marks, but I've tried every permutation I could think of and nothing works. If I hard-code the message in the macro everything works fine.

Related (tried these, with no luck)

How to call Run() with parameters

Shell.Run with arguments

You are using powerpoints application.run, so I believe a comma, so app.run functionname, arg1,arg2 msdn.microsoft.com/en-us/library/office/ff744221.aspx — Nathan_Sav
– Nathan_Sav, Commented Jan 6, 2017 at 10:11

Ansgar Wiechers · Accepted Answer · 2017-01-06 10:15:33Z

2

When in doubt, read the documentation. You're confusing the (VBScript) WshShell.Run method with the (VBA) Application.Run method.

Change this:

ppApp.Run "test.pptm!test ""my message here"" "

into this:

ppApp.Run "test.pptm!test", "my message here"

answered Jan 6, 2017 at 10:15

Ansgar Wiechers

202k27 gold badges286 silver badges363 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Passing a parameter to a subroutine

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related