Grafik in Zelle einfügen und automatisch anpassen

Hallo liebe Admin Gemeinde,
ich habe eine Problem was ich bis jetzt nicht so wirklich lösen konnte!
Hab auch mit Google nichts gefunden was mir weiter geholfen hat!

Und zwar würde ich gerne in eine Zelle eine Grafik einfügen und die Grafik soll sich dann automatisch an die Zellen größe anpassen (oder vielleicht an einem vorgegebenen Wert, sprich Länge und Breite, orientieren).
Kann man das vielleicht mit VBA oder so umsetzen ? Wenn ja, wie?

Wäre eine feine Sache wenn mir wer weiterhelfen könnte - besten DANK!


mfg
sims

Sub test()
    Dim Grafik As Shape
    
    For Each Grafik In ActiveSheet.Shapes
        With Grafik
            .LockAspectRatio = msoFalse
            .Width = .TopLeftCell.Width
            .Height = .TopLeftCell.Height
        End With
    Next
End Sub