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"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=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

> 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
_______


<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>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"), _
> PlotBy:=xlColumns
> ActiveChart.Location Where:=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
>

On Oct 22, 9:23 pm, "Jon Peltier" <jonxlmv...@SPAMpeltiertech.com>
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
> _______
>
> <ucanalw...@gmail.com> wrote in message
>
> news:(E-Mail Removed)...
>
> >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"), _
> > PlotBy:=xlColumns
> > ActiveChart.Location Where:=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.

On Oct 22, 9:23 pm, "Jon Peltier" <jonxlmv...@SPAMpeltiertech.com>
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
> _______
>
> <ucanalw...@gmail.com> wrote in message
>
> news:(E-Mail Removed)...
>
> >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"), _
> > PlotBy:=xlColumns
> > ActiveChart.Location Where:=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, Thanks. It works.

On Oct 22, 9:23 pm, "Jon Peltier" <jonxlmv...@SPAMpeltiertech.com>
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
> _______
>
> <ucanalw...@gmail.com> wrote in message
>
> news:(E-Mail Removed)...
>
> >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"), _
> > PlotBy:=xlColumns
> > ActiveChart.Location Where:=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, Thanks. It works.