I'd like to add the compression of pictures to a Workbook application using
VBA. I believe I've found that this functionality is not directly exposed to
VBA. I have found that I can bring up a Compress Picture dialog in the Click
event of a command button by invoking:

CommandBars.FindControl(ID:=6382).Execute

However, this does NOT compress my pictures. If I manually select the
picture(s) and select the Compress Picture button and compress, the pictures
do compress.

The worksheet containing the pictures is usally protected. I have added code
around the Compress Picture code to unprotect the worksheet and protect it
after compression. No affect.

I'm developing in Excel 2007 but saving the document in the Excel 98-2003
format.

Has anyone successfully compressed pictures using VBA or have any
tips/suggestions?

Thanks!
--
Jack
<><>

Jack,

AFAIK, you cannot from within Excel. There may be an application that can be used as a reference
that allows you to do so, but it is not native to Excel.

HTH,
Bernie
MS Excel MVP


"Jack" <n2(delete)(E-Mail Removed)> wrote in message
news:2B815370-1E2F-42BF-A107-(E-Mail Removed)...
> I'd like to add the compression of pictures to a Workbook application using
> VBA. I believe I've found that this functionality is not directly exposed to
> VBA. I have found that I can bring up a Compress Picture dialog in the Click
> event of a command button by invoking:
>
> CommandBars.FindControl(ID:=6382).Execute
>
> However, this does NOT compress my pictures. If I manually select the
> picture(s) and select the Compress Picture button and compress, the pictures
> do compress.
>
> The worksheet containing the pictures is usally protected. I have added code
> around the Compress Picture code to unprotect the worksheet and protect it
> after compression. No affect.
>
> I'm developing in Excel 2007 but saving the document in the Excel 98-2003
> format.
>
> Has anyone successfully compressed pictures using VBA or have any
> tips/suggestions?
>
> Thanks!
> --
> Jack
> <><>

Thanks!
--
Jack Waller
<><>


"Bernie Deitrick" wrote:

> Jack,
>
> AFAIK, you cannot from within Excel. There may be an application that can be used as a reference
> that allows you to do so, but it is not native to Excel.
>
> HTH,
> Bernie
> MS Excel MVP
>
>
> "Jack" <n2(delete)(E-Mail Removed)> wrote in message
> news:2B815370-1E2F-42BF-A107-(E-Mail Removed)...
> > I'd like to add the compression of pictures to a Workbook application using
> > VBA. I believe I've found that this functionality is not directly exposed to
> > VBA. I have found that I can bring up a Compress Picture dialog in the Click
> > event of a command button by invoking:
> >
> > CommandBars.FindControl(ID:=6382).Execute
> >
> > However, this does NOT compress my pictures. If I manually select the
> > picture(s) and select the Compress Picture button and compress, the pictures
> > do compress.
> >
> > The worksheet containing the pictures is usally protected. I have added code
> > around the Compress Picture code to unprotect the worksheet and protect it
> > after compression. No affect.
> >
> > I'm developing in Excel 2007 but saving the document in the Excel 98-2003
> > format.
> >
> > Has anyone successfully compressed pictures using VBA or have any
> > tips/suggestions?
> >
> > Thanks!
> > --
> > Jack
> > <><>
>
>
>