Metin kutusu çizgilerini kaldıran buton..

[izomer]

Değerli Excel web ailesine selamlar..

Benim sorum bir şablon resmi arkaya koyduğum ve üzerinde
metin kutuları oluşturduğum bir dosyam var. metin kutularının çerçeveleri kalın..çünkü her seferinde kutucukların yerini kolay bulmak için çerçeveli yaptım..

benim form ile işim bittiğinde pdf ye kaydediyorum..

ancak çerçevelerde doğal olarak çıkıyor..

sayfadaki tüm çerçeveleri kaldıran bir makro butonu çok işime yarardı saygılarımla..

dosya ektedir..

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Makro1()
    
    Dim MetKut  As Shape
    
    For Each MetKut In ActiveSheet.Shapes
        If MetKut.Name Like "Tex*" Then MetKut.Line.Visible = msoFalse
    Next MetKut
    
End Sub

 

[YUSUF44]

Aşağıdaki kod sayfadaki tüm şekillerin kenarlıklarını siliyor:

Sub kenarlık()
For i = 1 To ActiveSheet.Shapes.Count
    ActiveSheet.Shapes(i).Select
    Selection.ShapeRange.Line.Visible = msoFalse
Next
[A1].select
End Sub

 

[izomer]

Maşallah 2 side çok güzel çalışıyor..Peki böylece print aldım işimi hallettim..bunun tam tersi metin kutularına tekrar kalınca bir çizgi vermek istesem ?? ..nitekim ctrl z işlemi geri almıyor .. tersininde kodunu verirseniz süper olur..Böylece arka plana isteiğim belgeyi faturayı v.s koyup istediğimiz işlemi yapabileceğimiz bi dosya ortaya çıkacak..herkese yardımcı olması dileğiyle..

 

[YUSUF44]

Kodu aşağıdaki şekilde kullanırsanız, kenarlık yoksa ekler, varsa siler: (Anahtar kelimeler msoFalse ve msoTrue)

Sub kenarlıkgizlegöster()
For i = 1 To ActiveSheet.Shapes.Count
    ActiveSheet.Shapes(i).Select
    If Selection.ShapeRange.Line.Visible = msoFalse Then
        Selection.ShapeRange.Line.Visible = msoTrue
    Else
        Selection.ShapeRange.Line.Visible = msoFalse
    End If
Next
[A1].Select
End Sub

 

[izomer]

Eyvallah Yusuf hocam toplu çözüm yapmışınız. Süper çalışıyor..Yardımcı olması amacıyla dosyanın kodlu halini eke koyuyorum , Başka arkadaşlarında faydalanması için. Excelden pratik fatura v.s basmak isteyenler bayağı faydalanacaktır.

yolunuz açık olsun değerli hocam.katkılarından dolayı necdet hocamada teşekkürler..

Saygılarımla...

 

[izomer]

Metin kutularının içine temizleme

hocam s.a tekrar..

Yeni konu açmak istemedim..

metin kutularının içindekileri temizlemek istesem ona uygun makro butonu kodunu benle paylaşırmısınız..

Saygılarımla..

 

[YUSUF44]

Aşağıdaki konuyu inceleyiniz:

http://www.excel.web.tr/f57/metin-kutularyny-temizlemek-t153796.html