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)