Dosyadan resim alma....

[Necdet]

Merhaba,

Y.İşemri sayfasında F6 hücresindeki formülü düzelttim.

=DÜŞEYARA($A$1;RaporX_TümMasalar!A2:AJ42;24;0)

Yine aynı sayfanın kod bölümünü düzelttim.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Image1.Picture = LoadPicture("C:\Resimler\" & [F6] & ".jpg")
If Err <> 0 Then
    Image1.Visible = False
Else
    Image1.Visible = True
End If
End Sub

Resimler C:\Resimler dizininde ve F6 daki isimlerle aynı olmalı ve .jpg uzantılı olmalı.

Deneyiniz bakalım bu sefer olacak mı?

Yukarıdaki kodların olması yeterli diğer kodları siliniz.

 

[a.cogurcu]

Teşekkür ederim emeğine sağlık yeni bakabildim....

 

[halit3]

aşağıdaki lihkleri incelermisiniz

10 adet uzantılı resim bulur

http://www.excel.web.tr/f48/resim-yenilenmiyor-t59625.html
http://www.excel.web.tr/f48/sayfada-resim-gosterme-t58600.html
http://www.excel.web.tr/f48/image-nesnesine-resim-getiremiyorum-t57256.html
http://www.excel.web.tr/f48/resim-al-makrosu-ile-ilgili-yard-m-lutfen-t58958/sayfa2.html

 

[gokkusagi1980]

Necdet bey özelden size ulaşabilirmiyim? celalsezer64@gmail.com

 

[as12asdf]

Image1.Picture = LoadPicture(['FORM'!h30]) ile h30 hücresine resim getiriyorum. H30 hücresine resim yolu c:\foto\1.jpg şeklinde otomatik geliyor. başka hücreye değer girdiğimde c:\foto\2.jpg c:\foto\3.jpg gibi otomatik değişiyor h30 hücresi.

h30 hücresi c:\foto\4.jpg olduğunda , c:\foto\ dizininde 4.jpg resimi olmadığı zaman runtime error 53 hatası veriyor. resim bulamadığında bu hatayı önlemek için bulamadığı resim yerine dizine hata.jpg diye bir resim koysak o resmin otomatik gelmesini nasıl sağlayabiliriz.

 

[zafer]

Merhaba

Hata olduğunda Hatayı yoksayarak devam etmesi için
kodların başına
On error resume next
kodlarını ekleyin

sub .... ()
On error resume next
..
..
end sub.

Hata olduğunda hata.jpg göstermek için

sub .... ()
On error goto 10
..
..

10
Image1.Picture = LoadPicture("C:\foto\hata.jpg")
end sub.


Excel'im olmadığı için deneyemedim ama çalışacağını zannediyorum

 

[as12asdf]

Private Sub Worksheet_Change(ByVal Target As Range)
Image1.Picture = LoadPicture(['FORM'!h30])
Image2.Picture = LoadPicture(['FORM'!b30])
Image3.Picture = LoadPicture(['FORM'!b45])
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image2.PictureSizeMode = fmPictureSizeModeStretch
Image3.PictureSizeMode = fmPictureSizeModeStretch

kodlar bu nasıl düzenlemeliyim?

 

[halit3]

Image1.Picture = LoadPicture(['FORM'!h30]) ile h30 hücresine resim getiriyorum. H30 hücresine resim yolu c:\foto\1.jpg şeklinde otomatik geliyor. başka hücreye değer girdiğimde c:\foto\2.jpg c:\foto\3.jpg gibi otomatik değişiyor h30 hücresi.

h30 hücresi c:\foto\4.jpg olduğunda , c:\foto\ dizininde 4.jpg resimi olmadığı zaman runtime error 53 hatası veriyor. resim bulamadığında bu hatayı önlemek için bulamadığı resim yerine dizine hata.jpg diye bir resim koysak o resmin otomatik gelmesini nasıl sağlayabiliriz.

aşağıdaki linkdeki dosyada daha teferruatlı bilgiler var

http://www.excel.web.tr/f48/resim-gosterme-secenekleri-t90172.html

 

[as12asdf]

Private Sub Worksheet_Change(ByVal Target As Range)
Image1.Picture = LoadPicture(['FORM'!h30])
Image2.Picture = LoadPicture(['FORM'!b30])
Image3.Picture = LoadPicture(['FORM'!b45])
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image2.PictureSizeMode = fmPictureSizeModeStretch
Image3.PictureSizeMode = fmPictureSizeModeStretch

kodlar bu nasıl düzenlemeliyim?

beceremedim

 

[halit3]

beceremedim

örnek dosyanızı ekleyinde bir bakalım.

 

[as12asdf]

örnek dosyanızı ekleyinde bir bakalım.

dosya ekledim

 

[halit3]

dosya ekledim

makrolarla yaptım düğmelere sırasıyla tıklayınız.

 

[as12asdf]

tam olarak istediğim bu değil aslında buton olmadan yapamazmıyız on error goto komutunu kullanarak

 

[baydeniro]

Teşekkürler

 

[isa37]

resim kullanma

Değer değiştirici düğme ile sayfada belirlenen hücreye resmini değiştirme