Klasörden resim ekleme

[farisakboga]

Merhaba!

Ekli klasörde excel dosyasına "resimlerim" klasöründeki resimleri karışık şekilde excel dosyasına nasıl çağırabilirim.

resimler güzel yazı satırının hemen üstündeki hücreye gelecek. her yenilediğimde resimlerin yeri değişecek. en ve boy olarak hücreyi kaplamasına gerek yok. oranlar korunarak hücreye sığdırmak istiyorum.

Yardımcı olabilir misiniz?

 

[farisakboga]

yardım lütfen

 

[hamitcan]

Forumda geçmişte yapılmış birçok örnek mevcut. Baştan yapmak yerine hazır programlardan faydalanmak daha kolay olacaktır.

 

[farisakboga]

Forumdaki ilgili tüm konulara baktım. Dosyalarını inceleyip yapmak istediğim şey için uğraştım. Çok az bilgimle ancak ekteki dosya gibi bişey yapabildim. Ancak bu amacımı karşılamıyor. Dolayısı ile yine yardım rica edeceğim.

1-Sadece bir sütuna resim getirmeyi başarabildim. bunu 3 sütun haline dönüştürmek istiyorum.

2-Klasörde bulunan resimlerin karışık şekilde ve tekrarsız yer değiştirmesi lazım. Amacım her öğrencinin çalışmasının farklı olması.

Klasöre örnek olsun diye 5 resim koydum. Çalışmayı daha fazla resimle yapacağım.

Yardımcı olabilirseniz çok makbule geçecek.

 

[Necdet]

Merhaba,
Kodlarınız aslında çalışıyor, ufak bir düzenleme yaptım, deneyiniz.

Sub ResGetir()

    Dim p As Object, t As Double, l As Double, w As Double, h As Double, i As Double
    Dim Yol As String
    Dim ResimDosya As String
  
    ActiveSheet.Pictures.Delete
    Application.ScreenUpdating = False
  
    Yol = ThisWorkbook.Path & Application.PathSeparator
  
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        ResimDosya = Yol & Cells(i, "A")
        If Not Dir(ResimDosya) = "" Then
             Set p = ActiveSheet.Pictures.Insert(ResimDosya)
            
             With Cells(i, "B")
                 t = .Top
                 l = .Left
                 w = .Offset(0, .Columns.Count).Left - .Left
                 h = .Offset(.Rows.Count, 0).Top - .Top
             End With
            
             With p
                 .Top = t
                 .Left = l
                 .Width = w
                 .Height = h
             End With
            
             With Cells(i, "B")
                 p.Left = .Left + ((.Width - p.Width) / 2)
                 p.Top = .Top + ((.Height - p.Height) / 2)
             End With
            
             Set p = Nothing
        End If
        
    Next i
  
    Application.ScreenUpdating = True
  
End Sub

 

[farisakboga]

İlgilendiğiniz için teşekkür ederim.

Hala tek sütun halinde resimleri çekiyor ve aynı resimler gelebiliyor.

Resimlerin farklı olmasını ve 3 sütun halinde görünmesini sağlamak mümkün mü?

 

[Necdet]

benim denemelerimde a sütunundaki resim adlarını b sütununa getirdi, sizdeki sıkıntı nedir ki?

 

[farisakboga]

aynısı bende de oluyor. b sütunundaki resimler gibi d ve f sütunlarına da resimlerin gelmesini istiyorum.

ayrıca mümkünse resimlerin 1 sayfa içinde tekrarsız görüntülenmesi.

yani sayfada farklı 15 resim görünecek.

 

[Necdet]

Merhaba,

Sorunuz ve ne yapmak istediğiniz tam olarak anlaşılmıyor ki.
Resim adları A sütununda olacak ve resimler B-D ve F sütunlarında mı gösterilecek?
Ya da nasıl olacak açıklarsanız yardım edecek arkadaşlar çıkacaktır.

 

[farisakboga]

Klasörden resim çekecek ve şöyle bir sayfa oluşturacak.

 

[farisakboga]

Bu resimlerin bir düğme veya tuş ile yer değiştirmesini istiyorum.

 

[muygun]

Merhaba;
Alternatif eki deneyin.
Dosyayı resimler klasörünün yanında (içinde değil) konumlandırın
İyi çalışmalar.

 

[farisakboga]

Merhaba;
Alternatif eki deneyin.
Dosyayı resimler klasörünün yanında (içinde değil) konumlandırın
İyi çalışmalar.

Çok teşekkür ederim. Elinize sağlık.