Sorgu için arama sonuçları: klasör+resim

Aşağıdaki kodu ( resimEkle ) önceki ile değiştirerek deneyiniz. Bu yine ilk satır (A2) için geçerli, siz diğer satırlara uyarlarsınız. Sub resimEkle(Resim As String, sutun As Integer) 'resimlerin bulunduğu klasörü yazıyoruz. Dim resimyolu resimyolu = klasor & Resim & ".png" 'Resim...

Öncelikle çok teşekkür ederim. resimleri koyduğumuz klasör makroya bu şekilde kaydettim. klasor = "C:\Users\Bülent Esen\Desktop\resim\" Makroyu çalıştırdım bu hatayı verdi. resimler(STR) = Replace(DSY, Right(DSY, Len(DSY) - _ .Find("*", .Substitute(DSY, ".", "*", Len(DSY) - Len( _...

Sizin örneğinizde A2 hücresindeki ürün numarasına göre istediğiniz işlemi aşağıdaki kodlarla yapabilirsiniz. Sadece ana ürün numarası yeterli. xxx_1 , xxx_2 gibi diğer ürünleri kendisi ayarlıyor. En fazla 50 yan ürün olur diye bir dizi belirledim. Onu ihtiyaca göre düzenlersiniz. Klasörü ve...

Ekte çalıştırılmış hali mevcut. B stunu ürün kodları T stunu resimlerin benzersiz adları (excel otomatik atıyor bu isimleri) (RESIM_SIL komutu için gerekli) G stunu resimlerin geldiği stunu C:\Users\BEYAZ\Desktop\PROFORMA\RESIMLER\" & Range("B" & pSatir).Value & ".jpg --> jpg formatındaki...

Merhabalar Ekteki dosyamda veri doğrulama hk açılmış bu KONU da @Korhan Ayhan Beyin #9 mesajındaki örneği kullandım. Lakin oradakinden farklı olarak şu hataları alıyorum 1- örnekte C stununda çift tıkladığımızda user form açılıyor. Lakin benimkinde direk hücreye giriyor yazmak için. Bunu nasıl...

Arkadaşlar hepinize merhaba, Şu sayfada bulunan konu içerisinde destek ekibinden Emre Bey makro ile bir sayfadan diğerine resim çekebilmek için bir kod vermiş. Ben bu kodu kendi excel dosyama uygulamak istiyorum ancak boyutlandırma konusunda oran problemi söz konusu. Benim istediğim şey, ekteki...

Korhan Bey, Sanırım karıştırdınız ya da ben karıştırdım. Resimle ilgili bir isteğim yoktu benim Sanırım sevensuleymana yazacaktınız.

Söylediğiniz gibi excell dosyamı kayank klasörüme içerisnne ekleyip çalıştırdım. klasörler oluşuyor.fakat resimler kopyalanmıyor.

@SeviLmeyen, KAYNAK KLASÖR'ünüz bu makroyu kullanacağınız dosya ile aynı bölümde olsun. Ya da Aranan_Klasor yolunu kendinize göre düzenleyiniz. Option Explicit Sub Mamul_Koduna_Gore_Resimleri_Klasorlere_Aktar() Dim Dizi As Object, Alan As Range, Veri As Range, S1 As Worksheet, Resim As...

resimleri biz excell dosysının içerisinden değil klasörden alacagız durum farklı anlaşıldı galiba. bileşen orjinal resimleri C:\RESIMABC\Yeni klasör bu dosya yolunda mevcut. excelde yapmış oldugunuz gibi bu klasörden bileşen resimlerini alıp mamulkodu açılan klasörün içerisine aktarmak...

Sayın @byfika iki kere yazılmış olan [resimYol = "C:\Users\PC\Desktop\personelfoto\personelfoto\" ] satırında ikinciyi sildikten ve PC adını yazınca ve textbox31 içinde tc yazınca hatasız olarak resmi getirdi. Buraya kadar sorun yok. Ancak hazırlaması bittiğinde bu çalışmayı teslim edeceğim...

Sayın Korhan Ayhan , Bir kaç şekilde ve kodla var olan fotoları userform üzerindeki image1 üzerine getirsem de , kişinin resmi olmadığında ya hata verdi ya da bir önceki resim kaldırılmadığından görünmeye devam etti. Eminim, göremediğim bir şey var ancak denemekten kodlar kafamda balon oldu...

Metin bey çok teşekkür ederim bilginizi paylaştığınız için.

Private Sub Worksheet_Change(ByVal Target As Range) Son = 3 ReDim uzanti(Son) uzanti(1) = ".bmp" uzanti(2) = ".jpg" uzanti(3) = ".gif" With Application .DisplayAlerts = False: .ScreenUpdating = False: .Calculation = xlCalculationAutomatic End With ActiveSheet.DrawingObjects.Delete Klasor...

Aşağıdaki kodu boş bir modüle ekleyip çalıştırın. Kodu çalıştırdığınızda sizden resimlerin olduğu klasörü seçmenizi isteyecek. Yaptığınız seçime göre liste oluşacaktır. Option Explicit Dim Sayfa As Worksheet, Klasor As Variant, Zaman As Double Dim Dosyalar As Object, Dosya As Object...

Arkadaşlar Merhaba Sayın Askm'nin son verdiği kod üzerinde nasıl bir değişiklik yapılmalı ki İnternet adresi olmayan satırlar için resim dosyaları oluşturmasın? Saygılar. https://dosya.co/2jez349cip9q/RESİM_İNDİRME.xlsm.html (dosyanın bulunduğu yerde RESİMLER isinli bir klasör var)

En başta resminizin yerini aşğıdaki şekilde tanımlayıp .HTMLBody kodunu da aşağıdaki şekilde değiştirip dener misiniz. Eğer olmuyorsa örnek bir dosya paylaşmanızda yarar var. Dim rng As Range Dim OutApp As Object Dim OutMail As Outlook.MailItem Dim i, k As Integer Dim ozet, logoyol As String...

Çok teşekkürler zamanınızı ayırdığınız için ancak logo ekleniyor ama bu sefer de daha önce yazdığım mail bodysi (yazı) gelmiyor.

Aşağıdaki kodu kendinize göre uyarlarsınız. Sub Resim_ekle() Klasor = "C:\Deneme\" Resim = "logo.jpg" With CreateObject("Outlook.Application").CreateItem(0) .Attachments.Add Klasor & Resim .HTMLBody = "<html><p>Resim</p>" & _ "<img src=cid:" & Replace(Resim, "...

Klasor = ThisWorkbook.Path & "\" klasör yolunu bu şekilde değiştiriniz. resimlerle excel dosyası stoklar klasörünün içinde olacak. Bu şekilde stoklar klasörünü hangi bilgisayara atarsanız atın çalışacaktır. Resimlerin üst üste gelmesi olayınde ben kendi pc de denediğim böyle sorun vermiyor...