asked on

Running a .ppta Powerpoint 2010 button gives a Run-Time error '5'

Hi All,

I have been creating and modifying a custom ribbon button in Powerpoint 2010 that uses a macro to save files to a location on the C: drive with a specific naming convention.

This had been working beautifully and I had tested it successfully many times. However I decided to create a new one using the steps at the below site:

http://stackoverflow.com/questions/3867400/how-to-add-tabs-to-powerpoint-2010-that-call-macros

I have created the pptm and modified it with Custom UI and, when I load the presentation, am able to successfully navigate to the custom tab and press the custom button and it does exactly what it is supposed to do. There is no problem with the XML code for the custom button and no problem with the macro.

However, when I save that presentation as a .ppta and add it as a powerpoint file, when I navigate to the custom tab/button and try and run it I get the following error:

Run-time error '5':
Invalid procedure call or argument

I have tried inserting this .ppta into Powerpoint 2010 on two other workstations and I get the same error when trying to run the macro. I have even tried creating it on another computer and the same thing happens; the .pptm with the macro and custom button works absolutely perfect, however when I save it as a .ppta I get the error.

Any help would be greatly appreciated.

agbnielsen

ASKER

Halp?!?!

agbnielsen

ASKER

Okay, so I have tried replacing the current macro, which is:

Sub SaveAsJPG()
    strPresentationName = Left(ActivePresentation.Name, InStrRev(ActivePresentation.Name, ".") - 1)
    strImageFolder = "C:\Daily Insight Report Files\"
    If Right(strImageFolder, 1) = "\" Then strImageFolder = Left(strImageFolder, Len(strImageFolder) - 1)
    If Dir(strImageFolder, vbDirectory) = "" Then MkDir strImageFolder
    blnContinue = False
    If Dir(strImageFolder & "\" & strPresentationName & "*.JPG") <> "" Then
        intResponse = MsgBox("Images for " & strPresentationName & " already exist. Do you want to overwrite?", vbYesNo, "Overwrite?")
        If intResponse = vbYes Then
            blnContinue = True
            Kill strImageFolder & "\" & strPresentationName & "*.JPG"
        End If
    Else
        blnContinue = True
    End If
    If blnContinue = True Then
        ActivePresentation.SaveAs strImageFolder, ppSaveAsJPG, msoFalse
        strFile = Dir(strImageFolder & "\Slide*.JPG")
        strFileList = ""
        While strFile <> ""
            Name strImageFolder & "\" & strFile As strImageFolder & "\" & strPresentationName & "_" & strFile
            If strFileList = "" Then
                strFileList = strPresentationName & "_" & strFile
            Else
                strFileList = strFileList & vbCrLf & strPresentationName & "_" & strFile
            End If
            strFile = Dir()
        Wend
        MsgBox "Files for " & strPresentationName & " have been created in " & strImageFolder & vbCrLf & strFileList
    Else
        MsgBox "Files have not been overwritten."
    End If
End Sub

Open in new window

with

Sub SayHello(ByVal control As IRibbonControl)
    MsgBox "hello"
End Sub

Open in new window

and that works after I add the.ppam into powerpoint. So I guess that means it is a problem with the macro.

Just to recap:

- I create the first macro and use Custom UI Tool to associate it with a custom tab/button. I then save it as a .pptm and can successfully click the button and run the macro.

- When I save that .pptm (which works) as a .ppam (powerpoint addin) it fails saying:

Run-time error '5':
Invalid procedure call or argument

- However when I substitute the first macro with the second, it works fine in both a .pptm and .ppta.

If anyone could please take a look at the code and perhaps try and recreate the issue (I have tried doing this on 3 separate workstations, and they all fail) and *hopefully* find an answer, well then I'm sure we could be best friends forever!

Thanks!!