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 |
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 |
All times are GMT +1. The time now is 09:12 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com