Macro for Properties of ActiveX - PPT

[davulf]

Hi Experts,

I'm currently working with a client and I'm having a problem with the way that Shockwave Flash Objects are being shown within PowerPoint. Ideally, we would like to have the NoScale property set for the ScaleMode, but for some reason this will not stay.

For example, when I embed the SWF and then set the ScaleMode to NoScale and run the show, it will still scale. Then I will go back to the properties box and notice that ScaleMode has been reset to ShowAll. If I set this back to NoScale, it will work properly.

It is unrealistic to expect all of the users to be able to do this, and so I need a solution to force a NoScale. Is there VBA or anything that can do this?

Thanks,
DavULF

 

[davulf]

I tried this:

Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
    If SSW.View.CurrentShowPosition = 1 Then
        MsgBox "test"
    
    
        Dim otxtBox As ShockwaveFlash ' MS Forms textbox
        ' Get a reference to the text box object
        Set otxtBox = ActivePresentation.Slides(1).ShockwaveFlash1.OLEFormat.Object


        ' Now manipulate it's properties

        With otxtBox
            .ScaleMode = 3
        End With
        
        ShockwaveFlash1.ScaleMode = 3
        
    End If
End Sub

Still no luck, but maybe that helps someone to get a better idea of what I'm looking for.

 

[davulf]

Because I'm a nice guy I'll post the code I came up with. Thanks for all of the help .

Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)

    If SSW.View.CurrentShowPosition = 1 Then

    With Slide1

 

            With ShockwaveFlash1

                .ScaleMode = 3

            End With

 

      End With

    End If

End Sub