急急!!!!!!!!!!

fog 2004-09-27 04:25:52

怎样取得一个Sheet中的图表数

...全文

59 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

mjs2000 2004-09-28

打赏
举报

上面的有点问题改为
Dim nCount As Integer

nCount = Worksheets(1).ChartObjects.Count
For y = 1 To nCount
Worksheets(1)..ChartObjects(nCount).Copy
Worksheets(2).Paste
Next

上面是分别拷贝，如果你想一次拷贝，那就用下面的语句就可以了
Worksheets(1)..ChartObjects.Copy
Worksheets(2).Paste

mjs2000 2004-09-28

打赏
举报

我下面的方法完全可以把第一个sheet的图拷贝到第二个sheet中
Dim nCount As Integer

nCount = Worksheets(1).ChartObjects.Count
For y = 1 To nCount
Application.ActiveSheet.ChartObjects(nCount).Copy
Worksheets(2).Paste
Next

一般的方法行不通，可能要用到宏或者编一个程序，请帮忙！

华为 MediaPad 10 FHD 算是一个新的产品了，但是刷机不是那么简单。这里有很好的方法！但是还得自己下一个固件（去官方网站下载）

近来，浏览BBS时，常看到“急急急！如何启动OMS和OEM？”的字眼，本文介绍了启动Oracle9i中OEM或OMS的常见问题的解决办法。

很值得学习的java代码！求积分啊，急急急

HL-USB TO RS232驱动 USB转串口线驱动(USB转串口用户用) 急急人之所急！