I'm trying to round the corners of a graph using VBA, but consistently
get a Run-time error '438' Object doesn't support this property or
method. I have no difficulty doing it in Excel and recording a macro,
but seem unable to do it directly from VBA - even cutting and pasting
the macro recorder's code into VBA does me no good. Any assistance
would be greatly appreciated.

In the code listed below, the shadow and legend work like a charm, but
RoundedCorners does not work in either of the two ways shown.


Sincerely

Thomas Philips

Range(Selection, Selection.End(xlDown)).Name = "ChartData1"
Set ch = Sheet3.ChartObjects.Add(Left:=l1, Top:=t1, Width:=w1,
Height:=h1)
With ch.Chart
.ChartType = xlColumnClustered
.SetSourceData Source:=Range("ChartData1")
.ChartArea.Interior.ColorIndex = 2
.PlotArea.Interior.ColorIndex = 2
.ChartArea.Shadow = True

.RoundedCorners = True

.ChartArea.RoundedCorners = True

.Legend.Position = xlTop
End With

RoundedCorners is a property of the chartobject

With ch.Chart
..Parent.RoundedCorners = True

or
ch.RoundedCorners = True

Regards,
Peter T

<(E-Mail Removed)> wrote in message
news:1dce0387-376e-4061-bfef-(E-Mail Removed)...
> I'm trying to round the corners of a graph using VBA, but consistently
> get a Run-time error '438' Object doesn't support this property or
> method. I have no difficulty doing it in Excel and recording a macro,
> but seem unable to do it directly from VBA - even cutting and pasting
> the macro recorder's code into VBA does me no good. Any assistance
> would be greatly appreciated.
>
> In the code listed below, the shadow and legend work like a charm, but
> RoundedCorners does not work in either of the two ways shown.
>
>
> Sincerely
>
> Thomas Philips
>
> Range(Selection, Selection.End(xlDown)).Name = "ChartData1"
> Set ch = Sheet3.ChartObjects.Add(Left:=l1, Top:=t1, Width:=w1,
> Height:=h1)
> With ch.Chart
> .ChartType = xlColumnClustered
> .SetSourceData Source:=Range("ChartData1")
> .ChartArea.Interior.ColorIndex = 2
> .PlotArea.Interior.ColorIndex = 2
> .ChartArea.Shadow = True
>
> .RoundedCorners = True
>
> .ChartArea.RoundedCorners = True
>
> .Legend.Position = xlTop
> End With
>
>