İ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.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Soru exceldeki resimleri hücre boyutuna göre otomatik boyutlandırma
- Konbuyu başlatan ERBİL35
- Başlangıç tarihi
- Katılım
- 15 Ağustos 2009
- Mesajlar
- 512
- Excel Vers. ve Dili
- Excel Vers. ve Dili : Ofis 2016 Tr
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
'******** 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 ?
TAMA KARDEŞİM TEŞEKKÜR EDERİM İYİ GÜNLER...