Hücreye eklediğim resimin ortalanması

[tamer42]

Merhabalar,

For..........Next döngüsü ile A sütununda yazan dosya adlarıyla, F sütununda belirlenen hücrelere resim eklemesi yapıyorum.

Sub resim_ekle()
Dim Resim As String
Dim i As Integer
    On Error Resume Next
    
    For i = 2 To 4
    
            Resim = Range("A" & i).Text
    
            Range("F" & i).Select
   
            ActiveSheet.Pictures.Insert(Resim).Select
     
   Next
      
End Sub

yalnız eklenen resmin hücreye dikey ve yatay olarak ortalanması nasıl sağlanabilir.

iyi çalışmalar.