VBA to change 3-D Rotation on Pie Chart

[joezimo]

I can't seem to figure out how to change the following in xl3DPieExploded Chart:

3-D Rotation: X = 0, Y = 30, Perspective = 15

I have the following:

With ActiveSheet.ChartObjects.Add(Left:=25, Width:=450, Top:=150, Height:=350)
.Chart.SetSourceData Source:=Sheets("LoanType").Range("A1").CurrentRegion
.Chart.ChartType = xl3DPieExploded
.Chart.Legend.Position = xlBottom
.Chart.ChartTitle.Text = "IRE By Loan Type"

End With

ActiveSheet.ChartObjects.Select

ActiveChart.SeriesCollection(1).ApplyDataLabels
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.ShowCategoryName = True
Selection.ShowValue = False
Selection.ShowPercentage = True
Selection.Position = xlLabelPositionOutsideEnd

ActiveChart.Rotation = 30
ActiveChart.Perspective = 15

But when I look at the chart after this runs, I see:

3-D Rotation: X = 30, Y = 15, Perspective = 7.5

I've been searching for how to set these properly and can't seem to come up with any solutions. Any guidance would be appreciated.

Joe

 

[Comfy]

Hi Joe,

Try the following:

    ActiveChart.ChartArea.Select
    With ActiveChart
        .Elevation = 30
        .Perspective = 15
        .Rotation = 0
    End With

/Comf

 

[joezimo]

Wow, that was easy. Thank you for the quick reply. This is my first stint at creating charts using VBA and this was one of the formats I could not get my arms around.

Thanks again!