Düz Şekil Çiziminde Boyamada Hatası

[excellkurdu]

Arkadaşlar Merhaba
Hücre değerlerine göre Şekil boyama yapan kod la çalışıyorum. Bugün fark ettim. Sayfa ya Düz Çizgi eklediğimde "Belirlenen Değer Aralık Dışı" ikazı aldım.
Bu çok sayıdaki düz çizgileri makro da nasıl göz ardı edebilirim.
Alternatif: http://s3.dosya.tc/server9/aq2j7w/Plan_Renklendirme.xls.html
Saygılarımla

 

[Ömer BARAN]

Merhaba.

Renklendirme ve renk kaldırma kod'larında (her iki makro için ayrı ayrı)
yer alan For sekil = 1 To sayı satırından sonra aşağıdaki satırı ekleyerek dener misiniz?
.

[FONT="Arial Narrow"]                If Right(sayfa.Shapes.Range(Array(sekil)).Name, 9) = "Bağlayıcı" [COLOR="Blue"]Or _
                Left(sayfa.Shapes.Range(Array(sekil)).Name, 9) = "AutoShape"[/COLOR] Then GoTo 10[/FONT]

 

[excellkurdu]

Ömer Hocam excel dosyasından yeniden şekillerde çalıştı. Fakat Word ten kopya ladığım şekillerde hata verdi. Yani word içinde daha önceden olan çizimlerimi excele aktardığımda Şekil ekleden eklediğim çizgilede hata aynı Hatayı verdi.
Word den kopya yaptığım dosya ekte. Acaba şeklin yapısında mı oynama oldu?

 

[Ömer BARAN]

Çizgiler için ne yapmak istediğinizi belirtmediğiniz için; cevabımda o şekli yok sağlamaya yönelik kod satırı önermiştim.

Word'den aldığınız şeklin adını (şekil seçildiğinde formül çubuğunun en solunda görebilirsiniz) tespit edin ve bu AD'dan hareketle bir şeyler yapılabilir.

Son örnek belgenizde eklediğiniz yeni şekillerin (çizgiler) adını ben AutoShape olarak görüyorum (siz de kontrol edin).

Önceki cevabımı buna göre yeniden düzenledim. Sayfayı yenileyerek kontrol edin.
.

 

[excellkurdu]

Çizgiler için ne yapmak istediğinizi belirtmediğiniz için; cevabımda o şekli yok sağlamaya yönelik kod satırı önermiştim.

Word'den aldığınız şeklin adını (şekil seçildiğinde formül çubuğunun en solunda görebilirsiniz) tespit edin ve bu AD'dan hareketle bir şeyler yapılabilir.

Son örnek belgenizde eklediğiniz yeni şekillerin (çizgiler) adını ben AutoShape olarak görüyorum (siz de kontrol edin).

Önceki cevabımı buna göre yeniden düzenledim. Sayfayı yenileyerek kontrol edin.
.

Hocam Çok teşekkür ederim. Çalıştı. En güzeli de bu açıklaman benim için süper oldu. Gruplar ve bunun gibi sorunlarda çıkacaktı karşıma onlarıda bu yanıtınla çözmüş oldum. Sağolun.

 

[Ömer BARAN]

Estağfurullah.
Trabzon'a selamlar, kolay gelsin.
Bu belgeyi çok önceden hatırlıyorum sanki, sanırım katkımın olduğu bir belge söz konusu olan.
.

 

[excellkurdu]

Estağfurullah.
Trabzon'a selamlar, kolay gelsin.
Bu belgeyi çok önceden hatırlıyorum sanki, sanırım katkımın olduğu bir belge söz konusu olan.
.

Aynen Hocam, Bunun üzerinde sizleri çok yordum. Hakkınızı helal edin. Altın üyelik bu yüzden. Gerekirse 5 yıldız altına da çevirebiliriz
Bizdende sizlere saygı ve selamlar