Auto compress pictures

[Ron C?ppers]

Hi there,

I want to automatticaly compress pictures i added to my worksheet. I used the next macro, it runs but does not compress the pictures.
Has anyone got a solution?


[VBA]Sub CompressPictures()
' Macro to compress all pictures
' Last change 7-1-2009
Dim DrObj
Dim Pict
Set DrObj = ActiveSheet.DrawingObjects
For Each Pict In DrObj
If Left(Pict.Name, 7) = "Picture" Then
Pict.Select
'With Selection
Selection.ShapeRange.PictureFormat.Brightness = 0.5
Selection.ShapeRange.PictureFormat.Contrast = 0.5
Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
Selection.ShapeRange.PictureFormat.CropLeft = 0#
Selection.ShapeRange.PictureFormat.CropRight = 0#
Selection.ShapeRange.PictureFormat.CropTop = 0#
Selection.ShapeRange.PictureFormat.CropBottom = 0#
'End With
End If
Next
End Sub[/VBA]

[Artik]

It's strange, but M$ didn't give the possibility of image compression by VBA. You can only try by SendKeys.

Artik

[Ron C?ppers]

That is a pitty! I do not have experience with sendkeys but i will check the forum.

Thanks, Ron.