Resim Aktarma

[sezo01]

merhaba, arkadaşlar benim tam istediğim gibi resimleri aktarıyor ama resimlerin konumlandırmasını ayarlamadım lüften yardımlarınızı bekliyorum.
teşekkürler.

 

[sezo01]

arkadaşlar yardım bekliyorum lütfen çok önemli benim için bu çalışma

 

[Levent Menteşoğlu]

Resimleri sarı kutulara yerleştirmek önce her sarı kutunun sol üsty köşesindeki ilk hücreyi seçtirmek gerekir, Örneğin ilk kutu için

[a16].select
.
.Resim ekleme kodları
.

 

[sezo01]

öncelikle levetm bey ilginize teşekkür ediyorum yanlız bu konuda daha acemiyim kodlarda tam olarak nasıl bir oynama yapmalıyım anlamadım.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False
deg = Array("A16", "C16", "E16", "G16", "A26", "C26")
For a = 2 To [a14].End(3).Row
ActiveSheet.Shapes(Cells(a, "a")).Delete
Range(deg(a - 2)).Select
Set mypic = ActiveSheet.Pictures.Insert("c:\resimler\" & Cells(a, "a") & ".JPG")
mypic.Name = Cells(a, "a")
mypic.Width = Range(deg(a - 2)).Width * 2
mypic.Height = Range(deg(a - 2)).Height * 6
Next
End Sub

 

[sezo01]

kodlar için teşekkür ederim .

 

[oyseme1974]

ellerinize sağlık arkadaşlar