So fügen Sie mit VBA ein Bild an einer bestimmten Zellenposition in Excel ein

Question

Oct 17, 2012, 04:29 PM

So fügen Sie mit VBA ein Bild an einer bestimmten Zellenposition in Excel ein

Ich füge meinem Excel-Arbeitsblatt ".jpg" -Dateien mit dem folgenden Code hinzu:

'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

Ich weiß nicht, was ich falsch mache, aber es wird nicht in die richtige Zelle eingefügt. Wie kann ich dieses Bild in eine bestimmte Zelle in Excel einfügen?