From: a1k1do via OfficeKB.com on
Chirag

Thank-you for the comprehensive solution, I had no idea you could approach
things like this. I'm just back in the office so will test this out and
report back….i'm very excited about the approach..I need to get out more.
Thanks again


Chirag wrote:
>Hi,
>
>I placed an FSCommand macro just like you said but clicking on the
>ShockwaveFlash object during the slide show does not seem to be calling the
>macro. So, I was not able to test the following technique:
>
>Place a class module in your presentation and name it "SFOClass". Place the
>following code in it:
>
>' SFOClass code starts here
>Option Explicit
>
>Public WithEvents SFO As ShockwaveFlash
>
>Private Sub SFO_FSCommand(ByVal command As String, ByVal args As String)
> ' place your FSCommand code here
>End Sub
>' End of SFOClass code
>
>Replace the comment in the above code with the code within your FSCommand
>macro. Next place a module in your presentation (and name it whatever you
>like). Please the following code in it:
>
>' Start of module code
>Option Explicit
>
>Private SFO As SFOClass
>
>Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
> Dim Shp As Shape
>
> For Each Shp In Wn.View.Slide.Shapes
> If Shp.Type = msoOLEControlObject Then
> If Shp.OLEFormat.ProgID Like "ShockwaveFlash.ShockwaveFlash*"
>Then
> Set SFO = New SFOClass
> Set SFO.SFO = Shp.OLEFormat.Object
> End If
> End If
> Next
>End Sub
>' Module code ends here.
>
>Now when you start your slide show, the FSCommand should run like it does
>for you when you click on the ShockwaveFlash object. The code looks for
>Shockwave Flash object on the current slide and handles its FSCommand event.
>You just need to replicate your Shockwave Flash object on all slides and
>don't need to replicate the FSCommand macro. Let me know if it works for you
>(as the fundamental thing itself doesn't work for me). It would be great if
>you can email me a working copy of your presentation for me to see where I
>am missing the point. My email address is officeone at officeoneonline dot
>com.
>
>- Chirag
>
> PowerShow - View multiple PowerPoint slide shows simultaneously
> http://officeone.mvps.org/powershow/powershow.html
>
>>>> Hi Steve
>>>>
>[quoted text clipped - 45 lines]
>> associated script that needs to reside on each slide is sadly missing.
>> Kind Regards

--
Message posted via http://www.officekb.com

From: a1k1do via OfficeKB.com on
Hi Chirag

Absolutely worked like a charm, genius. My approach to this was clunky,
yours is inspired! Many repetitive tasks have been removed. Thanks again.

a1k1do wrote:
>Chirag
>
>Thank-you for the comprehensive solution, I had no idea you could approach
>things like this. I'm just back in the office so will test this out and
>report back….i'm very excited about the approach..I need to get out more.
>Thanks again
>
>>Hi,
>>
>[quoted text clipped - 59 lines]
>>> associated script that needs to reside on each slide is sadly missing.
>>> Kind Regards

--
Message posted via http://www.officekb.com