使用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

，但我在"昏暗的grabpicture"上遇到了一个错误。

我们正在使用Office2010。

Answer 1

您正在尝试的代码段不是VBA。这是您将如何从Excel-VBA剪贴板粘贴的方式：

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

这将粘贴剪贴板中的任何内容粘贴到Sheet1上，与单元J55对齐。如果剪贴板具有图像，则将粘贴该图像。