Start "Compress Media" by Code

Question

Hi There!

I searched a lot to find a way to trigger the new Feat.: "Compress Media" by code.

Located in: File=>Info=>Compress Media

It doesn't matter which language VBA or interop (c#,VB.Net), I just ned an example.

I am also interessted in reading the result from the popupwindow (Slide, Name, Size, Status).

Does anybody know something?

Thanks for reading!

Answer 1

The MediaFormat object has two properties Resample and ResampleFromProfile which does this. More about the MediaObject here: http://skp.mvps.org/2010/ppt002.htm

Resample method allows custom settings to be applied to resample media.

Sub Resample([Trim As Boolean = False], [SampleHeight As Long = 768], [SampleWidth As Long = 1280], [VideoFrameRate As Long = 24], [AudioSamplingRate As Long = 48000], [VideoBitRate As Long = 7000000])

ResampleFromProfile allows you tap into the UI profile settings that are in the File=>Info=>Compress Media options for a shape.

Sub ResampleFromProfile([profile As PpResampleMediaProfile = ppResampleMediaProfileSmall])

Answer 2

Thank you very mutch!

Answer 3

Thanks Shyam - learned something new!

Answer 4

It's not part of the object model and to the best of my knowledge there no way to call it using ExecuteMso.