如何將圖片從PictureBox1復制到Excel？

Question

以下代碼將excel圖表復制為圖片並將其粘貼到PictureBox1中。

Dim ExcelWbk1 As Excel.Workbook
ExcelWbk1.ActiveChart.CopyPicture(Microsoft.Office.Interop.Excel.XlPictureAppearance.xlScreen, Microsoft.Office.Interop.Excel.XlCopyPictureFormat.xlBitmap)
PictureBox1.Image = CType(Clipboard.GetData(System.Windows.Forms.DataFormats.Bitmap), Bitmap)

現在，讓我們做相反的事情。

如何從PictureBox1復制圖像並將其粘貼到Excel？

以下鏈接可能會有所幫助... https://msdn.microsoft.com/zh-cn/library/ms172505(v=vs.90).aspx

Answer 1

試一試......

Dim xlApp As New Excel.Application
Dim wbkMyBook As Excel.Workbook
Dim shtMySheet As Worksheet

wbkMyBook = xlApp.Workbooks.Open(path to xls file)

xlApp.Visible = True

shtMySheet = wbkMyBook.Worksheets(1)

Clipboard.Clear()

Clipboard.SetData(Image, Me.PictureBox1.Image)

shtMySheet.Paste

wbkMyBook = Nothing
shtMySheet = Nothing
xlApp.Quit
xlApp = Nothing

Answer 2

你可以使用這樣的東西

Clipboard.SetImage(pictureBox1.Image)
ActiveSheet.Paste(ActiveSheet.Range("A1"))