Resim ortalama

[Carpintero]

Merhabalar,

Aşağıdaki kod ile C2:E6 alanındaki resimi ortalamaya çalışıyorum
ama tam manası ile çalışmıyor. Sanırım eksik satır var.
Yada başka bir sorun. Bu kodun daha işlevsel olması sağlanabilir mi acaba?

ActiveSheet.Pictures("Resim 3").Top = Range("C2:E6").Top + 2 
ActiveSheet.Pictures("Resim 3").Left = Range("C2:E6").Left + 2            
ActiveSheet.Pictures("Resim 3").Height = (ActiveSheet.Range("C2:E6").Height) - 4
ActiveSheet.Pictures("Resim 3").Width = (ActiveSheet.Range("C2:E6").Width) - 5 
ActiveSheet.Pictures("Resim 3").ShapeRange.LockAspectRatio = msoFalse