Soru exceldeki resimleri hücre boyutuna göre otomatik boyutlandırma

[ERBİL35]

İyi günler ekteki excel dosyasında isim soyisim yazınca resimler klasöründen resim geliyor fakat boyutu otomatik ayarlanmıyor buda resimlerin kaymasına ve isim karşındaki resmin başka kişiye ait resim olmasına yol açıyor yardım edebilirmisiniz.

 

[byfika]

Merhabalar, Sayfa kod bölümü içindeki kodlarda alttaki gibi değişiklik yapın.

'******** Bu kodları silin**************
With pc '<---
.Top = Cells(i, 13).Top + 2
.Left = Cells(i, 13).Left + 2
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = Cells(i, 13).Height - 4
.ShapeRange.Width = Cells(i, 13).Width - 4

End With

' *********Yerine alttaki kodları yazın deneyin***************************
With pc '<---
.Top = Cells(i, 13).Top
.Left = Cells(i, 13).Left
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = Cells(i, 13).MergeArea.Height
.ShapeRange.Width = Cells(i, 13).MergeArea.Width
.Placement = xlMoveAndSize
End With

 

[ERBİL35]

Merhabalar, Sayfa kod bölümü içindeki kodlarda alttaki gibi değişiklik yapın.

'******** Bu kodları silin**************
With pc '<---
.Top = Cells(i, 13).Top + 2
.Left = Cells(i, 13).Left + 2
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = Cells(i, 13).Height - 4
.ShapeRange.Width = Cells(i, 13).Width - 4

End With

' *********Yerine alttaki kodları yazın deneyin***************************
With pc '<---
.Top = Cells(i, 13).Top
.Left = Cells(i, 13).Left
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = Cells(i, 13).MergeArea.Height
.ShapeRange.Width = Cells(i, 13).MergeArea.Width
.Placement = xlMoveAndSize
End With

OLMUYOR KARDEŞİM BAŞKA YOLU VARMI ACABA ?

 

[byfika]

Kodlarda problem yok. Belki hatalı bir işlem yaptınız. sizin dosyaya kodu ekleyip gönderiyorum.

 

[ERBİL35]

Kodlarda problem yok. Belki hatalı bir işlem yaptınız. sizin dosyaya kodu ekleyip gönderiyorum.

TAMA KARDEŞİM TEŞEKKÜR EDERİM İYİ GÜNLER...