Thank you very much for your time and help.

I am trying to access the Fill object in Excel, by its name.

The object is instancenable, becuse the the following command works.

Set o1 = Excel.ActiveWorkbook.Sheets(1).Shapes(1).Fill

How the command below returns the error 438 - object does not support this
property or method.

Set o2 = Excel.ActiveWorkbook.Sheets(1).Shapes(1)
Set o3 = CallByName(o2, "Fill", VbGet, Empty)

Can you please help me resolve this problem or find a work around?

Thank you very much for your help.

This worked for me -

Set o2 = Excel.ActiveWorkbook.Sheets(1).Shapes(1)
Set o3 = CallByName(o2, "Fill", VbGet)

MsgBox TypeName(o3) ' FillFormat

as did -

Set o3 = o2.Fill

Regards,
Peter T

"bv0001" <(E-Mail Removed)> wrote in message
news:37224D2B-DE53-4130-9DF7-(E-Mail Removed)...
> Thank you very much for your time and help.
>
> I am trying to access the Fill object in Excel, by its name.
>
> The object is instancenable, becuse the the following command works.
>
> Set o1 = Excel.ActiveWorkbook.Sheets(1).Shapes(1).Fill
>
> How the command below returns the error 438 - object does not support this
> property or method.
>
> Set o2 = Excel.ActiveWorkbook.Sheets(1).Shapes(1)
> Set o3 = CallByName(o2, "Fill", VbGet, Empty)
>
> Can you please help me resolve this problem or find a work around?
>
> Thank you very much for your help.

Dear Peter thank you very, very much!

"Peter T" wrote:

> This worked for me -
>
> Set o2 = Excel.ActiveWorkbook.Sheets(1).Shapes(1)
> Set o3 = CallByName(o2, "Fill", VbGet)
>
> MsgBox TypeName(o3) ' FillFormat
>
> as did -
>
> Set o3 = o2.Fill
>
> Regards,
> Peter T
>
> "bv0001" <(E-Mail Removed)> wrote in message
> news:37224D2B-DE53-4130-9DF7-(E-Mail Removed)...
> > Thank you very much for your time and help.
> >
> > I am trying to access the Fill object in Excel, by its name.
> >
> > The object is instancenable, becuse the the following command works.
> >
> > Set o1 = Excel.ActiveWorkbook.Sheets(1).Shapes(1).Fill
> >
> > How the command below returns the error 438 - object does not support this
> > property or method.
> >
> > Set o2 = Excel.ActiveWorkbook.Sheets(1).Shapes(1)
> > Set o3 = CallByName(o2, "Fill", VbGet, Empty)
> >
> > Can you please help me resolve this problem or find a work around?
> >
> > Thank you very much for your help.
>
>
>