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

  1. B

    Soru Klasörden resim alma

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

    Soru Klasörden resim alma

    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...
  3. Korhan Ayhan

    excel alt klasörlerden satırlara dosya listesi

    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...
  4. V

    Soru İnternet Linkinden Resim Çağırma

    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)
  5. B

    mail body kısmına logo ekleme

    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...
  6. B

    mail body kısmına logo ekleme

    Ç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.
  7. B

    mail body kısmına logo ekleme

    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, "...
  8. M

    Resim Çağırma Kodunda Değişiklik

    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...
  9. M

    Resim Çağırma Kodunda Değişiklik

    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...
  10. V

    Resim Çağırma Kodunda Değişiklik

    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...
  11. M

    Resim Çağırma Kodunda Değişiklik

    Deneyiniz Klasör yolunu kendinize göre uyarlayınız Private Sub Worksheet_Change(ByVal Target As Range) son = 3 ReDim uzanti(son) uzanti(1) = ".png" uzanti(2) = ".jpg" uzanti(3) = ".gif" With Application .DisplayAlerts = False: .ScreenUpdating = False: .Calculation = xlCalculationAutomatic...
  12. U

    Soru Excel Resim Çağırma

    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...
  13. B

    Soru Makro Kullanarak Resim Çağırma

    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...
  14. byfika

    userform calısmamda eksık kalan detaylar

    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...
  15. U

    Diğer sayfalardaki listeden resimli ve sayısal veri çekmek?

    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...
  16. tamer42

    Soru Listbox'taki seçime göre resim

    Ö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...
  17. K

    Dosya ve klasör listeleme

    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...
  18. Feylosof

    İmage Nesnesine Resim Ekleme

    İ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.
  19. M

    Kapalı Dosyalardan veri almak yada göndermek

    Numan Hocam Günaydın Hayırlı Sabahlar; Hocam Mesaj 24 deki çalışmanızı indirdim bugün nasip oldu denemek. Elinize sağlık çok güzel bir çalışma oldu. Ağ üzerinden veri çekme de kusursuz çalışıyor. Şöyleki örneğin Elif listesinde belirli bir aralığı süzmüş o şekil de çalışmasını kapatmış. Ağ...
  20. M

    Kapalı Dosyalardan veri almak yada göndermek

    Hocam bunun cevabını şöyle vereyim bu evimdeki bilgisayar ve size iki resim atıyorum. biri adres satırı diğeri adres satırı yok ismiyle. Evde sizin kodlardan AĞ ı görebiliyorum ancak kurumda merkezden bazı kısıtlamalar olduğu için AĞ bağlantısı simgesini masaüstüne getiremiyoruz ve ona müdahele...
Üst