Bilgisayarınızın bir klasöründeki resmin adını yazarak excel sayfasında görüntülenmesinin nasıl yapıldığını gösteren bir video. İçerisinde VBA kodları kullanılmıştır.
Sevgili Mehmet Bey, Sade, özlü ve kaliteli anlatımınız konunun çok güzel anlaşılmasını sağlıyor. Excel konusunda çok değerli bir birikiminiz var. Bunu öğrenmek isteyenlere açmanız takdir edilecek uğraşı. Anlatımınıza sağlık, çok yararlı ve öğretici oldu.Teşekkür ederim.
neredeyse saatlerimi verdim arayayım diye ingilizce türkçe nihayet sizin kanalınız buldum ama nasıl mutlu oldum. ağzınıza sağlık emeğinize bilginize paylaşımıza çoook teşekkür ederim. iyi ki sizin gibi insanlar var..
Arkadaşlar merhabalar, Hocamız son derece güzel bir video paylaşmış, aşağıdaki yorumlarda ise arkadaşlarımızın genel olarak, harici bir klasörden fotoğraf almaya çalıştıklarını gördüm. Bunun için Hocamızın yazdığı kod içerisindeki RESİM YOLU, ögesini şu şekilde değiştiriniz. - ResimYolu = "C:\Users\ddemirtas\Desktop\fotolar" & "\" & Range("e5") & ".jpg" - bu şekilde masa üstünde yer alan "fotolar" adlı klasörünüzden .jpeg resimleri almaya başlayacaksınız.
çok aradığım ama hiçbir yerde bulamadığım bazı püf noktalarını burada yakaladım. sadece bu püf noktaları nedeniyle abone de oldum, kim bilir daha neler vardır da, şimdi heyecanla bitirmem gereken kodları yazmalıyım. paylaşım için çok teşekkürler.
Ellerinize sağlık. Naçizane tavsiyelerim: * ResimYolu için "as string" kullanın. * Change olayında döngü kullanımı (satır sayısına bağlı olarak) zaman alıcı olabilir. Bunun için sadece ilgili satırdaki değişime odaklı kod yazın. * Uygulama dili yabancı olan kullanıcılarda sorun çıkmaması için değişken yazımında Türkçe karakter kullanmayın. Ö: "For satır" değil, "For satir".
Mehmet Bey merhaba, öncelikle bu muhteşem video için çok teşekkür ediyorum. Emeğinize sağlık. Anlatımınızda bana gerekli olan bilgileri tamamen uygulamama rağmen, ilgili hücreye rakamı girdiğimde "Run-time error '1004': Pictures sınıfının Insert özelliği alınamıyor" uyarısı çıkıyor. Bu durumda; "End" butonuna bastığımda resmi doğru hücreye getiriyor; "Debug" butonuna bastığımda ise "Set Resim = ActiveSheet.Pictures.Insert(Resimyolu)" satırını sarıya boyuyor. Sizi yormayacaksam eğer 2 ricam daha olacak. 1- Sizin kodlamayı uyguladığımda, rakamı girdiğim sütundaki hücrelerin her birinde sırayla rakam girmezsem, boş bıraktığım hücrenin altındaki hücrelere rakam girdiğimde yanındaki hücreye istediğim resmi getirmiyor. Benim dosyamda ilgili sütundaki her hücreye rakam girmemem gerekiyor. Bunu nasıl çözerim? (Uğraştım, ancak yapamadım.) 2- Resim boyutlarını sizin kodlamadaki gibi yapmama rağmen az da olsa hücreden taşıyor ve alttaki ile çakışıyor. Bu resimlerin boyutunu biraz daha küçültüp hücre içinde ortalayabilmek için nasıl bir kod yazmam gerekir? Yardımcı olabilirseniz çok sevinirim. Saygılarımla.
konuyu bu şekilde açıklayarak ve kolayca anlattığınız için teşekkürler öncelikle. benim sorunum şu; liste 8'er blok birleşik satırlar halinde. kodunuzu yazdığımda teker satır halinde çalışıyor ancak 8'er blok atladığında çalıştırmıyor. örnek olarak G10 hücresindeki değerin karşılığı fotoğraftan sonra G18'in değerini alması gerekiyor yani. bunu nasıl sağlayabilirim. teşekkürler
Mehmet Bey ellerinize sağlık çok faydalı bir video bir konuyu danışacaktım. aynı satır üzerinde farklı kodlar ile 3 resmi yanyana çıkartmak istersek koda nasıl bi ekleme yapmamız gerekir. kolay gelsin
Hocam çok teşekkürler herşey çok güzel ben böyle ders anlatımı böyle azim ve hiç bir ayrıntı kaçırmadan ders anlatımı görmedim... birde herhangi bir klasörden resim alabilen bir ders yapabilirmisiniz. yani "FOTO EKLE" düğmesi ile bilgisyaardan herhangi bir yerden fotoyu nasıl ekleyebiliriz?
Merhaba bu konuyu epeydir arıyordum bulunca çok sevindim. Ayrıca çok ayrıntılı anlatmışsınız emeğinize sağlık. Anlattığınız gibi sıkıntısız çalıştı. Proforma listede bir şey sormam gerekiyor. Sizin anlatımınızda B sütununa yeni girilen değerin fotoğraflarını sorunsuz getiriyor. Fakat benim ihtiyacım zaten tüm bilgileri girilmiş, hazır olan bir ürün listesindeki B sütunundan değeri alıp klasördeki aynı isimli fotoğrafı getirsin. Kodlarda ne değişiklik yapmam lazım? Sizin verdiğiniz şekilde kullanınca ilk satırda error verdi. Şimdiden teşekkürler.
Hocam merhaba renge de Mehmet yazdığımızda debug oluyor bende ve otomatik kapatıyor herşeyi tek tek doğru yapmama rağmen her yerde hata veriyor. Hata vermeyen ilerledikçe yine veriyor.
Hocam emeğiniz için çok teşekkür ederim. Anlattığınız gibi uyguladım ancak excell çalışma sayfam ile görseller aynı klasörde olmasına rağmen resimler gelmiyor. "Bağlantı resim görüntülenemiyor. Dosya taşınmış yeniden adlandırılmış veya silinmiş olabilir" bu şekilde bir uyarı alıyorum.
Hocam çok işime yaradı sağolun emeğinize sağlık. Bı sorum olacak fotoğraflari farklı formatta da ekleyebilmek için .pdf .jpeg .png olarak mi yazmamız gerekiyor dosya yoluna
ResimYolu = "C:\Users\senag\Desktop\deneme" & "\" & Range("e6") & "1.jpg" şeklinde yazdığımda resim görünüyor ama sayfada örneğin 5 e tıkladığımda da 1.resim görünüyor. "1.jpg" deki 1 i kaldırınca seçtiğim resimlerin gelmesi gerekiyor ama ResimYolu = "C:\Users\senag\Desktop\deneme" & "\" & Range("e6") & ".jpg" yazdığımda hiçbir görsel görünmüyor ve "bağlantılı resim görüntülenemiyor. dosya taşınmış, yeniden adlandırılmış veya silinmiş olabilir. bağlantının doğru dosya ve konuma işaret ettiğini doğrulayın " yazıyor. doğru konum olmasa tek resim seçtiğimde de görünmezdi. nedenini anlayamadım yardımcı olur musunuz?
Mehmet hocam çok teşekkürler çok faydalı bir model üzerinde çalışmışsınız ziyadesi ile faydalandım. Fakat hocam bazı resimler belirlenen hücrelerin boyutlarının çok dışına çıkıyor. Benim sizden ricam resmin direk ölçülerini cm cinsinden belirleyeceğim bir kod var mıdır yardımcı olabilirseniz çok seviniriz.
hocam merhaba ben dediklerinizin aynısını yaptım ama ilk 5 satırdan sonrasına resim gelmiyor neden acaba lütfen yazarmısınız? 2 to 1768 yapıyorum hücreye ismi koydugumda ilk hücrede geliyo diğerlerinde gelmiyor
Hocam emeğiniz için teşekkürler. Bende şöyle bir sorun oldu. Sayfamda ActiveX denetim ve form deneyimleri Vardı sayfada bunlarında siliyor. Bunlarında temizliyor. Bu durumu nasıl düzelte bilirim.
Merhaba Mehmet hocam, Ellerinize sağlık. Çok güzel bir çalışma olmuş. Fakat yazdığınız kodlar, fotoğraflar aynı bilgisayarda yoksa, hata veriyor. Yaptığımız dosyayı paylaşmam gerekiyor. 1000 adet ürünün bilgileri ve fotoları var. Ben bu dosyada bulunan bazı ürün kodlarını ayrı bir çalışma olarak göndermek istiyorum. Tüm ürünlerin fotosunu değil sadece benim seçtiğim ürünleri göndermek istiyorum. Ama fotoları ayıklamakla uğraşmak istemiyorum. Seçili ürünlerin fotolarını ve bilgilerini dosyaya gömmek gerekiyor. Bu konuda yardımcı olacak bir video, bir bilgi paylaşırsanız memnun oluruz.
Merhaba, ben şimdi bu listedeki verilerden seçili bazılarını başka bir sayfaya katalog formatında kopyalamak istiyorum. Mesela ürün adını kodunu resmini ve özelliklerini içeren bir katalog hazırlamak istiyorum. Yardımcı olabilir misiniz?
Hocam bende bir şey sormak istiyorum. D3 hücresini Liste olarak değilde sabit bir hücre ise nasıl kod yazmamız gerekiyor target değişkeni olmasın. Normal D3 hücresinin alt satırlarına kopyala yapıştır yaparak değerler girmek istiyorum. Onun karşısına resimleri getirmek istiyorum. Ayrıca kurs veriyormusunuz
Hocam boş hücreye resim yok veya şablon resim getirip, alta dolu olan hücrelere resimleri nasıl getirebilirim.Bu nun kodu ne olmalı. İlginiz için teşekkürler
Üstad bir sorum olacak aı6:at6 arasi sutunlarda verilerim var. ai6 eğitim tarihi aj6 süre ak6 tarih al6 süre şeklinde ilerleyen bir tablom var.( Tablo yaklaşık 1000 satır) ben bu tabloda Ocak ayında verilen eğitim sayısı ve süresi. Şubat ayında süre ve sayı olacak şekilde 12 ay boyunda başka bir alanda verileri tablolamak istiyorum. Yardımcı olabilir misin teşekkür ederim.
@Mehmet Gürten Merhaba, ben şimdi bu listedeki verilerden seçili bazılarını başka bir sayfaya katalog formatında kopyalamak istiyorum. Mesela ürün adını kodunu resmini ve özelliklerini içeren bir katalog hazırlamak istiyorum. Yardımcı olabilir misiniz?
hocam ağzınıza elinize sağlık kod ile resim çağırma işlemini hallettim. Gelişmiş filtre özelliği ile fotoğrafları getirebiliyorum. Ancak atadığım makro butonları filreleme ile birlikte kayboluyor. ('Resimleri Sil ActiveSheet.DrawingObjects.Delete) Bu yazılıma ne eklemeliyim ki butonlar silinmesin teşekkürler. iyi çalışmalar.
merhabalar bu satır döngüsünü yaparken aralık yerine satır belirlemek için ne yapabiliriz acaba For satır = 5 to 20 yerine For satır ="9" "20" "31" "42" gibi birşey tanımlaya bilirmiyiz acaba
Hocam video da farkederseniz aşağı ve yukarı boyutu satıra uyarlamıyor yani resmin aşağısı ve yukarısı satıra göre boyutlanmıyor onu nasıl yapabiliriz acaba resmin boyutu çok büyük oldugundan mı
Hocam Ellerinize sağlık videolarınız çok işime yaradı ama bir sorum olucak mümkünse tabi arama yapıyorum fakat bende aynı ürün den 2 tane var dolayısıyla hep 1.yi bana getiriyor ama ben 2. yide görmek istiyorum bu mümkünmü yardımınız için şimdiden teşekkürler
Hocam merhaba bir Excel dosyamızda 150 alt sayfa var alt sayfaların hepsine aynı resmi koymak istiyorum kopyala yapıştır yapıyorum Excel hata veriyor yapıştırma işlemi başarısız diyor tek tek kopyalarsak sorun olmuyor oda çok zaman alıyor ve resim değiştirmek istersek baya bir sıkıntı olacak bunun la ilgili bir çözüm öneriniz var mıdır acaba yada sizin yukarda anlattığınız uygulamada resimleri çıktı aldığımızda yazdır ekranında görünüyor mu
Eline, sesine sağlık üstadım... 1 sorum olacak rica ile, (ilk anlatımında "d3" sütunundan alınan resim işlemi) tek satırda yaptınız, bunu birden fazla hücreye nasıl entegre edebilirim. Yardımınız için peşinen teşekkürler.
Kısaca Şöyle; Şu aşağıda yazdığınız J3 -----> f6 ------> h6 olarak nasıl genişletebiliriz. Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [j3]) Is Nothing Then Exit Sub 'Resimleri Sil ActiveSheet.DrawingObjects.Delete 'Hata Kontrolü On Error GoTo çıkış 'Resim Yolunun Bulunması Dim ResimYolu As Variant Dim Resim As Object ResimYolu = ActiveWorkbook.Path & "\" & Range("j3") & ".jpg" 'Resmi Oluştur Set Resim = ActiveSheet.Pictures.Insert(ResimYolu) 'Resim Boyutlandır With Range("j3") Resim.Top = .Top Resim.Left = .Left Resim.Height = .Height Resim.Width = .Width End With çıkış: End Sub
İyi günler ,Mehmet Bey Yardımlarınız için öncelikle çok teşekkür ederim.Bir yardım talebinde bulunacaktım.Resim çağırma konusunda sıkıntılar yaşıyorum activesheet.drawingobject.delete ya da activesheet.pictures.delete komutlarını verince comboboxta siliniyor,bunun bir çözümü var mı?Bunu öğrenmek istemiştim.Şimdiden teşekkür ederim.Sağlıcakla.
elinize sağlık. çok işime yarayacak. bir sorunum var. fotoğraf boyutunda fotoğrafı hücrenin altına uzatmak / kısaltmak için gereken kodu da öğrenebilir miyim. Teşekkürler
Selamlar hocam ; Proformada b sütununda boş hücre görünce hata verip altındaki diğer bütün hücreleri de de boş bırakmasına sebep oluyor. O yüzden çıkış: satırını next satır ibaresinin üzerine taşırsak makromuz çalışmaya devam ediyor. Çok teşekkürler emeğiniz için. Saygılar.
8 лет назад
+Hamit Mert KÖPRÜCÜ Orada şöyle bir sıkıntınız olur eğer resim adını bulamazsa hata verir benim oradaki gayem hata verirse mesaj çıkıp prg.ı durdurmasın kendisi direk çıkışa gidip makroyu bitirsin idi.
Bu dosya yolunu başka klasördeki resimlere göre nasıl gösterebiliriz? Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [A:A]) Is Nothing Then Exit Sub ' hata kontrolü 'resimleri Sil ActiveSheet.DrawingObjects.Delete 'resim yolunun bulunması Dim ResimYolu As Variant Dim resim As Object For satır = 2 To 243 ResimYolu = ActiveWorkbook.Path & "\" & Range("a" & satır) & ".jpg" Set resim = ActiveSheet.Pictures.Insert(ResimYolu) 'resmi boyutlandır With Range("l" & satır) resim.Top = .Top resim.Left = .Left resim.Height = .Height resim.Width = .Width End With Next satır Çıkış: End Sub
Hocam ellerinze sağlık anlatım ve çalışma çok güzel olmuş, müsadenizle bir sorum olacak hazırladığımız excel ve resimler ayrı klasörler içerisindeyse nereye ve nasıl bir komut yazmamız gerekmektedir. Yardımcı olabilirmisiniz.
8 лет назад
+jack bauer Teşekkürler Resimyolu değişkenine yolu belirtmeniz yeterli benim örneğimde activeworkbook.path dediğim yer bu dosyanın olduğu klasör buradan yönlendirebilirsiniz örneğin bu dosyanın olduğu klasörün içinde resimler diye bir klasör olduğunu varsayarsak activeworkbook.path&"\Resimler\" şeklinde yapabilirsiniz
hocam kolay gelsin. tum kodlari aklinizda tutuyormusunuz yoksa sizde bir tasarim yaparken dış kaynaklardan yardim aliyormusunuz. bende iyi bir excel kullanıcisiyim ama herseyi bilmiyorum
hocam yine ben ve üşengeç sorularım :) hocam şimdi ben yukarıdaki videoda bana lazım olan bir tek proforma listesine oto resim eklemek hücrelere. lakin sizin yazdığınız kodların hepsini birebir baka baka yaptım ama beceremedim .
yani ne demeliyim şimdi demekki aynısı değil aynısı ise çalışması lazım ya resim adlarınız farklidir ya hücre farklıdır yada resmin uzantısı jpg değildir aklıma gelenler
+Mehmet Gürten RESİMLERİM JPG VBA KODLARI DA EMİNİM BİREBİR 4 CÜ DEFA YAZDIM DÜŞEY ARAYI DA SAĞ OLUN SİZDEN GAYET İYİ ÖĞRENDİK ONDA PROBLEM YOK SADECE BU VBA KODUNUN BAŞINDA İLK SATIRDA PROBLEM ÇIKIYOR If intersect (targe,3 .......... >>>>then
Hocam Uzun zamandır aradığım bir konuydu emeğinize sağlık tam olarak istediğim gibi oldu teklif formu için oluşturdum, 2 adet sorum olacak 1. - eklenen resimi hücreye alttan üstten sağdan soldan ortalamak için ne yapılabilir 2. - eklenen bazı resimler hücreden taşıyor, taşmayı engellemek için resimi otomatik boyutlandıracak bir kod varmıdır ?
Hocam makro da resim sil kısmına ne yazmalıyızki diğer makro butonlarını silmesin. ActiveSheet.Pictures.Delete yazdım olmuyor. Yardımcı olabilir misiniz. İyi çalışmalar .
Hocam Allah için bir örnek istiyoruz. "Klasörden resim çağırmayı ancak öncesi ve sonrası şeklinde. Yani butona basınca a sütununa yukarıdan aşağıya bir olaya ait eski resimler B sütununa ise yeni resimler gelsin. Ama resim sayısı deisken olacak misal A2 den A150 ye kadar. Çağırılan resimler aynı klasörde olacak misal 257e 257y gibi. Valla çıkamadım işin içinden Allah için yardım edin.
İyi günler Mehmet bey tam bana lazım olacak bir paylaşım yapmışınız öncelikle elinize sağlık. benim sormak istediğim excel ayarladığım sutuna rakam yazdığımda resimler değişiyor. ancak ben UserForm üzerinden o sutuna rakam girdiğimde bilgiler değişiyor ancak resim değişmiyor bununla ilgili yardımcı olabilir misiniz.
Год назад
Oradaki kodu textbox in change ine koyun olur Yada ayrı bir sub yapın o kodları onun içine koyun hem textbox in change in içine hemde worksheet change in içine call yenisub yapın ikisinde de çalışsın Call yenisub yazın
@ Teşekkürler hocam oldu. Bir sorum daha olacak size resimleri excelin olduğu değilde başka bir klasörden çektire bilir miyiz yani resim yolunu değiştirmek istiyorum çok fazla resim olacak excelle aynı dosya içerisinde olmasın istiyorum
hocam resimleri silme kısmına geldim. hücreyi değiştirince ne kadar macrolu buton v.s varsa siliniyor. ne yapmam lazım. ayrıca elinize dilinize sağlık
9 лет назад
Siler çünkü biz nesnelerin tamamını sildiriyoruz orada nesnesel değilde resimleri sil derseniz sadece resimleri siler ActiveSheet.DrawingObjects.Delete yerine ActiveSheet.Pictures.Delete yazarsanız sadece resimleri siler
Elinize sağlık hocam , yalnız sayfada activex buton varsa videodaki kodlarla resim çağırınca butonu da siliyor, ayrıca veri doğrulama ile yapmak yerine hücreye dinamik formül yazınca formül çalışıp hücre içindeki veri değişmesine rağmen resim çağırmıyor. Bu konuları çözmek için kodda nasıl bir değişiklik yapabiliriz?
@ hocam öylede denedim ama sayfalar arası geçiş için kullandığım activex butonunu yine siliyor. Private Sub Worksheet_Change(ByVal Target As Range) 'logoları sil ActiveSheet.Pictures.Delete If Intersect(Target, [b3]) Is Nothing Then Exit Sub 'hata kontrolü On Error GoTo çıkış 'logo yolunun bulunması Dim logoyolu As Variant Dim logo As Picture logoyolu = ActiveWorkbook.Path & "\" & Range("b3") & ".jpg" 'logo oluştur Set logo = ActiveSheet.Pictures.Insert(logoyolu) 'logo boyutlandır With Range("c3") logo.Top = .Top logo.Left = .Left logo.Height = .Height logo.Width = .Width End With çıkış: End Sub
3 года назад
@@Mr_Kose61 bana dosyanızı mail atın bı boşlukta bakayım
Hocam Merhaba, ResimYolu = ActiveWorkbook.Path & "\" & Range("b" & satır) & ".png" "\" olan kısma "webadresim.com/urunler/" yazıyorum ama malesef ürün resimlerini çekmiyor browserdan kontrol ettiğimde webadresim.com/urunler/1.png şeklinde resmi görüntüleyebiliyorum. Birde Farklı uzantıları tanımasını nasıl sağlayabiliriz. 1.jpg dosya ismi 2.png dosya ismi 3.bmp olursa nasıl bir kod ilavesi yapmalıyız. Teşekkürler Başarılar
Hocam çok iyi anlatım tebrikler. Sorum şu ... A1 hücresindeki değere göre B1 hücresine Resim Çağırabiliyorum. Peki bunun devamında aynı sayfada C1 hücresinin değerine göre D1 hücresine ve bu şekilde yatay olarak nasıl resim çağırabilirim. (Personel için Yaka kartı yapıyorum ve excelde bir sayfamda 3x3=9 personel var, resimlerinin gelmesini istediğim hücrenin bi önündeki hücreye sicillerini yazdığımda resimleri gelsin istiyorum ama sadece ilk sütunu bu anlatıma göre yapabiliyorum diğerleri için nasıl bi kod yazmalıyım)
+Beytullah Hayran aynı sorunu yaşıyorum. Hocam yardımcı olur musunuz?
8 лет назад
+Beytullah Hayran Yani onu burada yazarak anlatamam ama a1 için yapabildiyseniz çıkıştan önce aynı kodları (delete hariç) kopyalayıp sadece sütunları değiştirirseniz olur
+Mehmet Gürten Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [a:a]) Is Nothing Then Exit Sub On Error GoTo çıkış ActiveSheet.DrawingObjects.Delete Dim ResimYolu As Variant Dim resim As Object For satır = 1 To 1100 ResimYolu = ActiveWorkbook.Path & "\" & Range("a" & satır) & ".jpg" Set resim = ActiveSheet.Pictures.Insert(ResimYolu) With Range("d" & satır) resim.Top = .Top resim.Height = .Height resim.Left = .Left resim.Width = .Width End With Next satır If Intersect(Target, [e:e]) Is Nothing Then Exit Sub On Error GoTo çıkış Dim ResimYolu1 As Variant Dim resim1 As Object For satırr = 1 To 1100 ResimYolu1 = ActiveWorkbook.Path & "\" & Range("e" & satırr) & ".jpg" Set resim1 = ActiveSheet.Pictures.Insert(ResimYolu1) With Range("g" & satırr) resim.Top = .Top resim.Height = .Height resim.Left = .Left resim.Width = .Width End With Next satırr çıkış: End Sub
23:53 e kadar herşey düzgün gitti son değişikliği yapınca resim getirmemeye başladı. Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [d7]) Is Nothing Then Exit Sub ' hata kontrolü On Error GoTo Çıkış 'resimleri Sil ActiveSheet.DrawingObjects.Delete 'resim yolunun bulunması Dim ResimYolu As Variant Dim resim As Object ResimYolu = ActiveWorkbook.Path & "\" & Range("d7") & ".jpg" Set resim = ActiveSheet.Pictures.Insert(ResimYolu) 'resmi boyutlandır With Range("D7") resim.Top = .Top resim.Left = .Left resim.Height = .Height resim.Width = .Width End With Çıkış: End Sub
hocam çok teşekkür ediyorum gerçekten çok faydalı bir video elinize sağlık.. Benim ufak bir problemim var.. evrakı D klasörü içinde oluşturuyorum.. Ve yine aynı D klasörü içerisinde FOTO olarak kaydettiğim bir klasör gerisinden fotoğraf almak istiyorum ancak sürekli hata veriyor.. fotoğraf yolum nasıl yazılmalı?
8 лет назад
o klasorun icine bir resim koyun sonra onun uzerinde sag tusa basip ozelliklerden dosyanin yoluna bakin dosya adindan onceki yeri kopyalayip vba nin icindeki yola yapistirin
8 лет назад
o klasorun icine bir resim koyun sonra onun uzerinde sag tusa basip ozelliklerden dosyanin yoluna bakin dosya adindan onceki yeri kopyalayip vba nin icindeki yola yapistirin
resimler hücrede, yukarı sağa-sola yanaşıyor fakat alt uzun kalıyor.
8 лет назад
+Ahmet Kılavuz Resimleri ölçeklendirirken orantılı bir şekilde ölçülendirdiği için bu sıkıntınız olur resimlerin ölçüsü aynı olursa bu sıkıntınız olmaz.
8 лет назад
+Mehmet Gürten teşekkürler, o haliyle bile işimi çok rahatlattı :)
walla level atladım sanırım ben geçen sürede :=) beyefendiye bi soru sordum cevapladı 2.yi sordum sallamadı. ben de derdimi google efendiye açtım. derken in design da bi kaç harekette excelden bin sayfalık katalog oluşturma durumuna ulaştım. :=)
Hocam elinize dilinize sağlık,Bilgi ve emeğinizden istifade ediyoruz ALLAH razı olsun hakkınızı helal edin. Hocam burada(Resim yolu=ActiveWokbook.Path & "\"Range("d3")&".jpg") aktif çalıma kitabından değilde (c:Users\EXPER\Desktop\stok takibi abc\mlz.resimleri[üst klasör]\0101008(manometreg2535L)[alt klasör içinde 01010008 resim için] resim adresini nasıl yazabilirim.Selamlar ALLAH'a emanet olun.
Mehmet bey aynen denilen şekilde yapıyorum, hatta adres satırından kopyalayıp yapıştırdım resim çekemiyor. Resimler ayrı bir klasörden olsa iyi olurdu. ResimDosyaYolu = ActiveWorkbook.Path & "C:\Users\pb\Desktop\TEKLİF\Teklif TAKIP\Resim" & Range("e" & i) & ".jpg"
