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

Question

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

我遇到了这个解决方案，但我不明白（Paste an image from clipboard to a cell in Excel）

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

我尝试了几个代码，例如：

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

但是我在“Dim grabpicture”中收到错误。

我们正在使用Office 2010。

Answer 1

您尝试的代码段不是VBA。以下是如何从Excel-VBA中的剪贴板粘贴：

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

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