Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim xlApp As Excel.Application

        Dim xlWorkBook As Excel.Workbook

        Dim xlWorkSheet As Excel.Worksheet

        Dim misValue As Object = System.Reflection.Missing.Value



        xlApp = New Excel.Application()

        xlWorkBook = xlApp.Workbooks.Add(misValue)

        xlWorkSheet = xlWorkBook.Sheets("Sayfa1")





        'Yazı ekleme

        xlWorkSheet.Cells(1, 1) = "Excel Dosyasına Resim Ekleme"



        'Yazı fontunu belirleme

        xlWorkSheet.Cells(1, 1).Font.Bold = True

        xlWorkSheet.Cells(1, 1).Font.Size = 16

        xlWorkSheet.Cells(1, 1).Font.Name = "Arial"



        'Seçtiğimiz resimi Excel deki çalışma sayfamıza ekliyoruz.

        xlWorkSheet.Shapes.AddPicture("C:\Documents and Settings\drummers\Desktop\Sipariş_Form\Sipariş_Form\Sipariş_Form\bin\Debug\adsız.jpg", _

        Microsoft.Office.Core.MsoTriState.msoFalse, _

        Microsoft.Office.Core.MsoTriState.msoCTrue, 350, 50, 200, 250)





        'Excel dosyamızı kaydediyoruz.

        Dim str As String = "D:\image.xls"

        xlWorkSheet.SaveAs(str)



        xlWorkBook.Close()

        xlApp.Quit()



        releaseObject(xlApp)

        releaseObject(xlWorkBook)

        releaseObject(xlWorkSheet)



        MsgBox("Excel dosyası oluşturuldu." & vbCrLf & "Dosya adresi: " & str)



    End Sub

Private Sub releaseObject(ByVal obj As Object)

        Try

            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)

            obj = Nothing

        Catch ex As Exception

            obj = Nothing

        Finally

            GC.Collect()

        End Try

    End Sub

Bu şekilde Excel dosyasına eklediğimiz resmin boyutlarını nasıl değiştirebiliriz ?

Resmi eklerken en ve boy ölçüleri verdirmek istiyorum
Teşekkürler