resim isimleri

[oydemir]

arkadaşlar sizlerden istediğim makroyla excele resim getirebiliyorum.ama resim adlarında bir sıkıntım var resimleri aldığım dosyada resimler 248_1_ali_veli
264_ahmet_mehmet gibi değişken bense sadece başındaki numaralarla resimleri getirmek istiyorum siteden aldıgım koylarla bunu yapıyorum ama dediğim gibi ismi tam yazmayınca resim gelmiyor .burda sabit olan tek şey isimden önce hepsinin başında (_)al çizgi var cevaplarınız için şimdiden teşekkürler

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
Dim resim As Picture, Alan As Range
'Set Alan = Range("b4:b6")
For Each resim In ActiveSheet.Pictures
If Not Intersect(resim.TopLeftCell, Alan) Is Nothing Then
resim.Delete
End If
Next

Set Alan = Nothing
Range("t21").Select
resimadi = LoadPicture("")
resimadi = Range("A1").Text & ".tif"
ActiveSheet.Pictures.Insert("D:\İBRALA_SULAMA\TARAMALAR\KTK_SCAN\" & resimadi).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 550 'yükseklik
Selection.ShapeRange.Width = 850 'genişlik
Selection.ShapeRange.Rotation = 90#
Range("A1").Select
Application.ScreenUpdating = True

 

[Baggwell]

Merhaba
resimadı bölümüne şu şekilde düzenleme yaparsanız çözülür.

ad = "D:\TT\Resimler\" & Target.Value & "_1_ali.jpg" şeklinde olduğunu varsayalım. sondaki uzantıyı düzelterek çözebilirsiniz

 

[oydemir]

her seferinde numara ve resim yazmak istemiyorum benim istediğim numaraları yazdıgım zaman resim gelsin.örnek 1 yazdıgımda "_1_ali.jpg resminin gelmesini istiyorum

 

[Murat OSMA]

Sn. oydemir, aklınızda bulunsun; açtığınız konulara örnek bir dosya ekleyip, bu dosyada ne yapmak istediğinizi net bir şekilde belirtirseniz; çözüme daha hızlı ulaşırsınız.

 

[Korhan Ayhan]

Resim adını değişkene atadıktan sonra var olup olmadığını DIR fonksiyonu ile kontrol edebilirsiniz.

Örnek;

A1 hücresine 1 yadığınızı varsayalım.

Aşağıdaki kod yapısı ile resmi sorgulayıp sayfaya aktarabilirsiniz.

Yol = "D:\İBRALA_SULAMA\TARA MALAR\KTK_SCAN\"
Resim = Range("A1") & "_*.tif"
If Dir(Yol & Resim) <> "" Then
ActiveSheet.Pictures.Insert(Yol & Resim).Select
'......
'......
End If