Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
About chart with a macro
Hi
I have this in a Macro It works before when i try but now when i record a new macro it dosn't work Her it is Sheets("Ark1").Select Range("A1:A5,D1:D5").Select Range("D1").Activate Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Ark1").Range("A1:A5,D1:D5"), _ PlotBy:=xlRows ActiveChart.Location Whe=xlLocationAsNewSheet With ActiveChart .HasTitle = False .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With My error is in Range("A1:A5,D1:D5").Select the same error if i forget Sheets("Ark1").Select Hope someone can help Alvin |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
About chart with a macro
Hi Alvin,
This worked for me. Copied your code and it worked fine. I knocked off the select and activate since it doesn't seem to be needed and worked the same. So in reality, I have offered no solution 'cept it worked for me. Or at least produced a chart of some kind. Sub ChartIt() Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Ark1") _ .Range("A1:A5,D1:D5"), PlotBy:=xlRows ActiveChart.Location Whe=xlLocationAsNewSheet With ActiveChart .HasTitle = False .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With End Sub HTH Regards, Howard "alvin Kuiper" wrote in message ... Hi I have this in a Macro It works before when i try but now when i record a new macro it dosn't work Her it is Sheets("Ark1").Select Range("A1:A5,D1:D5").Select Range("D1").Activate Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Ark1").Range("A1:A5,D1:D5"), _ PlotBy:=xlRows ActiveChart.Location Whe=xlLocationAsNewSheet With ActiveChart .HasTitle = False .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With My error is in Range("A1:A5,D1:D5").Select the same error if i forget Sheets("Ark1").Select Hope someone can help Alvin |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to change position of chart labels on line chart | Charts and Charting in Excel | |||
Chart macro | Charts and Charting in Excel | |||
chart macro | Excel Discussion (Misc queries) | |||
Chart Macro | Charts and Charting in Excel | |||
Chart using Macro | Charts and Charting in Excel |