Office: Bilder in Zelle mit Autofilter mitverschieben!

Hallo Excel Kollegen!

Ich habe folgendes Problem.
Ich füge per vba ein PDF Symbol als .jpg Datei ein. Soweit funktioniert alles. Wenn ich aber diese Tabelle mit dem Autofilter filtere bleibt das PDF Symbol nicht in der Position(Zelle) wo es eingefügt wurde.
Der Code wie das Symbol eingefügt wird:

Code:

'PDF Suchen und in den Kundenordner verschieben
If FSO.FileExists(Pfad & PDF) Then
    If FSO.FileExists(Kundenordner) Then
        MsgBox "PDF Datei ist bereits gespeichert!", vbCritical + vbOKOnly
        Exit Sub
    Else
        FSO.MoveFile Pfad & PDF, Kundenordner
        
        'PDF Symbol in Zelle einfügen
        Sheets("Schweisserei").Pictures.Insert(Bildpfad).Select
        With Selection.ShapeRange
            .Top = Symbolplatz.Top
            .Left = Symbolplatz.Left
            ScaleA = WorksheetFunction.Min(Symbolplatz.Width / .Width, Symbolplatz.Height / .Height)
            .Height = .Height * ScaleA
        End With
        Selection.Placement = xlMoveAndSize
        Selection.PrintObject = True
    End If

Das Placement statment habe ich auch schon deaktiviert. Ändert aber am Problem nichts.


Beispiel:
Eine neue Zeile wird eingefügt. Das Symbol kommt auf den richtigen Platz. Nachdem der Code abgearbeitet wurde kommt der Autofilter und filtert die Zeilen nach Lieferdatum. Das Symbol bleibt in der untersten Zeile liegen und der Rest der Zeile wandert auf den richtigen Platz (aufsteigend Lieferdatum)

Ich steh auf der Leitung! Hilfe bitte

 

Moin!
Kennt Dein Excel
Range.PictureInCell

Gruß Ralf

 

Guten morgen!
Es kennt nur (Office365 neueste version)
Range.PlacePictureOverCells

Grüße