Question

excel中用VBA怎样实现照相机功能

在窗体中放一个控件，只要按下控件就将某张表的预设区域照相下来。该怎么做?
一楼，如果我在要将拍下的图片放在A21:G40区域上还应该加什么

Answer 1

接楼上的，代码第二行后面加一句
Range("A21").Select
注：只需选定A21:G40这个区域左上角的单元格。

请把以下代码复制到VBA编辑器中，并按照你的预设区域修改代码中所指定的区域。

Sub abc()
'复制区域A1:G20
Range("A1:G20").Copy
'选择单元格A21，即目标区域左上角的单元格
Range("A21").Select
'粘贴为图片
ActiveSheet.Pictures.Paste(Link:=True).Select
End Sub

回到Excel表，在预设区域之外的地方，插入一个按钮（表单控件），并指定宏名为“abc”就可以了。

有不清楚的地方请再问我好了。

Answer 2

Sub abc()
Range("A1:G20").Copy
ActiveSheet.Pictures.Paste(Link:=True).Select
End Sub

A1:G20是预设区域。