Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
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...
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...
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...
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...
Sayın metin_0606 ilginize teşekkür ederim.
Dosya yolunu uyarlayınca kodlar çalıştı. Ancak Dosya değişik bilgisayarlarda kullanılacağı için sabit dosya yolu yerine excel dosyasının bulunduğu klasördeki STOKLAR isimli klasörden almalı. Bunun için klasör yolu nasıl tanımlanmalı.
Bir de sizin...
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Resim As OLEObject, Yeni_Resim As OLEObject, Resim_Adres As Range, Yol As String, Resim_Adı As String
If Intersect(Target, [B12]) Is Nothing Then Exit Sub ' hedef B12 hücresi değilse çık...
Merhaba değerli forum kullanıcıları
İlgili problemim hakkında bulunan kaynaklardan yararlanamadığım için sizlerden problemime çözüm bulmanızı rica ederim.
B sütunundaki ürün kodlarının karşılığı olan ilgili klasördeki fotoğrafları A sütununa makro ile çekmek istiyorum.Aynı zamanda resimlerin...
Merhabalar,
Excel kitabınızın olduğu yere bir tane ÜRÜNLER klasörü açın ( klasör adı büyük harf ve türkçe karakter olmalı) ve resimleri ÜRÜNLER klasörünün içine atın. Ayrıca klasörde RESİM YOK isimli resim olmalı (ekteki resim gibi) ve alttaki kodları Userformun içine kaydedin. Dikkat...
Kullanılan kod;
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Resim As OLEObject, Yeni_Resim As OLEObject, Resim_Adres As Range, Yol As String, Resim_Adı As String
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub...
Öncelikle bu resimlerin her birini ayrı olarak bir klasör içinde saklamanız gerekecektir.
bu görselleri, Excel dosyasının bulunduğu klasör içine Resim adında bir klasör açarak, resim dosyalarını Liste kutusunda yazan şekliyle isimlendirmeniz gerekecek.
sonra Hikaye adındaki Form içerisine...
Hocam ilginiz için teşekkür ederim.
Köprüleme de yapabilir miyiz.
Sonrasında artık bu geliştirmeye uygun bir yapı oldu.
Zamanı olan ilgilenebilecek ustalar için mümkünse bir iki rica da bulunmak istiyorum.
Örneğin listelemenin bir üst satında, yine klasör ve dosya yapısı sabit kalmak...
İdris hocam merhaba benim eklemeye çalıştığım resim userform üzerinde bulunan image nesnesi. Eklemek isrediğim resmi excel dosyası içinden değil klasör içinden alıp yapıştıracak.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.