[Çözüldü] - Tek sayfada çoklu resim çağırma kodu

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

[Çözüldü] - Tek sayfada çoklu resim çağırma kodu

İleti#1)  tmly » 20 Oca 2012 15:53

İyi günler.
Bir excel sayfasında açılan listeden resim çağırma sayısını çoğaltmak istiyorum fakat beceremedim.Bir tek için daha önce üstadlarım yapmıştı. Benim bu konularda kopyala yapıştırdan başka bilgim yok. Bu forumdan çok şey öğrendim.Kodları kullanarak yapmaya çalışıyorum bazı işlerimi lakin bununla ilgili bir kod bulamadım bulamadım.
İlginize şimdiden teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
tmly
Yeni Başlamış
 
Adı Soyadı:sadık barış
Kayıt: 13 Tem 2010 19:10
İleti: 42
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Tek sayfada çoklu resim çağırma kodu

İleti#2)  Erman Sekitmez » 21 Oca 2012 20:57

Dosyada görüldüğü gibi sadece 7 resim mi olacak? Yoksa adedi artıp-azalabilir mi?
Erman Sekitmez
Forum Moderatörü
 
Adı Soyadı:Erman Sekitmez
Kayıt: 02 May 2010 15:16
Konum: Aydın
Meslek: Planlama, süreç iyileştirme
Yaş: 43
İleti: 1077
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın/Söke

Cevap: Tek sayfada çoklu resim çağırma kodu

İleti#3)  tmly » 22 Oca 2012 21:05

İyi çalışmalar
Sekiz resim yeterli baştaki sehven unutulmuş.
İlginize teşekkür ederim
Kullanıcı avatarı
tmly
Yeni Başlamış
 
Adı Soyadı:sadık barış
Kayıt: 13 Tem 2010 19:10
İleti: 42
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Tek sayfada çoklu resim çağırma kodu

İleti#4)  Erman Sekitmez » 22 Oca 2012 23:13

Sayfa üzerindeki resim nesnelerinin isimlerini "X_SutunHarfi" formatında değiştirirseniz aşağıdaki makro tüm resimler için çalışır. Yani A kolonundaki resmin ismi "birisim_A" şeklinde olmalı. C kolonundaki resimin ismi "birisim_C" şeklinde olmalı. Sizin dosyanızda Image1_C, Image2_E, Image3_G..... şekliinde gidiyor.


Kod: Tümünü seç
Private Sub Worksheet_Calculate()
On Local Error Resume Next
Set s1 = ThisWorkbook.Worksheets("DOSYA ETİKETİ")
Dim obj As OLEObject
Dim img As MSForms.Image

For Each obj In s1.OLEObjects

If TypeName(obj.Object) = "Image" Then
    Set img = obj.Object
   
    img.PictureSizeMode = fmPictureSizeModeStretch
    img.Picture = LoadPicture(ThisWorkbook.Path & "\resimler\" & _
    s1.Range(Split(obj.Name, "_")(1) & "27").Value & ".jpg")

    If Err Then
        Err.Clear
        s1.Image1.Picture = LoadPicture("")
    End If

End If
Next

End Sub
Erman Sekitmez
Forum Moderatörü
 
Adı Soyadı:Erman Sekitmez
Kayıt: 02 May 2010 15:16
Konum: Aydın
Meslek: Planlama, süreç iyileştirme
Yaş: 43
İleti: 1077
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın/Söke

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Tek sayfada çoklu resim çağırma kodu

İleti#5)  tmly » 23 Oca 2012 12:12

İyi çalışmalar
Ben becerip yapamadım çalıştıramadım. Benimde excel bilgim yok zaten. Örnek dosyaya uyarlamanız münkün mü ? Zamanınız müsait olunca
İlginize teşekkürler iyi çalışmalar.
Kullanıcı avatarı
tmly
Yeni Başlamış
 
Adı Soyadı:sadık barış
Kayıt: 13 Tem 2010 19:10
İleti: 42
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Tek sayfada çoklu resim çağırma kodu

İleti#6)  Erman Sekitmez » 23 Oca 2012 12:23

Ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Erman Sekitmez
Forum Moderatörü
 
Adı Soyadı:Erman Sekitmez
Kayıt: 02 May 2010 15:16
Konum: Aydın
Meslek: Planlama, süreç iyileştirme
Yaş: 43
İleti: 1077
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın/Söke

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Tek sayfada çoklu resim çağırma kodu

İleti#7)  tmly » 23 Oca 2012 16:40

Erman bey yapmış olduğunuz yardım için müteşekkirim .
İyiki Excel vba var.Sizler gibi hocalarımız sayasinde bilmediklerimizi öğreniyoruz.
Tekrar tekrar teşekkür eder çalışmalarınızda başarılar dilerim.
Kullanıcı avatarı
tmly
Yeni Başlamış
 
Adı Soyadı:sadık barış
Kayıt: 13 Tem 2010 19:10
İleti: 42
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: [Çözüldü] - Tek sayfada çoklu resim çağırma kodu

İleti#8)  bkrygt » 23 Arl 2012 12:39

Erman SEKİTMEZ merhaba,
Rica etsem banada yardımcı olur musunuz.
Dosyalarım ektedir.
İçine baktığınızda istediğimi anlacaksınız.
Özet;
b2 Hücresine kod yazdığımda
c2 hücresine resmin çözünürlüğü bozulmadan hücrenin enine veya boyuna (resme göre) göre içinde sığsın (mümkünse hücreden çok az küçük olsun hücrenin kenar çizgileri belli olsun.
d2 hücresine ürün adı gelsin
e2 hüçresine açıklama gelsin
f2 hücresine birim fiyat gelsin
Bunların düşeyara ile yapabilirsem daha iyi olur.
Çünkü bilgileri ürün listesi adlı çalışma kitabından almak istiyorum. Teşekkür ederim.

iletişim için XXxxXXxxXX
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
bkrygt
 
Adı Soyadı:bekir yiğit
Kayıt: 28 Eyl 2012 21:40
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/fatih

Cevap: [Çözüldü] - Tek sayfada çoklu resim çağırma kodu

İleti#9)  kuzeycan » 10 May 2016 09:52

banada yardımcı olabilirmisiniz ?

bir listem var a sutununda ürünler var bunlarla aynı adda resimleri var b sutununa gelecek resimleri serverdan çekeceğim buna göre koda ihtiyacım olacak aşağıdaki kodu denedim fakat ilk 4 sutundan sonrasını getirmiyor

Sub kadir19()
Dim a As Integer
Dim son As Integer
Dim ad As String
Dim yol As String

yol = "\\192.168.1.21\winner\Resimler\"
son = Range("A" & Rows.Count).End(xlUp).Row
For a = 1 To son
ad = yol & Cells(a, 1) & ".jpg"
With ActiveSheet.Pictures.Insert(ad)
.Left = Cells(a, 2).Left
.Top = Cells(a, 2).Top
.ShapeRange.LockAspectRatio = True
.ShapeRange.Height = 100
End With
Rows(a).RowHeight = 100
Next a
MsgBox "İşlem tamamlandı", vbInformation, "T A M A M"
End Sub
Kullanıcı avatarı
kuzeycan
 
Kayıt: 09 May 2016 13:58
Meslek: öğrenci
Yaş: 39
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/esenler

Cevap: Cevap: Tek sayfada çoklu resim çağırma kodu

İleti#10)  levkes07 » 06 Kas 2019 15:49

Merhablar,

Benimde benzer bir sorunum var, yardımcı olabilirseniz çok sevinirim.

d:/resim/ klasöründe ürün resimleri bulunmakta, (Resim isimleri ürün kodu ile aynı)
a1-b1-c1 hücrelerine ürün kodlarını yazıyorum.
a2-b2-c2 ye ürün resimlerinin gelmesini istiyorum.

yardımcı olabilirseniz çok sevinirim.

Hayırlı günler dilerim.
Kullanıcı avatarı
levkes07
 
Kayıt: 06 Kas 2019 12:57
Meslek: Turizm
Yaş: 47
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe