主题：多图表问题

窗口 A ,有三张图表,A1,A2,A3

 

请教老师：

   1.能否一次将三张图表保存在一个WORD 文件中。

   2.能否一次将3张制图表复制到剪贴板。

   3.能否将窗口内容像截图那样形成一个图形文件。

谢谢！

1、word插入图片，参考

 

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

 

2、剪贴板，只能最多拷贝一张图片。

 

如果要加入文件，参考 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=116723&skin=0

 

3、方法一：

 

http://www.foxtable.com/webhelp/scr/1590.htm

 

http://www.foxtable.com/webhelp/scr/2450.htm

 

方法二：直接截屏

 

Dim trv = e.Form.panel
Dim point As Point = e.Form.panel.PointToScreen(trv.Bounds.Location)
Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(trv.width, trv.height) '截取的大小
Dim bit As New Bitmap(s.Width, s.Height , myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(point.x, point.y, 0, 0, s) '截取的开始位置,坐标(100, 200)
bit.save("d:\test.jpg")
memoryGraphics.dispose
myGraphics.dispose
bit.dispose

Dim Proc As New Process '定义一个新的Process
Proc.File = "d:\test.jpg"   '指定要打开的文件
Proc.Start() '打开文件