Sayfadaki WordArt ları toplu silmek

Katılım
31 Ekim 2005
Mesajlar
5
ActiveSheet.Shapes("WordArt 3").Select
Selection.Delete

sayfada birçok wordArt bulunuyor. İstediğim zaman hepsini birden silmek için ne yapabilirim. Hata vermesini de engellersek daha iyi olur.
şimdiden teşekkürler
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Kod:
Sub Test()
    Dim WdArt As Shape
    For Each WdArt In ActiveSheet.Shapes
        If LCase(Left(WdArt.Name, 7)) = "wordart" Then WdArt.Delete
    Next
End Sub
 
Üst