vb.net 往excel中插入图片并且图片大小自适应
时间: 2023-08-14 10:37:24 浏览: 249
你可以使用以下代码来将图片插入到Excel中,并自适应大小:
```vb.net
' 创建 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` 方法用于设置图片大小自适应。