Klasör içerisinde resmi olmayanlar boş görünsün

[cimbom05]

Sayın janjelvan
İlginize ve yardımlarınıza çok teşekkür ederim. Ancak gönderdiğiniz kod ve dosyada da aynı sorun oluştu bende. Sorunum hücreyi seçtiğimde image penceresi içerisi gri olarak görünüyor. Ancak aynı dosya başka pc lerde çalışıyor. Sorunla ilgili sayfanın görüntüsü ve preferences ayarına ilişkin görüntüleri ekliyorum. Çok teşekkür ederim.

 

[cevatyildiz]

hocam o koda ait bir resim olmadıgında kod kırılıyor aynı zamanda yanlıslıkla iki kodu birden seçince yine kırılıyor kontrol edebilir misiniz?

 

[cimbom05]

İyi günler cevatyildiz
Kod ile ilgli ir problem olduğunu sanmıyorum ama uyarınız nedeni ile tekrar kontrol ettim. Bu dosyayı ağda kullanacağım. Kullanacağım ağda 15 pc var makro güvenlik ayarları, preferences ayarları hepsini tamamladıktan sonra 12 pc de bu dosya çalışıyor. Diğer 3 pc de çalışmıyor. Bu nedenle dosya veya kodda bir hata olduğunu düşünmüyorum Muhtemelen bu 3 pc deki ecel ayarları ile ilgili olabilir diye düşünüyorum. Çalışan pc lerdeki ofis ayarları ile çalışmayan pc lerdeki excel ayarlarını tekrar tekrar tekrar kontrol ettim. Ancak bir sonuç alamadım. İlginize teşekkür ederim.

 

[cimbom05]

İyi günler arkadaşlar,
Excel sayfasında image nesnesini göremediğimden dolayı, Ofis prog. kaldırdım ve yeniden kurdum ama değişen bir şey olmadı. Ayrıca image nesnelerinin göründüğü bir başka pc'den ofis ayarlarını kaydederek kendi pc'me aktardım yine çalışmadı. Tahmin ediyorum çok basit bir hata çıkacak ama bir türlü bulamıyorum. Bu konuda görüşlerinizi rica ediyorum.

Not: İmage nesnesine ekleyeceğim resimler bmp olduğunda kod çalışıyor. Ancak jpg olduğunda resimler görünmüyor.

 

[janveljan]

Şimdi arkadaşlar, bu konu üzerinde çalışırken benim karşılaştığım problemleri ben yazayım siz bunlarla ilgili bir kontrol yapın.

1. Dosya adı ile ilgili problemler; ya dosya yolu yanlış yada adı yanlış olabilir, böyle bir resim dosyası bilgisayarda olmayabilir, zaten böyle bir durumda görüntü vermeyecektir.

2. Uzantı ile ilgili problemler; ben çalışırken resim.jpg şeklindeki bir dosyayı açmadı sebebi ise, kodlarda uzantı .JPG olarak geçiyor yani büyük bu nedenle dosya isimleri uyuşmuyor ve açmıyor.

3. İmage nesnesini koymadan çalıştırmaya çalışınca çalışmaz, hataları yoksay şeklinde de bir kod olduğu için hata da vermiyor, siz de ne olduğunu anlamıyor olabilirsiniz,
On Error Resume Next satırını silerek deneyin.
Kodlar zaten image nesnesini gizlediği için var olan image nesnesini de göremiyor olabilirsiniz.

4. Resim dosyalarının yazıldığı yer ile ilgili problemler; kodun başlarında "If Intersect" diye başlayan satırda gerekli düzenlemenin yazpılması lazım.

Arkadaşlar istenen sonuçları alamadıkları zaman birde bu konuları kontrol etsinler

 

[cimbom05]

Şimdi arkadaşlar, bu konu üzerinde çalışırken benim karşılaştığım problemleri ben yazayım siz bunlarla ilgili bir kontrol yapın.

1. Dosya adı ile ilgili problemler; ya dosya yolu yanlış yada adı yanlış olabilir, böyle bir resim dosyası bilgisayarda olmayabilir, zaten böyle bir durumda görüntü vermeyecektir.

2. Uzantı ile ilgili problemler; ben çalışırken resim.jpg şeklindeki bir dosyayı açmadı sebebi ise, kodlarda uzantı .JPG olarak geçiyor yani büyük bu nedenle dosya isimleri uyuşmuyor ve açmıyor.

3. İmage nesnesini koymadan çalıştırmaya çalışınca çalışmaz, hataları yoksay şeklinde de bir kod olduğu için hata da vermiyor, siz de ne olduğunu anlamıyor olabilirsiniz,
On Error Resume Next satırını silerek deneyin.
Kodlar zaten image nesnesini gizlediği için var olan image nesnesini de göremiyor olabilirsiniz.

4. Resim dosyalarının yazıldığı yer ile ilgili problemler; kodun başlarında "If Intersect" diye başlayan satırda gerekli düzenlemenin yazpılması lazım.

Arkadaşlar istenen sonuçları alamadıkları zaman birde bu konuları kontrol etsinler

İyi akşamlar janjelvan
Konu ile ilgili genel bilgi için çok teşekkür ederim. Aynı resim aynı kodun yazıldığı aynı dosya ile farklı bilgisayarda çalışıyor. Sorun kodda olsa sizin belirttiğiniz konuların direkt olarak etkileri olabilir. Ben sorunumu iletirken kodla ilgili bir hatanın olmasından bahsetmedim. Pc yada pc'de yükjlü olan ofis 2003 programı ile ilgili bir sorundan kaynaklandığını anlatmaya çalıştım.

 

[tahsinanarat]

sn. cimbom05, bahsettiğiniz dosyayı olduğu ekleyebilirmisiniz, bende merak ettim.

 

[cimbom05]

İyi akşamlar sayın tahsinanarat;
Anlatmaya çalıştığım çalışmaya ait dosya bu konu da 19.mesajdaki dosyadır. Dosyada problem yok. Ancak farklı bir pc'de image nesnesinin içerisine görüntü gelmiyor. İmage nesnesinin içerisi gri bir arkaplana sahip olarak kalıyor. Bununla ilgili 21. mesaja görüntü ekledim. Daha sonra denemelerim sırasında dosya bmp olduğunda tüm pc'lerde çalışıyor. Tahminimce bu dosyanın çalışmadığı pc'de Excelin görüntüleyebildiği dosyalardan jpg tanımlamasında bir hata oluştu. Bu nedele yarın bu pc'deki Ofis yazılımını başka bir CD'den yeniden kurarak deneyeceğim. Açıkçası çokta umutlu değilim. Bu dosyayı bmp dosyaları ile de kullanabilirim aslında. Ama her sorunla karşılaştığımızda yolumuzu değiştirerek bir ilerleme kaydedemeyeceğimizi düşünüyorum. Daha önce hiç ihtiyacım olmayan şeylere burada arkadaşların sorunlarını/isteklerini duyunca daha farklı bakmaya başladım. Herkesin de böyle baktığına inanıyorum. Burayı bir okul olarak görüyorum.

 

[tahsinanarat]

Ekteki dosyayı bir denermisiniz

a sutununa yazılı resim isemleri, hücre içerisine girip entera bastığınızda sağ tarafta resim görünecek, bakalım bu dosyada da resim göstermeyecekmi, gösterecekmi.

 

[cimbom05]

İyi günler,
Söz konusu sorun format attıktan sonra giderildi. İlginize teşekkürler.

 

[tahsinanarat]

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [B:B]) Is Nothing Then GoTo son
If Target.Address = "$B$1" Then Exit Sub
If Target.Offset(0, -1).Value & ".JPG" <> "" Then
If UCase(Right(Target.Offset(0, -1).Value & ".JPG", 3)) = "JPG" Or UCase(Right(Target.Offset(0, -1).Value & ".BMP", 3)) = "BMP" Then
Image1.Top = Target.Offset(0, 1).Top
Image1.Left = Target.Offset(0, 1).Left
If Not Image1.Visible Then Image1.Visible = True
If Dir(Cells(1, 1) & Target.Offset(0, -1).Value & ".JPG") <> "" Then
Image1.Picture = LoadPicture(Cells(1, 1) & Target.Offset(0, -1).Value & ".JPG")
Image1.AutoSize = True
Else
Image1.Picture = Empty
Image1.Visible = False
Image1.Picture = Nothing
End If
Else
GoTo son
End If
End If
Exit Sub
son:
Image1.Visible = False
Image1.Picture = Nothing
End Sub

Yukarıdaki kod içerisinde birde bulunduğumuz satırın renkli olmasını istiyorum, ancak renk ile ilgili kodlar girildiğinde hata mesajı alıyorum, ayrı ayrı her ikisi de çalışıyor.


Renk için kodlar

Private Sub Worksheet_SelectionChange(ByVal target As Range)
Range("a1:z65536").Interior.ColorIndex = xlNone
k = ActiveCell.Address
q = Mid(k, 3, 6)
With Range("a" & q, "z" & q).Interior
.ColorIndex = 44
.Pattern = xlSolid
End With
End Sub

 

[tahsinanarat]

satır renklenmesi ile ilgili başka bir kod
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0 'Turn off previous use
If Cells(1, 1) = "." Then Exit Sub
Target.EntireRow.Interior.ColorIndex = 38
End Sub

 

[tahsinanarat]

Belki uzman arkadaşlar görmemiştir diye konuyu tekrar soruyorum, yardımcı olacak arkadaşlarıma şimdiden teşekkürler. Saygılar.