Cómo insertar una imagen en Excel en una posición de celda especificada con VBA

Question

Oct 17, 2012, 04:29 PM

Cómo insertar una imagen en Excel en una posición de celda especificada con VBA

Estoy agregando archivos ".jpg" a mi hoja de Excel con el siguiente código:

'Add picture to excel
xlApp.Cells(i, 20).Select
xlApp.ActiveSheet.Pictures.Insert(picPath).Select
'Calgulate new picture size
With xlApp.Selection.ShapeRange
    .LockAspectRatio = msoTrue
    .Width = 75
    .Height = 100
End With
'Resize and make printable
With xlApp.Selection
    .Placement = 1 'xlMoveAndSize
    '.Placement = 2 'xlMove
    '.Placement = 3 'xlFreeFloating
    .PrintObject = True
End With

No sé qué estoy haciendo mal pero no se inserta en la celda correcta, entonces, ¿qué debo hacer para colocar esta imagen en una celda específica en Excel?