Userform'a resim çağırma

[M.ACAR]

Autocad'te çizdiğim şekilleri resim olarak kaydettim,taşınabilir disk yani e klasöründe depoluyorum,burada depoladığım resimlerimi excel'de hazırladığım userform'a almak istiyorum nasıl bir yol izlemeliyim,hangi nesnelere ihtiyacım var,yardım ederseniz sevinirim,şimdiden teşekkür ederim.

 

[M.ACAR]

Yardım ederseniz çok memnun olurum.

 

[Fuat Şirin]

Private Sub ComboBox1_Change()
Dim kls As String
kls = "[COLOR="Red"]C:\ff\[/COLOR]"
With Application.FileSearch
    .NewSearch
    .LookIn = kls
    .Filename = ComboBox1 & ".jpg"
    .SearchSubFolders = True
    .Execute
    If .FoundFiles.Count > 0 Then
        Image1.Picture = LoadPicture(.FoundFiles(1))
    End If
End With
End Sub

bu kodlar userforma ekleyip
bir combobox
birde image nesnesi eklerseniz
combobox a
1018.jpg
isimli resmi image nesnesine almak için
1018 yazmanız yeterli olacak
kırmızı ile işaretlediğim yere
sizin resimlerinizi içeren klasörü belirtin

iyi çalışmalar

 

[M.ACAR]

Sayın :Fuat bey ilginiz için teşekkür ederim,fakat resimleri ekleyemedim,formuldemi bir hata yapıyorum,çalıştığım dosyayı ekledim,Autocad'den aldığım resimleri klasör içinde numaralandırarak yada isimlendirerek depolayacağım,buradaki resimleri hazırladığım Userform'a getireceğim,ilgileneceğinizi umut ederim,kolay gelsin.

 

[halit3]

ekli dosyanızı kontrol ediniz.

 

[M.ACAR]

Halit bey yardımınızın için teşekkür ederim,konuyu tam kavrayamadım ama üzerinde biraz çalışayım,belki benim beceriksizliğimden kaynaklanıyor

 

[Fuat Şirin]

Sn Halit3 size uygun bir şekilde hazırlamış
çalışmayan bir kısmı yok
resim klasörünü seçiyorsunuz
comboboxta resimler listeleniyor sizde
orda istediğiniz resmi görüntülüyorsunuz

 

[ugurbutun]

sayın fuat şirin,

bu dosyada şu tarz bir değişiklik yapmak mümkün müdür? resim dosyalarımızın klasörünün hep sabit olduğunu düşünerek, kaynak seçimi yapmadan, sadece resmin *.jpg halinin ismini bir hücreye girerek, otomatik açılmasını sağlayabilir miyiz?

Bunun için gerekli kodlar hakkında yardımcı olabilir misiniz?

 

[Terkanli]

Hazırladığım bir dosyayı ekte gönderiyorum. Dosya büyük olduğunda rar halinde dosyayı açtığınızda minicari.xls çıkacak.
Excel 2003 te çalışıyor.
Aslında cari hesap için hazırlanmıştır. Userformda siyah resim kısmına tıkladığınızda resim ekle komutu çalışacak. istediğiniz resmi ekleyebilirsiniz.
Sadece başka bir bilgisayara yüklerseniz. Resim yolunu bulamaz ve userformda resim görünmez.
VBA kodları açıktır. bakarak kendinize göre düzenleyebilirsiniz.

Cari hesaplarda giriş yaparsanız, ortalama vade farkı vs. işlemleride yapar.

Kolay gelsin
Tansu Erkanlı

 

[kadir74]

Herkese Merhaba Userform ve Image1 ile ilgili benimde bir sorunum var.

Çalıştığım şirkette Arşivleme yapılmamış dolayısı ile bu işlemi Exel Macro ile bir Data hazırlayıp
verileri burada saklayacağım.
Macro da herşey düzgün bir şekilde çalışıyor.

Bir şey hariç.

Sitenizde indirmediğim örnek kalmadı ve hiçbirine uyum sağlatamadım.İstediğim Combobox tarzı değil.Program
da Numune JOB yazan yer (Textbox) ile Image1 e gelmesini istediğim resim aynı olmasını istiyorum.Ekle yapıyorum
Fakat Bul dediğimde Resim hariç hepsi geliyor.

Textbox31 olan yere Kayıt yapıyor.Ama çağırmada sorun yaşıyorum

Bu konuda yardımlarınızı bekliyorum...

Dosyayı açarken

deneme
12345 dir şifre

Saygılarımla / Teşekkür ederim.

 

[halit3]

Bul komut düğmesine bu koduda eklemelisiniz.

Me.image1.Picture = LoadPicture(Me.TextBox31)

 

[kadir74]

Çok Teşekkür ederim.
Bilginize Sağlık. Halit3

 

[halit3]

Çok Teşekkür ederim.
Bilginize Sağlık. Halit3

Teşekkürler iyi çalışmalar

 

[istanbulcahan]

Hazırladığım bir dosyayı ekte gönderiyorum. Dosya büyük olduğunda rar halinde dosyayı açtığınızda minicari.xls çıkacak.
Excel 2003 te çalışıyor.
Aslında cari hesap için hazırlanmıştır. Userformda siyah resim kısmına tıkladığınızda resim ekle komutu çalışacak. istediğiniz resmi ekleyebilirsiniz.
Sadece başka bir bilgisayara yüklerseniz. Resim yolunu bulamaz ve userformda resim görünmez.
VBA kodları açıktır. bakarak kendinize göre düzenleyebilirsiniz.

Cari hesaplarda giriş yaparsanız, ortalama vade farkı vs. işlemleride yapar.

Kolay gelsin
Tansu Erkanlı

Kodlar 32 bit galiba benim sistemim 64bit ondan galiba hata vardı.

Public Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Declare Function SetWindowPos Lib "user32" _
(ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long
Public Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Public Declare Function GetActiveWindow Lib "user32.dll" _
() As Long
Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Public Declare Function DrawMenuBar Lib "user32" _
(ByVal hWnd As Long) As Long

 

[relaxim]

Merhaba,
Declare Function yazan yerlerin arasına PtrSafe yazmanız lazım.
Public Declare PtrSafe Function GetWindowLong Lib "user32" _

Yine hata verebilir. Referansları kontrol edip Missing yazanların tiklerini kaldırınız.

 

[yusuf1284]

ekli dosyanızı kontrol ediniz.

Hocam bazı jpg dosyalarını kabul etmemekte sebebini anlayamadım