vb.net 往excel中插入图片并且图片大小自适应

你可以使用以下代码来将图片插入到Excel中，并自适应大小：

' 创建 Excel 应用程序对象
Dim excelApp As New Excel.Application()

' 打开 Excel 文件
Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\example.xlsx")

' 获取要插入图片的单元格
Dim worksheet As Excel.Worksheet = workbook.Sheets("Sheet1")
Dim cell As Excel.Range = worksheet.Range("A1")

' 插入图片
Dim shape As Excel.Shape = worksheet.Shapes.AddPicture("C:\example.png", _
    Microsoft.Office.Core.MsoTriState.msoFalse, _
    Microsoft.Office.Core.MsoTriState.msoCTrue, _
    cell.Left, cell.Top, -1, -1)

' 设置图片大小自适应
shape.ScaleHeight(1, Microsoft.Office.Core.MsoTriState.msoTrue)
shape.ScaleWidth(1, Microsoft.Office.Core.MsoTriState.msoTrue)

' 保存并关闭 Excel 文件
workbook.Save()
workbook.Close()
excelApp.Quit()

其中，`AddPicture` 方法用于插入图片，`ScaleHeight` 和 `ScaleWidth` 方法用于设置图片大小自适应。