| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deleting Charts
Hello All:
I am creating a chart by ht following code, that is activated via command button. Private Sub CommandButton3_Click() Application.ScreenUpdating = False Charts.Add ActiveChart.Location Whe=xlLocationAsObject, Name:="Roster" With ActiveChart .SetSourceData Source:=Sheets("Roster").Range("A2:E5"), PlotBy:= _ xlRows .HasTitle = True .ChartType = xlColumnClustered .HasLegend = False .SeriesCollection(1).XValues = "=Roster!R2C1:R5C1" .SeriesCollection(1).Values = "=Roster!R2C4:R5C4" .SeriesCollection(1).Name = "=Roster!R1C4" .SeriesCollection(2).Values = "=Roster!R2C5:R5C5" .SeriesCollection(2).Name = "=Roster!R1C5" .ChartTitle.Characters.Text = "Concepts About Print" .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With I want to delete this chart via another command Button using this code, it is not working, Any Idea Private Sub CommandButton4_Click() ActiveSheet.ChartObject.Delete End Sub |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Deleting Charts
One way is to create a module level variable to use;
Dim MyChart As Chart Private Sub CommandButton1_Click() Set MyChart = Charts.Add End Sub Private Sub CommandButton2_Click() If Not MyChart Is Nothing Then Application.DisplayAlerts = False MyChart.Delete Application.DisplayAlerts = True Set MyChart = Nothing End If End Sub NickHK "Ardy" wrote in message oups.com... Hello All: I am creating a chart by ht following code, that is activated via command button. Private Sub CommandButton3_Click() Application.ScreenUpdating = False Charts.Add ActiveChart.Location Whe=xlLocationAsObject, Name:="Roster" With ActiveChart .SetSourceData Source:=Sheets("Roster").Range("A2:E5"), PlotBy:= _ xlRows .HasTitle = True .ChartType = xlColumnClustered .HasLegend = False .SeriesCollection(1).XValues = "=Roster!R2C1:R5C1" .SeriesCollection(1).Values = "=Roster!R2C4:R5C4" .SeriesCollection(1).Name = "=Roster!R1C4" .SeriesCollection(2).Values = "=Roster!R2C5:R5C5" .SeriesCollection(2).Name = "=Roster!R1C5" .ChartTitle.Characters.Text = "Concepts About Print" .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With I want to delete this chart via another command Button using this code, it is not working, Any Idea Private Sub CommandButton4_Click() ActiveSheet.ChartObject.Delete End Sub |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Deleting Charts
Thanks.......
NickHK wrote: One way is to create a module level variable to use; Dim MyChart As Chart Private Sub CommandButton1_Click() Set MyChart = Charts.Add End Sub Private Sub CommandButton2_Click() If Not MyChart Is Nothing Then Application.DisplayAlerts = False MyChart.Delete Application.DisplayAlerts = True Set MyChart = Nothing End If End Sub NickHK "Ardy" wrote in message oups.com... Hello All: I am creating a chart by ht following code, that is activated via command button. Private Sub CommandButton3_Click() Application.ScreenUpdating = False Charts.Add ActiveChart.Location Whe=xlLocationAsObject, Name:="Roster" With ActiveChart .SetSourceData Source:=Sheets("Roster").Range("A2:E5"), PlotBy:= _ xlRows .HasTitle = True .ChartType = xlColumnClustered .HasLegend = False .SeriesCollection(1).XValues = "=Roster!R2C1:R5C1" .SeriesCollection(1).Values = "=Roster!R2C4:R5C4" .SeriesCollection(1).Name = "=Roster!R1C4" .SeriesCollection(2).Values = "=Roster!R2C5:R5C5" .SeriesCollection(2).Name = "=Roster!R1C5" .ChartTitle.Characters.Text = "Concepts About Print" .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With I want to delete this chart via another command Button using this code, it is not working, Any Idea Private Sub CommandButton4_Click() ActiveSheet.ChartObject.Delete End Sub |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Deleting Charts
Ardy's chart is an embedded chart:
ActiveChart.Location Whe=xlLocationAsObject, Name:="Roster" This will clear all charts on Roster: Worksheets("Roster").ChartObjects.Delete This will delete just the last one created: Worksheets("Roster").ChartObjects(Worksheets("Rost er").ChartObjects.Count).Delete - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "NickHK" wrote in message ... One way is to create a module level variable to use; Dim MyChart As Chart Private Sub CommandButton1_Click() Set MyChart = Charts.Add End Sub Private Sub CommandButton2_Click() If Not MyChart Is Nothing Then Application.DisplayAlerts = False MyChart.Delete Application.DisplayAlerts = True Set MyChart = Nothing End If End Sub NickHK "Ardy" wrote in message oups.com... Hello All: I am creating a chart by ht following code, that is activated via command button. Private Sub CommandButton3_Click() Application.ScreenUpdating = False Charts.Add ActiveChart.Location Whe=xlLocationAsObject, Name:="Roster" With ActiveChart .SetSourceData Source:=Sheets("Roster").Range("A2:E5"), PlotBy:= _ xlRows .HasTitle = True .ChartType = xlColumnClustered .HasLegend = False .SeriesCollection(1).XValues = "=Roster!R2C1:R5C1" .SeriesCollection(1).Values = "=Roster!R2C4:R5C4" .SeriesCollection(1).Name = "=Roster!R1C4" .SeriesCollection(2).Values = "=Roster!R2C5:R5C5" .SeriesCollection(2).Name = "=Roster!R1C5" .ChartTitle.Characters.Text = "Concepts About Print" .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With I want to delete this chart via another command Button using this code, it is not working, Any Idea Private Sub CommandButton4_Click() ActiveSheet.ChartObject.Delete End Sub |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Deleting Charts
Thanks Jon,
Works Much Cleaner. Jon Peltier wrote: Ardy's chart is an embedded chart: ActiveChart.Location Whe=xlLocationAsObject, Name:="Roster" This will clear all charts on Roster: Worksheets("Roster").ChartObjects.Delete This will delete just the last one created: Worksheets("Roster").ChartObjects(Worksheets("Rost er").ChartObjects.Count).Delete - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "NickHK" wrote in message ... One way is to create a module level variable to use; Dim MyChart As Chart Private Sub CommandButton1_Click() Set MyChart = Charts.Add End Sub Private Sub CommandButton2_Click() If Not MyChart Is Nothing Then Application.DisplayAlerts = False MyChart.Delete Application.DisplayAlerts = True Set MyChart = Nothing End If End Sub NickHK "Ardy" wrote in message oups.com... Hello All: I am creating a chart by ht following code, that is activated via command button. Private Sub CommandButton3_Click() Application.ScreenUpdating = False Charts.Add ActiveChart.Location Whe=xlLocationAsObject, Name:="Roster" With ActiveChart .SetSourceData Source:=Sheets("Roster").Range("A2:E5"), PlotBy:= _ xlRows .HasTitle = True .ChartType = xlColumnClustered .HasLegend = False .SeriesCollection(1).XValues = "=Roster!R2C1:R5C1" .SeriesCollection(1).Values = "=Roster!R2C4:R5C4" .SeriesCollection(1).Name = "=Roster!R1C4" .SeriesCollection(2).Values = "=Roster!R2C5:R5C5" .SeriesCollection(2).Name = "=Roster!R1C5" .ChartTitle.Characters.Text = "Concepts About Print" .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With I want to delete this chart via another command Button using this code, it is not working, Any Idea Private Sub CommandButton4_Click() ActiveSheet.ChartObject.Delete End Sub |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Deleting All charts using VB | Excel Programming | |||
| Deleting SeriesCollections in charts | Excel Programming | |||
| Charts should not be resized when deleting rows/columns. | Charts and Charting in Excel | |||
| Automatically Confirm Deleting Charts | Excel Programming | |||
| Deleting charts on a sheet | Excel Programming | |||
Linear Mode
