Forum
Bildirimler
Hepsini Temizle
Microsoft Office
2
Yazılar
2
Üyeler
0
Reactions
10.2 K
Görüntüleme
Konu başlatıcı
Merhabalar,
Arkadaşlar excel 2007 tablomda 3000 bini aşkın ürün var ve bunların kodları B hücremde resim ismi ile aynı tüm resimler .jpg uzantılı benim sizden dilediğim;
B Hücresindeki 3000 satır için bir makro kodu veya başka bir şey oluşturarak resimler/ klosöründe ki resimleri o hücrelere eklemek ve resim boyutunu hücreye sığdırmak.
Bu konuda yardımcı olabilir misiniz ?
Son olarak makro çalıştırmayı ufak bir anlatım yapar mısınız o konuda da biraz bilgisizim
Gönderildi : 14/05/2015 12:03
Merhaba Makro kodu aşağıdaki gibidir.
Sub ekle()
For i = 1 To 3
dosya = Sayfa1.Cells(i, 1)
With ActiveSheet.Pictures.Insert(dosya)
.Left = Sayfa1.Cells(i, 2).Left
.Top = Sayfa1.Cells(i, 2).Top
.Height = Sayfa1.Cells(i, 2).Height
.Width = Sayfa1.Cells(i, 2).Width
End With
Next i
End Sub
Ben şöyle düşünerek yazdım, sayfa1 de a sütununda dosya adları (dizin dahil --> c:\yasar.png) var. b sütununa o resmi sığdırıyor. Yukarıdaki for i = 3 yazan yerdeki 3 kaç satır ineceğini gösteriyor siz 3000 satır için orayı 3000 yapınız. Makro çalıştırmak için ise geliştirici sekmesinden de yapabilirsiniz ya da ALT + F11 yapabilirsiniz. Gelen VB ekranında kodu yapıştırarak çalıştırabilirsiniz.
Kolay gelsin.
Gönderildi : 14/05/2015 19:16
