Dim workbook As New Infragistics.Documents.Excel.Workbook()
Dim worksheet As Infragistics.Documents.Excel.Worksheet = _
workbook.Worksheets.Add("Sheet1")
Dim image As Image = image.FromFile("C:\image.bmp")
Dim imageShape As Infragistics.Documents.Excel.WorksheetImage = _
New Infragistics.Documents.Excel.WorksheetImage(image)
Dim cellA1 As Infragistics.Documents.Excel.WorksheetCell = _
worksheet.Rows.Item(0).Cells.Item(0)
' 画像の左上隅は、
' セル A1 の左上隅でなければなりません。
imageShape.TopLeftCornerCell = cellA1
imageShape.TopLeftCornerPosition = New PointF(0.0F, 0.0F)
' 画像の右下隅は、
' セル A1 の右下隅でなければなりません。
imageShape.BottomRightCornerCell = cellA1
imageShape.BottomRightCornerPosition = New PointF(100.0F, 100.0F)
worksheet.Shapes.Add(imageShape)