线表计划大结局-归零心态
前言
通过前面三章的讲解,估计大家已经掌握了图形的基本使用方法,可以灵活的控制图形的显示位置了,以及颜色了,但是当日期发生改变,需要重新运行一下程序时,线条或图形不会自动删除,所以每运行一次,就会增加一次,最后工作表了堆积了大量的无用图形.所以大家一定要记住,在运行程序前一定要将绘图区域归零，删除绘图区所有的图形，,然后再运行宏命令。
归零大法
删掉图形的方法:
1\手动选择,按住CTRL键,一个个点击图形进行选择,这不是我要讲的
2\F5,定位条件,对象,确定后,所有的对象元素均被选中,点击DEL全部删除，有可能把不想删除的删掉。
3\使用鼠标,框选对象,可以将制定某个区域的对象删除,总感觉这个按钮好难找,这个图标的位置在开始\查找与选择下面,如下图所示:
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
这个程序是将活动工作表中的每个图形,逐一判断该图形的左上角与单元格区域Range("F2:J4"))是否有交集,如果有,则删除此图形,如果没有交集则放你一马.
因此可以在画线程序开始时，调用此过程,就不用每次手动删除了.以下是完整程序：包含两个过程“drawlineR1”及“定位删除图形”，运行时把鼠标放在drawlineR1过程中，按下F5,程序首先调用“定位删除图形”子过程，然后再重新绘制图形。
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
按钮关联
最后,为了更方便的更新程序,可以在工作表中插入一个按钮,关联到vba即可
在开发工具中找到插入表单控件\按钮
在弹出的对话框中选择要关联的程序名称,确定即可.
放置按钮在合适的位置,右键编辑文字,命名为”更新”
当日期发生变更时,直接点击此按钮就可以啦!