Getting access denied error when attempting to set properties in the Format Object in PowerPoint 2007

Question

When I attempt to set the .Format.ThreeD.BevelTopType of my Series object I'm getting the following error

      Run-time error – '-2147024891 (80070005)': Access denied. You do not have enough privileges to complete this operation.

I'm trying to reformat a PowerPoint 2007 document. The charts in this presentation are OLEFormat Excel.Chart.8.

Sub FormatChartDataPoints(ByRef oChrt As Object, ByRef oLgnd As Object, ByRef slideGroup As SldGrp)

Dim oSeries As Object 'Data series within a chart

'loop through series in chart

For x = 1 To oChrt.SeriesCollection.Count

Set oSeries = oChrt.SeriesCollection(x)

With oSeries.DataLabels.Font

.Name = StdFont

.FontStyle = StdStyle

.Size = StdSize

End With

oSeries.Format.ThreeD.BevelTopType = msoBevelCircle

Next x 'oChrt.SeriesCollection

Set oSeries = Nothing

End Sub

Answer 1

Thank you for your reply Chandra.

I'm running this macro locally so the "server-side Automation" issue that this article describes is not applicable to my situation.

Any other ideas?

Answer 2

Refer the link below and check if it helps.

http://support.microsoft.com/kb/257757