以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图表拷贝及放大问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129388)

--  作者:动检
--  发布时间:2018/12/27 15:53:00
--  图表拷贝及放大问题
问题一:一次拷贝多图表,拷贝成功但只能出现一个图,代码如下该如何改写?

Dim Chart As WinForm.Chart
Chart= Forms("统计结果").Controls("Chrt1")             Chrt1代表第一个图表 我给命名的名称  
图片点击可在新窗口打开查看此主题相关图片如下:qq图片图表生成.png
图片点击可在新窗口打开查看
Chart= Forms("统计结果").Controls("Chrt2")
Chart= Forms("统计结果").Controls("Chrt3")
Chart= Forms("统计结果").Controls("Chrt4")
Chart.CopyImage()
 

问题二:窗口里的图表如何实现放大缩小,比如说在图表右下角增加一个小加号或小减号来实现。
           再或者鼠标放在某图表上时呈现浮窗效应,放大某图,鼠标离开又像之前一样正常显示。
           哪个更容易实现呢?代码如何写

--  作者:有点甜
--  发布时间:2018/12/27 16:55:00
--  

1、剪贴板只能复制和存放一张图片的。赋值图片文件,参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=116723&skin=0

 

2、参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=122775&skin=0