ExcelBanter - Custom chart types; Recorded macro acts strange

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Custom chart types; Recorded macro acts strange (https://www.excelbanter.com/excel-programming/399811-custom-chart-types%3B-recorded-macro-acts-strange.html)

Custom chart types; Recorded macro acts strange

I turned on the macro recorder and created a "Line on 2 Axes" chart.
The recorded macro is given below.

I ran the recorded macro but I got a different output (I think the
output was a column chart instead of "Line on 2 Axes" chart)

Why is it so? Usually macro-recorder's code works perfect. Should I
need to turn-on any references or add-ins? Someone who has a solution
for this, please clarify. Thanks

Sub Macro1()

Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Lines on 2 Axes"
ActiveChart.SetSourceData
Source:=Sheets("Sheet1").Range("A:A,C:C,D:D"), _
PlotBy:=xlColumns
ActiveChart.Location Whe=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.Axes(xlCategory, xlSecondary).HasTitle = False
.Axes(xlValue, xlSecondary).HasTitle = False
End With

End Sub

Custom chart types; Recorded macro acts strange

Usually macro-recorder's code works perfect.

Not on planet Earth. Usually it gives you the right idea, but it needs
tweaking.

In any case, your recorded macro defined the chart type before there was any
data, so when you added data, the default chart type was applied. Switch the
ApplyCustomType line to after the SetSourceData line.

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

wrote in message
ps.com...
I turned on the macro recorder and created a "Line on 2 Axes" chart.
The recorded macro is given below.

I ran the recorded macro but I got a different output (I think the
output was a column chart instead of "Line on 2 Axes" chart)

Why is it so? Usually macro-recorder's code works perfect. Should I
need to turn-on any references or add-ins? Someone who has a solution
for this, please clarify. Thanks

Sub Macro1()

Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Lines on 2 Axes"
ActiveChart.SetSourceData
Source:=Sheets("Sheet1").Range("A:A,C:C,D:D"), _
PlotBy:=xlColumns
ActiveChart.Location Whe=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.Axes(xlCategory, xlSecondary).HasTitle = False
.Axes(xlValue, xlSecondary).HasTitle = False
End With

End Sub

Custom chart types; Recorded macro acts strange

On Oct 22, 9:23 pm, "Jon Peltier"
wrote:
Usually macro-recorder's code works perfect.

Not on planet Earth. Usually it gives you the right idea, but it needs
tweaking.

In any case, your recorded macro defined the chart type before there was any
data, so when you added data, the default chart type was applied. Switch the
ApplyCustomType line to after the SetSourceData line.

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

wrote in message

ps.com...

I turned on the macro recorder and created a "Line on 2 Axes" chart.
The recorded macro is given below.

I ran the recorded macro but I got a different output (I think the
output was a column chart instead of "Line on 2 Axes" chart)

Why is it so? Usually macro-recorder's code works perfect. Should I
need to turn-on any references or add-ins? Someone who has a solution
for this, please clarify. Thanks

Sub Macro1()

Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Lines on 2 Axes"
ActiveChart.SetSourceData
Source:=Sheets("Sheet1").Range("A:A,C:C,D:D"), _
PlotBy:=xlColumns
ActiveChart.Location Whe=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.Axes(xlCategory, xlSecondary).HasTitle = False
.Axes(xlValue, xlSecondary).HasTitle = False
End With

End Sub

Jon, this is the first time I am facing the weird behavior of macros.
Btw, your trick works. Thanks.

Custom chart types; Recorded macro acts strange