使用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對齊。 如果剪貼板中有圖像，將粘貼該圖像。