vb.net创建一个excel文件，并在单元格中插入图片，让图片四边刚好对齐单元格四边，给出一个完整vb.net代码示例

在VB.NET中，我们可以使用Microsoft.Office.Interop.Excel库来创建Excel文件并插入图片，确保图片四边与单元格对齐。这里是一个简单的示例：

Imports Microsoft.Office.Interop.Excel

Public Class ExcelInsertImage
    Sub CreateExcelAndInsertImage()
        ' 创建一个新的Excel应用实例
        Dim excelApp As New Application
        Dim workbook As Workbook = excelApp.Workbooks.Add()
        Dim worksheet As Worksheet = workbook.Sheets(1)
        
        ' 定义图片路径
        Dim imagePath As String = "C:\path\to\your\image.jpg"
        
        ' 设置图片位置和大小，使其完全填充单元格
        Dim cell As Range = worksheet.Cells(1, 1) ' 假设我们从A1开始
        Dim pic As Picture = worksheet.Pictures.Insert(imagePath)
        pic.Select()
        pic.Left = cell.Left
        pic.Top = cell.Top
        pic.Width = cell.Width
        pic.Height = cell.Height
        
        ' 使图片四周与单元格边缘对齐，这通常需要设置图片环绕模式
        pic.ShapeStyle = msoShapeStyleNone ' 消除默认的轮廓样式
        pic.WrapFormat.Alignment = XlWrapAlignment.xlCenterAcrossSelection
        pic.WrapFormat.VAnchor = XlVAnchor.xlTop

        ' 关闭工作簿和保存文件
        workbook.SaveAs("Output.xlsx")
        workbook.Close()
        excelApp.Quit()

        ' 清理资源
        System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)

        Console.WriteLine("图片已成功插入到Excel文件中.")
    End Sub
End Class

在这个例子中，你需要替换`imagePath`变量为你实际图片的路径。运行这个代码后，会在指定的工作表A1位置插入图片，并保持图片与单元格四边对齐。