Insertar imagen en celda de excel con vb.net

Sub insertarImagenCelda(ByVal objExcelWks As Excel.Worksheet, ByVal rutaImagen As String, ByVal coordenadas As Pair)
Dim imagen = objExcelWks.Pictures.Insert(rutaImagen)
Dim cell = objExcelWks.Cells(coordenadas.First, coordenadas.Second)
'Centro en ancho
Dim ancho As Double = cell.Offset(0, 1).Left - cell.Left
imagen.Left = cell.Left + ancho / 2 - imagen.Width / 2
If imagen.Left < 1 Then imagen.Left = 1
'Centro en alto
Dim alto As Double = cell.Offset(1, 0).Top - cell.Top
imagen.Top = cell.Top + alto / 2 - imagen.Height / 2
If imagen.Top < 1 Then imagen.Top = 1

liberarObjeto(imagen)
liberarObjeto(cell)
End Sub

desarrollo sistemas web