使用VBA（Excel）从剪贴板粘贴图像

Question

我正在尝试编写一个宏，允许用户将图像（如屏幕截图）粘贴到我的电子表格中。

我遇到了这个解决方案，但我不明白（ 将剪贴板中的图像粘贴到Excel中的单元格中 ）

我需要实现的目标：1）用户像截图工具一样拍摄屏幕快照2）允许用户将剪贴板中的图像粘贴到工作表1上与单元格J55对齐的指定区域（和大小）上。 3）同样，用户以后应该能够重复使用该图像（另一个将图像粘贴到另一张纸上的宏按钮）

我尝试了一些代码，例如：

 If My.Computer.Clipboard.ContainsImage() Then Dim grabpicture = My.Computer.Clipboard.GetImage() PictureBox1.Image = grabpicture End If 

但我在“昏暗的抓斗图片”中遇到错误。

我们正在使用Office 2010。

Answer 1

您尝试使用的代码段不是VBA。 这是从Excel-VBA中的剪贴板粘贴的方法：

 Sheet1.Paste Destination:= Sheet1.Range("J55"), Link:= False

这会将剪贴板中的所有内容粘贴到Sheet1上，并与单元格J55对齐。 如果剪贴板中有图像，将粘贴该图像。