I have recorded a macro to compress pictures but how would I apply it so that it would compress pictures on all of the WB pages (there are about 270 pages)
Code: Select all
Sub CompressPictures()
'
' CompressPictures Macro
' Macro recorded 05/08/2010 by steve
'
' Keyboard Shortcut: Ctrl+o
ActiveSheet.Shapes("Picture 166").Select
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 Sub