将活动窗体拷贝到工作表中（方法一）

zldccmx

在论坛中有人问到，如何将窗体拷贝下来。
由于APPLICATION中的SENDKES不支持拷贝屏幕，所以一般的办法无法满足要求。
经过摸索，终于找到办法，现特将代码奉献如下。
1.在窗体前面加上如下代码：

1. 
   
2. Option Explicit
   
3. Private Declare Sub keybd_event Lib "User32" _
   
4.                                 (ByVal bVk As Byte, _
   
5.                                  ByVal bScan As Byte, _
   
6.                                  ByVal dwFlags As Long, _
   
7.                                  ByVal dwExtraInfo As Long)
   
8. Private Sub UserForm_Click()
   
9.     keybd_event 44, 1&, 0&, 0&    '如果是　0,0,0　就是整个屏幕拷贝，1,0,0是指当前活动窗口，本例中是指窗体
   
10.     DoEvents '给定充足的时间，让剪切板能够获取完数据
    
11.     ActiveSheet.Paste'粘贴到当前工作表中
    
12. End Sub

复制代码

2.当你单击窗体时，就实现了你的愿望。窗体就以图片的形式粘贴到活动工作表中。单击窗体一次粘贴一次。

为节省论坛空间，附件就不上传了大家自行测试。

参见：将活动窗体拷贝到工作表中（方法二）

[ 本帖最后由 zldccmx 于 2009-5-28 13:47 编辑 ]

tonyibm

牛人，真是没有做不到，只有想不到，

三戒

谢谢分享，不错的示例

ggsmart

收藏学习！！！！！！
老朽真能干！

努力学习01

服~！~！~！

占位。。。待用！~！！！！！！！！！！！！

tzgwh

这个确实很牛。

1987625sun

站位了，哈哈

Millier

受用，谢谢！

liucqa

不错