[已解决]图标制作运行速度很慢，求代码优化或手动方法！

hwc2ycy

1.         .SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
   
2.         With .Axes(xlCategory, 1).AxisTitle
   
3.             .Caption = "aaaaaaaaaa"
   
4.             .Left = 145.921
   
5.             .Top = 87.794
   
6.         End With
   

复制代码

用坐标轴标题改的。

suxiong

不好意思，没有看懂这段。麻烦把整段代码给我下呢。

suxiong

hwc2ycy 发表于 2013-5-20 21:41
用坐标轴标题改的。

不好意思，没有看懂这段。麻烦把整段代码给我下呢。

hwc2ycy

1. Sub 宏1()
   
2.     Application.ScreenUpdating = False
   
3.     With ActiveSheet.Shapes.AddChart.Chart
   
4.         .ChartType = xlXYScatter
   
5.         .SetSourceData Source:=Range("a1").CurrentRegion
   
6.         .SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
   
7.         With .Axes(xlCategory, 1).AxisTitle
   
8.             .Caption = "aaaaaaaaaa"
   
9.             .Left = 145.921
   
10.             .Top = 87.794
    
11.         End With
    
12.     End With
    
13.     Application.ScreenUpdating = True
    
14. End Sub
    

复制代码

你把 .Caption = "aaaaaaaaaa" 里的aaaa换成你的公式。

suxiong

hwc2ycy 发表于 2013-5-20 22:21
你把 .Caption = "aaaaaaaaaa" 里的aaaa换成你的公式。

不对哦，可能理解错了；

公式是根据相应的数据计算出来的哦！我就是不知道公式呀。

hwc2ycy

你先用少量的数据画趋势线，把公式显示出来吧。

suxiong

hwc2ycy 发表于 2013-5-20 23:05
你先用少量的数据画趋势线，把公式显示出来吧。

那结果就不对了哈！公式出来不正确了。

hwc2ycy

那天有人跟我说了，趋势线是经过复杂的运算才得出来的，你的是数据量过大，导致卡的。