S
Senthil
Hi Friends
I create a Line - Column on 2 Axes chart in Excel and I want to
change the colour of the Legends.
Can anyone help me with that???
Here is the code for the Chart creation.....
Regards
Senthil
Sub ExcelChart()
ActiveWorkbook.Charts.Add
ActiveChart.SetSourceData
Source:=Sheets("Sheet1").Range("A1:J13"), PlotBy:= _
xlRows
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Line - Column on 2 Axes"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "AME Gear"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Count"
.Axes(xlCategory, xlSecondary).HasTitle = False
.Axes(xlValue, xlSecondary).HasTitle = True
.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text =
"Percent"
End With
With ActiveChart.Parent
.Top = 170
.Left = 10
.Height = 350
.Width = 600
End With
ActiveChart.HasLegend = True
End Sub
I create a Line - Column on 2 Axes chart in Excel and I want to
change the colour of the Legends.
Can anyone help me with that???
Here is the code for the Chart creation.....
Regards
Senthil
Sub ExcelChart()
ActiveWorkbook.Charts.Add
ActiveChart.SetSourceData
Source:=Sheets("Sheet1").Range("A1:J13"), PlotBy:= _
xlRows
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Line - Column on 2 Axes"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "AME Gear"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Count"
.Axes(xlCategory, xlSecondary).HasTitle = False
.Axes(xlValue, xlSecondary).HasTitle = True
.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text =
"Percent"
End With
With ActiveChart.Parent
.Top = 170
.Left = 10
.Height = 350
.Width = 600
End With
ActiveChart.HasLegend = True
End Sub