rhombus4
Well-known Member
- Joined
- May 26, 2010
- Messages
- 586
- Office Version
- 365
- 2016
- Platform
- Windows
I can create a pivot chart from a pivot table, but sometimes when it creates the 2nd or 3rd one I get an error
Highlights ch.SetSourceData pt.TableRange1
'-2147467259(80004005): method 'setsourcedata' of object'_chart failed
Highlights ch.SetSourceData pt.TableRange1
'-2147467259(80004005): method 'setsourcedata' of object'_chart failed
VBA Code:
Set pt = mysheet.pivottables("pivot1")
Set chobj = mysheet.ChartObjects.Add(300, 200, 550, 200)
Set ch = chobj.Chart
ch.SetSourceData pt.TableRange1
ch.ChartType = xl3DColum
Set pt = mysheet.pivottables("pivot2")
Set chobj = mysheet.ChartObjects.Add(600, 200, 550, 200)
Set ch = chobj.Chart
ch.SetSourceData pt.TableRange1
ch.ChartType = xlbarclustered