如何將圖片從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/en-us/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"))