otomatik resim alma ve boyutlandırma

[rebelpirate]

merhaba arkadaşlar ben bir program yapıyorum ancak excelde uzman olmadığım için tam anlamıyla başaramadım. Giriş sayfasında isim ve soy isim yazarak diğer bütün bilgileri çağırabiliyorum. Acaba Ad Soyad yazılan yere ad ve soyadı yazdığımda küçük harfle bile yazsam acaba yazılar otomatik olarak büyük harfe çevrilebilirmi ?

birde bu bilgileri otomatik A4 yazdırma sayfasına otomatik aktarıyorum kişinin fotoğrafınında otomatik olarak yazdırma sayfasına aktarılmasını istiyorum. bana yardım edebilirmisiniz?

 

[ockucukay]

forumda "makroyla resim getirme" olarak aratırsanız birçok örnek bulabilirsiniz.

 

[Merhum İdris SERDAR]

http://www.excel.web.tr/f136/personel-bilgileri-resimli-3-ornek-dosya-t22790.html

Buradaki dosyaları inceleyin.

.

 

[rebelpirate]

http://www.excel.web.tr/f136/personel-bilgileri-resimli-3-ornek-dosya-t22790.html

Buradaki dosyaları inceleyin.

.

hocam verdiğiniz örnekleri önceden incelemiştim fakat anlamadım. benim dosyamı incelerseniz giriş sayfasına resim ad soyada göre otomatik olarak geliyor. başka bir arkadaş yapmıştı fakat nasıl yapıldığını anlatmadı. kısaca bana anlatabilirmisiniz. resimin istediğim yere istediğim boyutta gelmesini nasıl sağlayacağım. excelde henüz yeniyim kusura bakmayın.

 

[halit3]

ben bu sorunu çözdüğümü sanıyordum yinede dosyayı yeniledim

 

[rebelpirate]

ben bu sorunu çözdüğümü sanıyordum yinede dosyayı yeniledim

evet hocam siz daha önce giriş sayfasındaki otomatik resim yükleme olayını halletmiştiniz. şimdide yazdırma sayfasına otomatik resim yükleme ve büyük harf olayını halletmişsiniz. çok teşekkür ediyorum.

ama nasıl yapıldığını söylemediniz başka bir yere resim yükletmek istediğimde halledemeyeceğim yine yardımınızı isteyeceğim galiba.

tekrar teşekkür ediyorum hocam tam istediğim gibi olmuş.

 

[rebelpirate]

hocam işyerinde office 2003 te sorunsuz çalışmıştı ancak evde office 2007 kullanıyorum program office 2007 de çalışmadı aşağıdak hatayı veriyor. sorun nedir acaba ?

 

[halit3]

sorun görüntü image nesnesinde olabilir sen bu nesneyi değiştir bakalım belki düzelir ama sorunsuz çalışması lazım başkada aklımdan birşey gelmiyor.
tabi şimdide bu nesneyi nasıl değiştireceksin diye soracaksın

 

[ersoyalan]

Merhaba,

kullandığınız kodlara on error resume next ekliyerek denermisiniz.

E.ALAN

 

[halit3]

bu kod var

Private Sub RESIMLERIBUL_Click()
Hedef = ThisWorkbook.Path & "\resimler\"
For i = 1 To 10
ver = Sheets(ActiveSheet.Name).Cells(5, 8).Value
resimyükle = Hedef & ver & "." & resimuzantısı(Val(i))

Set fs = Application.FileSearch
With fs
.LookIn = Hedef
.SearchSubFolders = True
.Filename = ver & "." & resimuzantısı(Val(i))
If .Execute() > 0 Then
On Error Resume Next
Sheets(ActiveSheet.Name).Image1.Visible = True
On Error GoTo atla1
Sheets(ActiveSheet.Name).Image1.Picture = LoadPicture(resimyükle)
Exit Sub
atla1:
Exit Sub
MsgBox "dosyamız bulundu"
Else
Sheets(ActiveSheet.Name).Image1.Visible = False
'MsgBox "dosya bulunamadı"
End If
End With
Next i
End Sub

 

[rebelpirate]

hocam bir sorun daha çıktı. sayfayı koruduğum zaman küçük harfleri büyük harflere çevirme olayı olmuyor.

 

[halit3]

ben burada denedim oluyor yeniden kontrol edermisin

 

[rebelpirate]

yok hocam olmuyor malesef. acaba bilmeden değişiklikmi yaptım diye verdiğiniz dosyayı tekrar indirip denedim ama malesef olmuyor. sayfa korumasını kaldırdığımda çalışıyor ancak sayfayı koru dediğimde çalışmıyor.