※ 引述《yenwang (愛情的流浪漢)》之銘言：
: 軟體:excel
: 版本:2007
: 因為Excel檔案裡面畫了很多的線條
: 有斜線、虛線、紅線、綠線等
: 我已經知道可以利用
: ActiveSheet.Lines.Delete
: 快速的將全部的線條刪除
: 但是我這邊有個問題無法解決
: 就是如何在一開始設定
: 某個線條樣式是不刪除的
: 譬如全部的線條中
: 我要保留紅色的虛線
: 其他的要全部刪除
: 這個條件我不清楚怎麼寫在VBA中
: 想請問版上的高手清不清楚
: 可以告知我
: 謝謝
Sub test()
Dim myShape As Shape
For Each myShape In ActiveSheet.Shapes '列舉作用中工作表中的圖形物件
With myShape
.Select
If .Type = msoLine And '如果物件為Line
.Line.ForeColor.RGB = RGB(255, 0, 0) And '且顏色為紅色
.Line.DashStyle = msoLineDash Then '且折線格式為LineDash
'則什麼都不做....XDDDD
Else
.Delete '否則刪除該物件....
End If
End With
Next
End Sub
--
請先試用吧....XD
--
親愛的朋友
你今天過的如何呢??
有沒有開開心心快快樂樂的阿
無論發生什麼事希望你每天都能笑的很開心喔
笑一個吧
^__________________________________________________^
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.204.136.186