Soru picture1 ve picture2 resmini sayfaya sıradaki boş hücreye kaydetme

[zulfuernek]

Sheets("sayfa1").Pictures.Insert(resim_adi).Select
Selection.Top = Range("A" & Bos_Satir).Top: Selection.Left = Range("A" & Bos_Satir).Left
Selection.ShapeRange.LockAspectRatio = msoFalse: Selection.ShapeRange.Height = 100: Selection.ShapeRange.Width = 150
ActiveCell.Select

yukarıdaki kodlamada userform üzerinde 1 ader ımage nesnesi varken resmi excel sayfasında A sütununda sıradaki boş hücreye ekliyor. resmi boyutlandırıyor ve sıra numarası veriyor.

SORU: bu kodda nasıl bşir değişiklik yapmalıyım ki iki adet ımage1 nesnesindeki resmi W sütununda sıradaki boş hücreye, ımage2 nesnesindeki resmide Y hücresindeki sıradaki boş hücreye eklesin

 

[halit3]

Bence bir örnek dosya ekleyiniz

 

[zulfuernek]

@halit3 hocam örnek dosya ektedir. resim ekle butonlarıyla resimleri ekliyorum ancak sağ altta kaydet butonuna tıklayınca resim 1 i w sütununa resim 2 yi y sütununa sırayla kaydetmesi gerekiyor

 

[halit3]

Dosyanı inceledim userformdaki resimleri hücrelere almak istediğiniz anlaşılıyor.
Uyarı:
Sayfaya resim eklediğinizde dosya boyutu büyüyecektir ve dosya boyutu büyüdükçe hem dosyanızda işlem yapmanız zorlaşacak hemde dosyanız açılışta veya kayıt etme aşamasında baya uzun zaman alacaktır. Diğer taraftan sayfaya kayıt yaptığınız resimlere bakmak için de bu resimleri çağırmak gerekecektir.

size tavsiyem resimleri bir klasörden ihtiyaca göre çağırın.

 

[zulfuernek]

@halit3 halit hocam haklısınız. ancak resimlerin boyutlarını çok küçük ebatlara getireceğiz, yani örnek dosyada gördüğünüz hücreye sığacak şekilde.
burdaki amacım resimlerin excelde entegre kalması ve ben programı başka bir pcde açtığımda resimleri taşımak zorunda kalmayayım. resim boyutlarıda çok küçük olacağı için kasmanın pek yaşanacağını sanmam.

dün birşey okudum aslında ama o konu hakkında bilgim yok. "IMAGELIST" oraya entegre edip ordan çağrılabilirmiş diye bişeyler okudum. bilginiz varmı.

ama şimdilik hücreye almak benim içn en mantıklısı. en azından bu olayı çözene kadar halit hocam.

 

[halit3]

Resimlerin boyutları hücrelere aktarıldığında ne kadar küçültürseniz küçültün aynı kalır burada klasörden alınan resimlerin boyutları esas olur.

 

[zulfuernek]

@halit3 anladım halit hocam. şöyle yapalım sizden ricam

o halde sizin dediğiniz metodla bir kodlama rica etsem. yani 1. resim yolunu w 2. resim yolunu y sütununa ilk boş satıra. ancak dosyayı başka bilgisayara taşısamda ordan alabilsin. ayrıca resimleri dosya içinde rar dosyasından alabilirmi.

birde benim dediğim metodla olan kodlama rica edebilirmiyim. her iki yöntemle.

daha sonrada imagelist konusunu ayrıca araştıracağım zaten


birde şöyle bişey yapsak. "veya". ikinci bir userform açsam. orda birsürü picture oluştursam ve pictureye resmi entegre etsem. ve ben userform1 den ilkgili kayıdı seçinse belirlediğim pictureden resmi alsa. hemde userform üzerinde entegre kalmış olur. mümkünmü acaba. buna ilişkin bir örnek dosya oluşturayımmı.

 

[halit3]

Resimlerin adını bir hücreden alması gerekiyor yani resimler klasöründeki isimlerle hücrede yazılı isimler aynı olmalı.

Bu durumda resim ismini kayıt sayfasında hangi sutünda olacak

 

[halit3]

Userformdan resimi alıp dolu son B sutünundaki satıra kayıt yapmaktadır
resim ekle1 resim ekle 2 komut düğmelerini kayıt yaptıktan sonra tıklayınız veya kayıt düğmesinin içine entegre ediniz.

ben bunu tavsiye etmiyorum.

 

[halit3]

Bu dosya da da küçük bir düzenleme yaptım kendinize göre düzenleyiniz.
1-Resimlerin adı kayıt sayfasınsa Lsütununda
2-userformda ComboBox6_Change kodunu deneme yapmak için değiştirdim
3-lisbox2 nesnesine A sutunundaki sıra numarasını aldım çünkü resimler bu sıra numarasına göre gelmektedir.
4-listbok2 nesnesine çivt tıklama ile resim gelmektedir.
5- resimler klasörü dosyanın yanında olmalı

 

[zulfuernek]

halit hocam bu dediğinizede baktım ikiside farklı yöntemler. elbette daha az boyutta. fakat bir sorum olucak listboxda çift tıklayınca resim geliyor. ama image3 nesnesine geliyor. image 4 nesnesine resim getir işlevini nasıl ekleyebilirim.

 

[halit3]

aşağıdaki kodu forma ekle ve resimlerin adreside kırmızı sütunda yani M sütununda

Private Sub resimgetir2()

If ListBox2.ListCount > 0 Then
sat = ListBox2.List(ListBox2.ListIndex, 0) + 1
Dim s1
Set s1 = Sheets(ActiveSheet.Name)
adres = s1.Cells(sat, 13)
Image4.Picture = LoadPicture(None)
ReDim uzanti(11)
uzanti(1) = "bmp":        uzanti(2) = "jpg"
uzanti(3) = "gif":        uzanti(4) = "pcx"
uzanti(5) = "tga":        uzanti(6) = "emf"
uzanti(7) = "abm":        uzanti(7) = "avi"
uzanti(8) = "png":        uzanti(9) = "jpeg"
uzanti(10) = "wmf":       uzanti(11) = "TIFF"

For j = 1 To 11
Dosya = ThisWorkbook.Path & "\Resimler\" & adres & "." & uzanti(Val(j))
If CreateObject("Scripting.FileSystemObject").FileExists(Dosya) = True Then
Image4.Picture = LoadPicture(Dosya)
Exit For
End If
Next

End If
End Sub

 

[halit3]

Her iki resimde geliyor.
1. resim isimleri L sutununda
2. resim isimleri M sutununda
olmayan resimler için yok.jpg resimi yelmektedir.

 

[zulfuernek]

@halit3 eline saglik halit hocam subeye gecince ilgilenecegim hemen. yardimlariniz icin tesekkur ederim. sonuclar hakkimdatekrar bilgi verecegim. ayrica farkli formatta bir yontem daha bulmustum gecen gun onun hakkinda da paylasim yapacagim forumda