userformdan veri aktarma ve resim işlemleri

[anita]

ekte gerekli bilgileri verdim yardım bekliyorum.

 

[Murat OSMA]

Resimle kaydetme ile ilgili örnek bir dosya ekliyorum.
Kendi dosyanıza uyarlayabilirsiniz...

 

[halit3]

ekte gerekli bilgileri verdim yardım bekliyorum.

Aşağıdaki linkdede benzer sorunuz var 3 nolu mesajımda cevap verdim geri bildiriminiz olmadı.

http://www.excel.web.tr/f48/userformdaki-resmi-farkly-bir-sayfa-hucresine-aktarma-t117155.html

 

[anita]

Ilginize teşekkür ederim

Aşağıdaki linkdede benzer sorunuz var 3 nolu mesajımda cevap verdim geri bildiriminiz olmadı.

http://www.excel.web.tr/f48/userformdaki-resmi-farkly-bir-sayfa-hucresine-aktarma-t117155.html

fakat ben userforma resmi otomatik olarak çağırmak istiyorum.2003 teki kod 2007 de çalışmıyor. aşağıdaki kodu nasıl 2007'e uyarlayabilirim.
asıl programımda resmi ben bu şekilde çağırıyorum fakat 2007de çalışmıyor bu kodu nasıl 2007ye uyarlayabilirim.
Image1.Picture = LoadPicture("")
Dim kls As String
kls = "C:\teklif\teklifresim"
With Application.FileSearch
.NewSearch
.LookIn = kls
.Filename = ComboBox2 & ".jpg"
.SearchSubFolders = True
.Execute
If .FoundFiles.Count > 0 Then
Image1.Picture = LoadPicture(.FoundFiles(1))
Else: Image1.Picture = LoadPicture("C:\teklif\teklifresim\yok.jpg ")
End If
End With

 

[anita]

2007'e uyarlama

yukarıdaki kodu excel 2007 'e uyarlamam lazım. Bilen yok mu?

 

[Korhan Ayhan]

Merhaba,

"Application.FileSearch" özelliği 2007 ve sonrası versiyonlarda çalışmamaktadır. Forumda arama yaparsanız çalışabilecek kodlara ulaşabilirsiniz.

 

[anita]

formdaki örnek dosyaları bulamadım

arkadaşlar 2007 uyumlu kodları form içerisinde bulamadım.
bir kaçında da dosyalar silinmiş yardımcı olabilir misiniz ?
yukarıdaki kodları 2007 uyarlamam gerekiyor.