İmage nesnesine resim getiremiyorum

[ockucukay]

Merhaba arkadaşlar

İhtiyacım olan kodu forumda bir konudan aldım ve kendi çalışmama uyarlamaya çalıştım. Kısaca amaç Combobox1'de bulunan isimde bir resim dosyası var ve image1 üzerinde görülmesini istiyorum.Ama ne yaptıysam kodu çalıştıramadım. Ya "permission denied" hatası veriyor, ya da "dosya bulunamadı" diyor. Yardımlarınızı rica ediyorum...

 

[Recep İpek]

Gördüğüm kadarıyla sizin sayfaya eklediğiniz Forms Araç Kutusundaki Image nesnesi değil.Buradaki Image nesnesini ekleyerek deneyebilirmisiniz?

 

[ockucukay]

elimdeki ofiste (ofis 2003) gösterdiğiniz yerde image nesnesi görünmüyor sayın recep ipek. sayfaya koyduğunuz nesneyide yerinden oynatamıyorum hiçbirşekilde resim nesnenin içine kendi boyutuyla gelmiş. nasıl yaparızda şekle uydur deriz acaba?

 

[ockucukay]

elimdeki ofiste (ofis 2003) gösterdiğiniz yerde image nesnesi görünmüyor sayın recep ipek. sayfaya koyduğunuz nesneyide yerinden oynatamıyorum hiçbirşekilde resim nesnenin içine kendi boyutuyla gelmiş. nasıl yaparızda şekle uydur deriz acaba?

arkadaşlar konu hakkında bilgisi olan varmı?

 

[Halit TÜRK]

Selam

Tasarım moduna geçip biçimlendirin veya silmeyi deneyin...

Sub Auto_Open()
Set s1 = Sheets("1.OP")
yol = "C:\Deneme\" 'ActiveWorkbook.Path
'isim = ActiveWorkbook.Name
dosya = Dir(yol & "\*.jpg")
Do While dosya <> ""
    dosya = Left(dosya, Len(dosya) - 4)
'   s1.ComboBox1.AddItem dosya   (bu sat&#305;r kald&#305;r&#305;ld&#305;)
   dosya = Dir
Loop
End Sub

 

[halit3]

birde bu dosyaya bak ama önce resimler dosyasının yerini belirlemen gerekiyor

 

[halit3]

birde buna bak

 

[ockucukay]

Selam

Tasarım moduna geçip biçimlendirin veya silmeyi deneyin...

Sub Auto_Open()
Set s1 = Sheets("1.OP")
yol = "C:\Deneme\" 'ActiveWorkbook.Path
'isim = ActiveWorkbook.Name
dosya = Dir(yol & "\*.jpg")
Do While dosya <> ""
    dosya = Left(dosya, Len(dosya) - 4)
'   s1.ComboBox1.AddItem dosya   (bu satır kaldırıldı)
   dosya = Dir
Loop
End Sub

hay allah razı olsun sizden, emeğinize sağlık çok iyi oldu. yalnız resim 1:1 ebadında geliyor, bu resmi image nesnesine göre uydurmak için ne yapmak lazım?

 

[Halit TÜRK]

Selam,

Zoom yapmasını istiyorsanız, 1.OP sayfasında yazdığınız kodu değiştiriniz..

Private Sub ComboBox1_Click()
Image1.Picture = LoadPicture("C:\Deneme\" & ComboBox1.Value & ".jpg")
'Image1.PictureSizeMode = fmPictureSizeModeClip
'Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub

Tırnak işaretli seçenekleri deneyerek hangisini isterseniz ayarlayabilirsiniz..

 

[ockucukay]

[ÇÖZÜLDÜ] İmage nesnesine resim getiremiyorum

Selam,

Zoom yapmasını istiyorsanız, 1.OP sayfasında yazdığınız kodu değiştiriniz..

Private Sub ComboBox1_Click()
Image1.Picture = LoadPicture("C:\Deneme\" & ComboBox1.Value & ".jpg")
'Image1.PictureSizeMode = fmPictureSizeModeClip
'Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub

Tırnak işaretli seçenekleri deneyerek hangisini isterseniz ayarlayabilirsiniz..

emeğinize sağlık çok güzel oldu.

 

[Halit TÜRK]

Rica ederim, iyi çalışmalar...