Resmi Hücreye Ortalama

[ugurcadir]

Normal Şartlarda aşağıda bulunan kodları kullanmaktayım. Resim boyutları birbirinden farklı olduğundan dolayı En yada boydan uzun olduğu zaman hücreye ayarlayamıyor. Resmin Boyutu ile hiç oynamadan
Satır Yüksekliği : 90
Sutun Genişliği : 20

olan bir hücreye farklı boyutlardaki resimleri(Resimler yukardaki genişliklerden ufaktır.) Hücreye ortalayabilir mi?

With Range("a" & satır)
    
    Resim.Top = .Top
    Resim.Left = .Left
    Resim.Height = .Height
    Resim.Width = .Width
    
    
        
    End With