If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
parameter not action to run a named macro
Hello
I'm trying to trap an event or command to then run a named macro "i'm finding it a little like trying to chop wood on my face" here is what I've tried Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String) With SlideShowWindows(1).View If command = "somthing" Then ' or try ' if (command) = "somthing" then .run "amacro" End If End Sub With SlideShowWindows(1).View Dim obj As ShockwaveFlash Set obj = ActivePresentation.Slides(1).Shapes("ShockwaveFlas h").OLEFormat. Object If command = "somthing" Then ' or try ' if (command) = "somthing" then obj.run "amacro" End If End Sub i think i'm missing somthing obvious! Thanks -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...point/201005/1 |
#2
|
|||
|
|||
parameter not action to run a named macro
There isn't a Run method associated with View.
To execute a macro use: Call MacroName or Application.Run "macroname" -- Regards, Shyam Pillai Handout Wizard: http://skp.mvps.org/how. PowerPoint 2010 (32-bit/64-bit) versions supported. "a1k1do via OfficeKB.com" u59720@uwe wrote in message news:a8219ee8e69e9@uwe... Hello I'm trying to trap an event or command to then run a named macro "i'm finding it a little like trying to chop wood on my face" here is what I've tried Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String) With SlideShowWindows(1).View If command = "somthing" Then ' or try ' if (command) = "somthing" then .run "amacro" End If End Sub With SlideShowWindows(1).View Dim obj As ShockwaveFlash Set obj = ActivePresentation.Slides(1).Shapes("ShockwaveFlas h").OLEFormat. Object If command = "somthing" Then ' or try ' if (command) = "somthing" then obj.run "amacro" End If End Sub i think i'm missing somthing obvious! Thanks -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...point/201005/1 |
#3
|
|||
|
|||
parameter not action to run a named macro
I feel very foolish, thank -you for answering. All working super. Than-you.
Shyam Pillai wrote: There isn't a Run method associated with View. To execute a macro use: Call MacroName or Application.Run "macroname" Hello [quoted text clipped - 27 lines] Thanks -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...point/201005/1 |
Thread Tools | |
Display Modes | |
|
|