如何在 Excel 单元格 VB.NET 中调整图像大小

Question

我是 vb.net 新手，或者更确切地说是所有编程新手。我已经尝试搜索与我的问题相关的每个链接的答案，但我仍然找不到任何答案，或者我只是不理解代码。

我的问题是如何使用 VB.NET 在 excel 中调整图像大小。我在将图像插入 excel 的代码已经有效，但我希望更大的图像具有固定大小。

这是我插入图像的代码，请帮助我如何将图像大小调整为固定的 2 英寸或其他什么。请。。。

Private Sub AddPicture_Click(sender As System.Object, e As System.EventArgs) 
Handles AddPicture.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
            'Start Excel
            APP = New Excel.Application
            'Open an existing excel application
            Dim workbook = APP.Workbooks.OpenXML("C:UsersuserMy Documents
            PROJ 141SystemBook1.xlsx")
            Dim worksheet = workbook.Worksheets("sheet1")
            Dim oRng As Excel.Range
            Dim misValue As Object = System.Reflection.Missing.Value
            With worksheet
                oRng = DirectCast(.Cells(32, 1), Excel.Range)
                oRng.Cells.Select()
            End With
           'Add a picture to excel
            APP.ActiveSheet.Pictures.Insert(OpenFileDialog1.FileName).Select()
            workbook.Save()
            APP.Workbooks.Close()
            workbook = Nothing
            worksheet = Nothing
            APP.Quit()
            APP = Nothing 
        End If
    End Sub

Answer 1

我很高兴我解决了自己的问题......

我只是更改了这行代码：

APP.ActiveSheet.Pictures.Insert(OpenFileDialog1.FileName).Select()

到：

With APP.ActiveSheet.Pictures.Insert(OpenFileDialog1.FileName)
            .Width = "50"
            .Height = "50"
            .Placement = 1
        End With