Hello
After creating a new, dynamic pivot table (contents varies) I need to add a
chart - but can´t figure out how to set the source. None of these tries work.
Help appreciated!
regards
ulf



With ActiveSheet.ChartObjects.Add _
(Left:=500, Width:=375, Top:=75, Height:=225)
' .SetSourceData Source:=ActiveSheet.PivotTables("PivotAge")
' .SetSourceData Source:=ActiveSheet.Range("C10")
' .SetSourceData Source:=.Range("C10")
.SetSourceData Source:=Sheets("Age").Range("C10")
.Chart.ChartType = xlXYScatterLines
End With

Your With block referenced the chart object, but .SetSourceData needs a
chart. This will work:

With ActiveSheet.ChartObjects.Add _
(Left:=500, Width:=375, Top:=75, Height:=225).Chart

.SetSourceData Source:=ActiveSheet.Range("C10")
End With

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______


ulfb wrote:

Hello
After creating a new, dynamic pivot table (contents varies) I need to add a
chart - but can´t figure out how to set the source. None of these tries work.
Help appreciated!
regards
ulf



With ActiveSheet.ChartObjects.Add _
(Left:=500, Width:=375, Top:=75, Height:=225)
' .SetSourceData Source:=ActiveSheet.PivotTables("PivotAge")
' .SetSourceData Source:=ActiveSheet.Range("C10")
' .SetSourceData Source:=.Range("C10")
.SetSourceData Source:=Sheets("Age").Range("C10")
.Chart.ChartType = xlXYScatterLines
End With

It certainly does. Thank you!
/ulf


"Jon Peltier" wrote:

Your With block referenced the chart object, but .SetSourceData needs a
chart. This will work:

With ActiveSheet.ChartObjects.Add _
(Left:=500, Width:=375, Top:=75, Height:=225).Chart

.SetSourceData Source:=ActiveSheet.Range("C10")
End With

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______


ulfb wrote:

Hello
After creating a new, dynamic pivot table (contents varies) I need to add a
chart - but can´t figure out how to set the source. None of these tries work.
Help appreciated!
regards
ulf



With ActiveSheet.ChartObjects.Add _
(Left:=500, Width:=375, Top:=75, Height:=225)
' .SetSourceData Source:=ActiveSheet.PivotTables("PivotAge")
' .SetSourceData Source:=ActiveSheet.Range("C10")
' .SetSourceData Source:=.Range("C10")
.SetSourceData Source:=Sheets("Age").Range("C10")
.Chart.ChartType = xlXYScatterLines
End With