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:
Would be great, to insert it, but I couldn't find it in the object library. Thank you for help.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
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. :-(