[已解决]用代码怎样退出excel图表的编辑环境状态？

642070295

麻烦各位大侠帮看一下附件（运行宏1代码插入折线图之后，这时的折线图仍然处于编辑的环境状态，用代码怎样退出该折线l图的编辑环境状态呢？） 工作簿13.rar (14.06 KB, 下载次数: 3)

2014-1-15 10:19 上传

点击文件名下载附件      先谢了！

最佳答案

月排行榜 / 总排行榜

冥王

2014-1-15 16:15

随便加点内容就可以了

1. Sub 宏1()
   
2. 
   
3.     Range("A1:C26").Select
   
4.     ActiveSheet.Shapes.AddChart.Select
   
5.     ActiveChart.ChartType = xlLine
   
6.     ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$C$26")
   
7.     ActiveChart.SeriesCollection(1).Select
   
8.     With Selection.Format.Line
   
9.         .Visible = msoTrue
   
10.         .ForeColor.RGB = RGB(0, 176, 80)
    
11.         .ForeColor.RGB = RGB(255, 0, 0)
    
12.         .Transparency = 0
    
13.     End With
    
14.     ActiveChart.SeriesCollection(2).Select
    
15.     With Selection.Format.Line
    
16.         .Visible = msoTrue
    
17.         .ForeColor.RGB = RGB(255, 0, 0)
    
18.         .ForeColor.RGB = RGB(112, 48, 160)
    
19.         .Transparency = 0
    
20.     End With
    
21.     Cells(1, 1).Select

复制代码

跳转到最佳答案楼层

冥王

随便加点内容就可以了

1. Sub 宏1()
   
2. 
   
3.     Range("A1:C26").Select
   
4.     ActiveSheet.Shapes.AddChart.Select
   
5.     ActiveChart.ChartType = xlLine
   
6.     ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$C$26")
   
7.     ActiveChart.SeriesCollection(1).Select
   
8.     With Selection.Format.Line
   
9.         .Visible = msoTrue
   
10.         .ForeColor.RGB = RGB(0, 176, 80)
    
11.         .ForeColor.RGB = RGB(255, 0, 0)
    
12.         .Transparency = 0
    
13.     End With
    
14.     ActiveChart.SeriesCollection(2).Select
    
15.     With Selection.Format.Line
    
16.         .Visible = msoTrue
    
17.         .ForeColor.RGB = RGB(255, 0, 0)
    
18.         .ForeColor.RGB = RGB(112, 48, 160)
    
19.         .Transparency = 0
    
20.     End With
    
21.     Cells(1, 1).Select

复制代码

642070295

冥王 发表于 2014-1-15 16:15
随便加点内容就可以了

但是我看到有些程序运行插入图表后，看到的图表就已经是退出了编辑环境状态的图表了（没有后面点击其他单元格这一句的）！是咋回事呢？

冥王

这个就不清楚了  我的电脑上是直接就可以退出编辑状态的

642070295

冥王 发表于 2014-1-15 18:08
这个就不清楚了  我的电脑上是直接就可以退出编辑状态的

那好吧！先这样用着吧！谢谢了！