生成新图前先删除前一个图表

tsgxy

图表菜鸟请大神帮看一下，修改一下。另外图表左侧纵向的数值和下方横向的改为红色，如何增加代码也请帮一下，拜托！

Datous

1. Sub 按钮1_Click()
   
2.     Dim cho As ChartObject
   
3.     Dim sht As Worksheet
   
4.    
   
5.     Set sht = Worksheets("Sheet1")   
   
6.     For Each cho In sht.ChartObjects
   
7.         cho.Delete
   
8.     Next
   
9.    
   
10.     With sht.Shapes.AddChart2(XlChartType:=xlColumnClustered).Chart
    
11.         .SetSourceData Source:=sht.Range("A1").CurrentRegion
    
12.         .Axes(Type:=xlCategory).TickLabels.Font.Color = RGB(255, 0, 0)
    
13.         .Axes(Type:=xlValue).TickLabels.Font.Color = RGB(255, 0, 0)
    
14.     End With
    
15. End Sub

复制代码

tsgxy

Datous 发表于 2020-9-23 10:57

感谢热心人帮助！我的电脑用的是excel2010，请问把AddChart2中的2去除后，AddChart在2013及以上版本中是不是可以正常运行？

Datous

tsgxy 发表于 2020-9-23 13:58
感谢热心人帮助！我的电脑用的是excel2010，请问把AddChart2中的2去除后，AddChart在2013及以上版本中是 ...

你没再次回复我，我收不到提醒

1. Sub 按钮1_Click()
   
2.     Dim cho As ChartObject
   
3.     Dim sht As Worksheet
   
4.    
   
5.     Set sht = Worksheets("Sheet1")
   
6.    
   
7.     For Each cho In sht.ChartObjects
   
8.         cho.Delete
   
9.     Next
   
10.    
    
11.     With sht.ChartObjects.Add(200, 100, 400, 247).Chart
    
12.         .ChartType = xlColumnClustered
    
13.         .SetSourceData Source:=sht.Range("A1").CurrentRegion
    
14.         .Axes(Type:=xlCategory).TickLabels.Font.Color = RGB(255, 0, 0)
    
15.         .Axes(Type:=xlValue).TickLabels.Font.Color = RGB(255, 0, 0)
    
16.     End With
    
17. End Sub

复制代码

用 chartobject.add 可以向上兼容到 2003版