Grafiken in Excel positionieren

'Bezeichnung der Bilder in Tabelle suchen
'und Bild kopieren
For Each Zelle In Tabelle.UsedRange
Bezeichnung = Zelle.Text
If Dic.Exists(Bezeichnung) Then
Dic(Bezeichnung).Copy
Tabelle.Paste
Set Sh = Tabelle.Shapes(Tabelle.Shapes.Count)
Sh.Top = Zelle.Top
Sh.Left = Zelle.Left
Sh.Name = "intern_" & Zelle.Address
End If
Next Zelle
Merker.Activate

Code kopiert ein Bild aus einer Tabelle in eine Zelle einer anderen Tabelle, nur ich würde gerne das Bild in der Zelle automatisch zentrieren lassen. Jetzt setzt Excel bzw. der Code das Bild immer oben links in der Ecke. Wie geht das?
Besten Dank für Eure Hilfe
Marcus