Import an Image into Excel with Option Strict On

[Jedawi]

Hi,

would anyone be able to point me in the right direction on how to import an
image (.jpg file) into
an Excel worksheet using VB.Net and Option Strict On. This should be
straight forward however with Excel returning some weak-typed objects we are
having problems.

The only problem we have is with line (full code below)
oExcel.ActiveSh eet.Pictures.In sert("C:\Images \AB1.jpg").Sele ct()

Option Strict disallows late binding and oExcel.Activesh eet returns an
Object Type of Object

With Option Strict off the following code works fine:

'Start Excel and get Application object
Dim oExcel As Excel.Applicati on = New Excel.Applicati on

'Get a new workbook
Dim oBook As Excel.Workbook = CType(oExcel.Wo rkbooks.Add(), Excel.Workbook)
Dim oSheet As Excel.Worksheet = CType(oBook.Act iveSheet, Excel.Worksheet )
Dim oRng As Excel.Range

With oSheet
CType(.Cells(4, 1), Excel.Range).Va lue = "COMPILED:-"
CType(.Cells(5, 1), Excel.Range).Va lue = "TITLE:-"
CType(.Cells(6, 1), Excel.Range).Va lue = "APPROVED"
CType(.Cells(27 , 2), Excel.Range).Va lue = "PIC ID"
CType(.Cells(24 , 8), Excel.Range).Va lue = "PIC ID"
CType(.Cells(45 , 7), Excel.Range).Va lue = "PIC ID"
oRng = DirectCast(.Cel ls(5, 5), Excel.Range)
oRng.Cells.Sele ct()
End With

oExcel.ActiveSh eet.Pictures.In sert("C:\Images \AB1.jpg").Sele ct()
oSheet.SaveAs(t empFileName)

'Save the report.
oExcel.Workbook s.Close()
oExcel.Quit()
System.Runtime. InteropServices .Marshal.Releas eComObject(oExc el)

oSheet = Nothing
oBook = Nothing
oExcel = Nothing

Any help would be much appreciated.

Regards