Döngü ile resimleri görünür yapamıyorum

[aloneboy03]

Cells(5, 3) = sonuc ' buradan bir değer alıyorum

For i = 1 To Cells(5, 3) o değer kadar döndürüyorum


Image(i).Visible = True ' çalışmıyor

Next i

Amaç: örneğin hücredeki değer 12, döngü 12 ye kadar dönecek ve image1,image2...image12' ye kadar olan tüm resimleri görünür yapacak

Lütfen acil

 

[Levent Menteşoğlu]

İmage nesneleri userform üzerindeyse;

controls("image" & i).visible=true

Sayfa üzerindeyse aşağıdaki gibi bir tanımlama yapmanız gerekir.

Sheets("sayfaadı").Shapes("Image" & i).OLEFormat.Object.Object.visible=true

 

[aloneboy03]

sayfa1 in içine vb kodu olarak yazıyorum butona ikisinide denedim olmadı

 

[Levent Menteşoğlu]

En azından nesnelerin nerede olduğunu belirtin. Sayfa mı yoksa userform üzerindemi? Ayrıca yukarıda verdiğim satırları, ilk mesajınızdaki döngünün içinde ilgili satır yerine kopyalayacaksınız.

 

[aloneboy03]

Allah razı olsun

Sayfa1.Shapes("Image" & i).OLEFormat.Object.Visible = True

yaptım çalıştı