?前言
通過前面三章的講解,估計大家已經(jīng)掌握了圖形的基本使用方法,可以靈活的控制圖形的顯示位置了,以及顏色了,但是當日期發(fā)生改變,需要重新運行一下程序時,線條或圖形不會自動刪除,所以每運行一次,就會增加一次,最后工作表了堆積了大量的無用圖形.所以大家一定要記住,在運行程序前一定要將繪圖區(qū)域歸零，刪除繪圖區(qū)所有的圖形，,然后再運行宏命令。
?歸零大法
刪掉圖形的方法:
1\手動選擇,按住CTRL鍵,一個個點擊圖形進行選擇,這不是我要講的
2\F5,定位條件,對象,確定后,所有的對象元素均被選中,點擊DEL全部刪除吭产，有可能把不想刪除的刪掉疏日。
3\使用鼠標,框選對象,可以將制定某個區(qū)域的對象刪除,總感覺這個按鈕好難找,這個圖標的位置在開始\查找與選擇下面,如下圖所示:
4\最后,還是回到VBA這里,因為上述方法都存在致命缺陷胖笛，不夠自動化。
如下圖所示,我只想刪除F2:J4里面的圖形,其他的圖形不變.
打開vba編輯器,輸入系列代碼:
Sub?定位刪除圖形()
For Each p In ActiveSheet.Shapes
If Not Application.Intersect(p.TopLeftCell,Range("F2:J4")) Is Nothing Then
p.Delete
End If
Next
End Sub
這個程序是將活動工作表中的每個圖形,逐一判斷該圖形的左上角與單元格區(qū)域Range("F2:J4"))是否有交集,如果有,則刪除此圖形,如果沒有交集則放你一馬.
因此可以在畫線程序開始時滓技，調(diào)用此過程,就不用每次手動刪除了.以下是完整程序：包含兩個過程“drawlineR1”及“定位刪除圖形”东涡，運行時把鼠標放在drawlineR1過程中冯吓，按下F5,程序首先調(diào)用“定位刪除圖形”子過程倘待，然后再重新繪制圖形。
Sub drawlineR1()
定位刪除圖形
For I = 2 To 4
? ? Start_x = Cells(I,Cells(I, 4)).Left + (Day(Cells(I, 2)) - 1) / Day(WorksheetFunction.EoMonth(Cells(I,2), 0)) * Cells(I, Cells(I, 4)).Width
??? Start_y = Cells(I,Cells(I, 4)).Top + Rows(I).Height / 2
??? Finish_x =Cells(I, Cells(I, 5)).Left + Day(Cells(I, 3)) /Day(WorksheetFunction.EoMonth(Cells(I, 3), 0)) * Cells(I, Cells(I, 5)).Width
??? Finish_y = Start_y
? ?ActiveSheet.Shapes.AddLine(Start_x, Start_y, Finish_x, Finish_y).Select
? ? ? ? WithSelection.ShapeRange.Line
???????? .Weight = 3
???????????.ForeColor.RGB = vbRed
???????? End With
Next
End Sub
Sub?定位刪除圖形()
For Each p In ActiveSheet.Shapes
If Not Application.Intersect(p.TopLeftCell,Range("F2:J4")) Is Nothing Then
p.Delete
End If
Next
End Sub
?按鈕關(guān)聯(lián)
最后,為了更方便的更新程序,可以在工作表中插入一個按鈕,關(guān)聯(lián)到vba即可
在開發(fā)工具中找到插入表單控件\按鈕
在彈出的對話框中選擇要關(guān)聯(lián)的程序名稱,確定即可.
放置按鈕在合適的位置,右鍵編輯文字,命名為”更新”
當日期發(fā)生變更時,直接點擊此按鈕就可以啦!
?總結(jié)
至此,線表計劃的內(nèi)容已全部講完了,同學(xué)們能掌握多少,就靠自己啦,俗話說:師傅領(lǐng)進門,修行靠個人.要想孰能生巧,必須多想多練,便無他法桑谍。有問題延柠，歡迎在下方評論區(qū)留言祸挪！也歡迎各位轉(zhuǎn)發(fā)锣披、分享、點贊贿条、打賞雹仿，我將持續(xù)為大家分享我的知識和經(jīng)驗，希望對大家有所幫助整以。
