Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Replace...
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
|
|||
|
|||
Replace...
How about updating the range property of the chart instead of recreating the
chart? Sheets("My Sheet Tab Name").ChartObjects("NC TREND PER SHIFT1").SetSourceData Source:=Sheets("NC TREND").Range("B4:G4,B12:G12") Good Luck -- Stewart Rogers DataSort Software, L.C. "anamarie30" wrote: 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 | |||
Find and Replace - Replace with Blank Space | Excel Discussion (Misc queries) | |||
Can I replace a ' at the beginning of a text cell using Replace | Excel Discussion (Misc queries) | |||
How to Replace multiple words to replace using excell | Excel Programming | |||
find and replace - replace data in rows to separated by commas | Excel Worksheet Functions | |||
How can I use replace(alt+H) for mutiple items needing replace | Excel Worksheet Functions |