If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Pivot Table - Change / Format Legend Names
I created a pivot table graph. I have a ranking field that appear
concatenated like {color} 1 - Confused {color} 2 - Ugh I need to change to {color} Confused {color} Ugh Using this code below, I can format the string but the Name is not updating Dim m as Integer Dim strmk As String Dim iLen As Integer For m = 1 To ActiveChart.SeriesCollection.Count iLen = Len(ActiveChart.SeriesCollection(m).Name) strmk = (Mid(ActiveChart.SeriesCollection(m).Name, 4, iLen)) ActiveChart.SeriesCollection(m).Name = "bob" Next m |
#2
|
|||
|
|||
Pivot Table - Change / Format Legend Names
Excel 2007 PivotTable, PivotChart
Change the PT data headers instead: Sub NameChange() Dim s As String Dim n As Integer With ActiveSheet.PivotTables(1) For n = 1 To .DataFields.Count s = .DataFields(n).Name s = Replace(s, "Sum of ", "_") ..DataFields(n).Name = s Next n End With End Sub |
Thread Tools | |
Display Modes | |
|
|