DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba,
Resim dosyası olarak değilde excel olarak yüklerseniz daha kolay yardım alabilirsiniz.
Gerekirse özel verileriniz varsa silip öyle yükleyin.
Sub Test()
For i = ActiveSheet.Shapes.Count To 1 Step -1
If ActiveSheet.Shapes(i).Name Like "Line *" Then ActiveSheet.Shapes(i).Delete
Next
End Sub
sayın yugkan denedim ben olmadı.Ctr+a secmiyor bile..Üstüste bir sürü ok var. O yüzden bir tanesini seçip silince sanki silinmiyormuş gibi görünüyor. Bir tanesini seçip CTRL+A yaparsanız hepsini seçer ve DEL ile silebilirsiniz. Gönderdiğiniz dosyada ben öyle yaptım. Deneyin olmazsa başka bir yol bakalım.
Ctlr+a ile hepsini seçmesi için önce mouse ile oklardan bir tanesine tıklaman gerekiyor.sayın yugkan denedim ben olmadı.Ctr+a secmiyor bile..
Yanı çözemedim ..
Makroyuda kullanamadım.