Comments on: Dynamic Chart using Pivot Table and VBA

By: Joe

Joe — Wed, 21 Dec 2011 21:17:32 +0000

That worked great Jon! I am pretty new to Access but your tutorial was a very well done walkthrough and got my chart up and running.

The only other fine tuning point I am sticking on is how to get the resultant chart to disregard the Grand Total row name and data (see below). I was able to cause the chart not to display the Y axis name “Grand Total” but the data portion still displays.

Set rCategories = .Offset(1).Resize(.Rows.Count – 1)

Set rCategories = .Offset(1).Resize(.Rows.Count – 2)

Thanks again.

By: Jon Peltier

Jon Peltier — Tue, 20 Dec 2011 19:32:42 +0000

Joe -

If your chart sheet is the activesheet, use this:

Set cht = ActiveChart

By: Joe

Joe — Tue, 20 Dec 2011 19:24:01 +0000

So I am pretty confused about how to get this code to work on a chart that is on a Chart Sheet instead of embedded within the same page. I was able to use Sheets.Select to select the pivot table sheet and then also use the same to select the Chart sheet. The issue I am running into is that when the code hits

‘ Define the Chart
‘Set cht = ActiveSheet.ChartObjects(1).Chart
Set cht = ActiveSheet.ChartObjects(“chtPivotData”).Chart

I get error 1004
Unable to get the ChartObjects property of the Worksheet class

Thanks in advance for the insight. Also, if it is related to having a Chart Sheet instead of an embedded chart, please let me know where you might see me having future issues.

By: Dave Cherrington

Dave Cherrington — Fri, 21 Oct 2011 13:10:23 +0000

I have been struggling with Pivot Charts for a couple of days now. I followed your instructions and this was really helpful. Thanks so much!

By: Joe

Joe — Tue, 31 Aug 2010 12:03:06 +0000

Hold-on! Sorry forget my last blog entry, please.
It works now. There was an issue in my coding.
thank you so much and sorry for any confusion!
Joe

By: Joe

Joe — Tue, 31 Aug 2010 08:30:44 +0000

Hello Again,
Actually it appears that as soon as I try to manage multiple pivots and charts in one file I run into same error as described above.
(The code stops at line
.Values = rValues.Columns(iSeries)
The entire message says “Run-time error ‘1004′: Application-defined or object-defined error.”
I get that same message also in following line:
.XValues = rCategories)

If I start from scratch for any new pivot table / chart it works.

Do you probably know any secret to reset (Values and XValues), so I could manage multiple pivot chart updates in one file?

Best Regards,
Joe