Hi,

PowerPoint has this function Compress Pictures on the Pictures toolbar. Is it possble to active it from VBA, e.g., one of a few steps of a macro working on Pictures like this:

Sub PictureWork()
Dim shp As Shape

For Each shp In ActiveWindow.Selection.ShapeRange
If shp.Type <> msoPicture Then
MsgBox "Please select Pictures only"
Exit Sub
Else
shp.PictureFormat.ColorType = msoPicturesGrayscale
' shp. - - - activate the CompressPicture function?
End If
Next shp
End Sub
Would be great, to insert it, but I couldn't find it in the object library. Thank you for help.


By the way: Is something wrong with this Forum? I couldn't paste in my code, I had to type it, which wasn't fun either, because about every second letter gets lost while typing fast. :-(