Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need to replace existinf graph for new graph with the same name
I need to include in this code the following thing.
1. Suppose that a graph called "TEST" already exixt. 2. I run my macro for created a new graph called "TEST". 3. I want that the macro reconized the graph described in step 1 and replaced it with the new graph described in step 2. How can I do that? Here it my code: Sub TEST() Dim CHT As Chart Set CHT = Charts.Add With CHT .Name = "NC TREND PER SHIFT1" .ChartType = xlColumnClustered .SetSourceData Source:=Sheets("NC TREND").Range("B4:G4,B12:G12"), PlotBy:=xlRows .HasTitle = True .ChartTitle.Characters.Text = Sheets("NC Trend").Cells(1, 1) .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "SHIFT" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "AVERAGE NC" .HasLegend = False .SeriesCollection(1).HasDataLabels = True End With With ActiveChart.Axes(xlValue) .MinimumScaleIsAuto = True .MaximumScale = 10 .MinorUnitIsAuto = True .MajorUnitIsAuto = True .Crosses = xlAutomatic .ReversePlotOrder = False .ScaleType = xlLinear .DisplayUnit = xlNone End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need to replace existinf graph for new graph with the same name
on error resume next
charts("TEST").delete on error goto 0 Tim "anamarie30" wrote in message ... I need to include in this code the following thing. 1. Suppose that a graph called "TEST" already exixt. 2. I run my macro for created a new graph called "TEST". 3. I want that the macro reconized the graph described in step 1 and replaced it with the new graph described in step 2. How can I do that? Here it my code: Sub TEST() Dim CHT As Chart Set CHT = Charts.Add With CHT .Name = "NC TREND PER SHIFT1" .ChartType = xlColumnClustered .SetSourceData Source:=Sheets("NC TREND").Range("B4:G4,B12:G12"), PlotBy:=xlRows .HasTitle = True .ChartTitle.Characters.Text = Sheets("NC Trend").Cells(1, 1) .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "SHIFT" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "AVERAGE NC" .HasLegend = False .SeriesCollection(1).HasDataLabels = True End With With ActiveChart.Axes(xlValue) .MinimumScaleIsAuto = True .MaximumScale = 10 .MinorUnitIsAuto = True .MajorUnitIsAuto = True .Crosses = xlAutomatic .ReversePlotOrder = False .ScaleType = xlLinear .DisplayUnit = xlNone End With End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need to replace existinf graph for new graph with the same nam
Thanks for your help! It work great!!
"Tim Williams" wrote: on error resume next charts("TEST").delete on error goto 0 Tim "anamarie30" wrote in message ... I need to include in this code the following thing. 1. Suppose that a graph called "TEST" already exixt. 2. I run my macro for created a new graph called "TEST". 3. I want that the macro reconized the graph described in step 1 and replaced it with the new graph described in step 2. How can I do that? Here it my code: Sub TEST() Dim CHT As Chart Set CHT = Charts.Add With CHT .Name = "NC TREND PER SHIFT1" .ChartType = xlColumnClustered .SetSourceData Source:=Sheets("NC TREND").Range("B4:G4,B12:G12"), PlotBy:=xlRows .HasTitle = True .ChartTitle.Characters.Text = Sheets("NC Trend").Cells(1, 1) .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "SHIFT" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "AVERAGE NC" .HasLegend = False .SeriesCollection(1).HasDataLabels = True End With With ActiveChart.Axes(xlValue) .MinimumScaleIsAuto = True .MaximumScale = 10 .MinorUnitIsAuto = True .MajorUnitIsAuto = True .Crosses = xlAutomatic .ReversePlotOrder = False .ScaleType = xlLinear .DisplayUnit = xlNone End With End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Combining a 2-D column graph and a 2-D line graph on the same char | Charts and Charting in Excel | |||
How do I graph data daily as a line graph across a calendar format | Charts and Charting in Excel | |||
Cluster stacked graph AND line combo graph? | Charts and Charting in Excel | |||
Creating a graph similar to a stacked column graph | Charts and Charting in Excel | |||
Hyperlinkage of one graph with another graph or Drill down graph | Charts and Charting in Excel |