Fotoğraf boyutlandırma hakkında

[58Muhendis58]

Private Sub CommandButton1_Click()

Dim res As Picture
Dim x As Long
Dim ps As Long
ps = Range("g20000").End(xlUp).Row
For x = 3 To ps
On Error Resume Next
Range("A" & x).Select
Set res = Me.Pictures.Insert(Range("E" & x).Value)
res.Width = 10
res.Height = 272
Next
Set res = Nothing
Range("G3").Select

bu kodda Resimleri getir butonuna basınca resimler geliyor da genişlikleri hücrelerden taşıyor yükseklikleri iyi tam oturuyor var mı bunun bir çaresi ağalar.

 

[58Muhendis58]

Cevabımı buldum dostlar gün gelir birine lazım olursa eğer
Private Sub CommandButton1_Click()

Dim res As Picture
Dim x As Long
Dim ps As Long
ps = Range("g20000").End(xlUp).Row
For x = 3 To ps
On Error Resume Next
Range("A" & x).Select
Set res = Me.Pictures.Insert(Range("E" & x).Value)
res.ShapeRange.LockAspectRatio = msoFalse
res.ShapeRange.Height = 274
res.ShapeRange.Width = 347.5
res.ShapeRange.Rotation = 0#
Next
Set res = Nothing
Range("G3").Select