ich würde gern Grafiken immer in der Mitte einer Zelle positionieren.
Die Zellen sind unterschiedlich hoch, aber immer gleich breit.
Folgenden Code habe ich dazu schon mal gefunden. Ich habe ihn zurecht geklopft soweit ich konnte. Leider passt das so aber nun nicht mit den unterschiedlichen Zellhöhen.
Sub GrafikEinfügen()
Dim objPicture As Picture
With ActiveCell
Set objPicture = .Parent.Pictures.Insert(Tabelle6.[DI3].Value)
objPicture.Top = .Top - 3
objPicture.Left = .Left + 18
objPicture.Height = 20
objPicture.Width = 20
End With
End Sub
Wie könnte ich erreichen, dass meine Grafik immer in der Zellmitte erscheint?
Viele Grüße
bassi