Pivot Chart with VBA

TamirBasin

New Member
Joined
Apr 11, 2017
Messages
44
Hello,

I recorded then altered the following code to create a pivot chart:

Code:
Sub CreatePivotChart()
    
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnStacked
    ActiveChart.SetSourceData Source:=Sheets("PivRetained").Range("A3:F34")
    ActiveChart.Location Where:=xlLocationAsObject, Name:="PivRetained"
    ActiveChart.Name = "Active Hires By Performance 2015" ' Here I get the error

End Sub
I get an error when I try to give the chart a name.

where is my mistake?

Thank you,
Tamir
 

Caleeco

Well-known Member
Joined
Jan 9, 2016
Messages
890
Hello Tamir,

Are you trying to change the chart name? or the displayed title ON the chart?

Caleeco
 

Caleeco

Well-known Member
Joined
Jan 9, 2016
Messages
890
Provided you have one chart on the sheet, this will do:
Code:
Sub PC_Name()    ActiveSheet.ChartObjects(1).Name = "Active Hires By Performance 2015"
End Sub
If you have more than one sheet, you would just need to pull the chart name of the newly created chart and adjust code accordingly.

Cheers
Caleeco
 

TamirBasin

New Member
Joined
Apr 11, 2017
Messages
44
I do have more than one chart on the sheet.
How do I assign a name to the chart that was just created?
See please this code:
What should I do to fix it?
Sub CreatePivotChart()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Sheets("PivRetained").Range("A3:F34")
ActiveChart.Name = "Active Hires By Performance 2015" ' Here I get the error
End Sub
 

Forum statistics

Threads
1,081,996
Messages
5,362,612
Members
400,684
Latest member
Vie

Some videos you may like

This Week's Hot Topics

  • populate from drop list with multiple tables
    Hi All, i have a drop list that displays data, what i want is when i select one of those from the list to populate text from different tables on...
  • Find list of words from sheet2 in sheet1 before a comma and extract text vba
    Hi Friends, Trying to find the solution on my task. But did not find suitable one to the need. Here is my query and sample file with details...
  • Dynamic Formula entry - VBA code sought
    Hello, really hope one of you experts can help with this - i've spent hours on this and getting no-where. .I have a set of data (more rows than...
  • Listbox Header
    Have a named range called "AccidentsHeader" Within my code I have: [CODE]Private Sub CommandButton1_Click() ListBox1.RowSource =...
  • Complex Heat Map using conditional formatting
    Good day excel world. I have a concern. Below link have a list of countries that carries each country unique data. [URL...
  • Conditional formatting
    Hi good morning, hope you can help me please, I have cells P4:P54 and if this cell is equal to 1 then i want row O to say "Fully Utilised" and to...
Top