Excel de makaro ile...
 
Bildirimler
Hepsini Temizle

Excel de makaro ile resim çağırma  

  RSS
isa dost
(@isadost)
Üye

excelde barkdu girilen ürünün adı açıklaması ve resmi aynı satırda nasıl getirebiliriz.her satırda girilen kodla ürünün bilgileri gelmesi  lazım yardımlarınızı bekliyorum 

Alıntı
Gönderildi : 03/01/2013 10:51
Sinan KAHRAMAN
(@SinanKAHRAMAN)
Saygın Üye

Örnek olması açısından şöyle bir senaryo izleyelim.

  • A1 Hücresine 1 yazıldığında Bilgisayarımda kayıtlı bulunan 1.jpg isimli resmin; A1 Hücresine 2 yazdığımda ise 2.jpg isimli resmin açılmasını istiyorum

Bunun için aşağıdaki kodları sayfanın kod kısmına girmeniz gerekecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim res As String
Dim a As Shape
Dim B4 As Range
If Target = "" Or Target.Address <> "$A$1" Then Exit Sub
If Target.Count > 1 Then Exit Sub
Set B4 = Range("B4")
For Each a In Shapes
a.Delete
Next a
B4.ClearContents
res = "C:\Resimler\" & Target & ".jpg"
If Dir(res) = "" Then
B4 = "RESİM YOK"
Else
With ActiveSheet.Pictures.Insert(res)
.Left = B4.Left
.Top = B4.Top
.Height = B4.Height
.Width = B4.Width
End With
End If
End Sub

 

CevapAlıntı
Gönderildi : 11/01/2013 12:35
Semih Can
(@SemihCan)
Üye

Sinan bey;

Sorunuma çare bulmak için uzun zamandır benzeri bir kod arıyorum, mevcut hali ile 100lercesi arasında işime en çok yarayanı.

C:\Resimler içinde değil de, excel dosyasının da içinde bulunduğu dosyadan alabilir mi? ( bazen masaüstü olur, bazen de belgelerim içinde başka bir klasör )

verdiğiniz makroyu değiştirmeyi denedim ancak beceremedim. Mevcut makro B4 hücresine sığdırıyor, boyu uygun oranda ayarlıyor ve ben kulağından tutup büyütüyorum. Bunu da otomatikleştirmenin yolu olabilir diye düşünüyorum. Belirli bir piksel x piksel oranında, birleştirilmiş hücrelere ya da çerçeve ile çevrelenmiş hücrelere enden ya da boydan sığdıracak düzenleme yapmak mümkün müdür?

 dediğim gibi; bu hali ile de işimi görüyor ancak düzeltebilirsem mükemmel olur.

 

teşekkürler 

CevapAlıntı
Gönderildi : 23/02/2014 22:05
 Anonim

Ilgili satiri bu sekilde değiştirip deneyiniz; res = thisworkbook.path &"\" & Target.Value & ".jpg"

 ThisWorkbook.Path veya ActiveWorkbook.Path, Excel dosyasının bulunduğu dizin içerisinde demektir.

Kulağından çekme mevzûsu için, height ve width ayarlariyla oynamalar yapabilirsiniz. 

CevapAlıntı
Gönderildi : 25/02/2014 12:33
uğur merdoğlu
(@ugurmerdoglu)
Üye

murat bey merhaba,

benimde benzer bir konuda sorunum var sizden nasıl destek alabilirim?

 

CevapAlıntı
Gönderildi : 19/11/2014 15:58
Paylaş: