|
A B C D
1 5 4
2 3 3
3 4 6
4 8 5
5 10 8
6 9 7
7 7 10
8 2 1
9 1 2
10 6 9
Private Sub CommandButton1_Click()
Dim c As Range
Dim i As Long
Dim x1 As Single
Dim x2 As Single
Dim y1 As Single
Dim y2 As Single
For Each c In Range("A1:A10")
For i = 1 To 10
If InStr(Cells(i, 4.Value, c.Value) > 0 Then
x1 = .Offset(0, 1).Left
y1 = c.Top + (c.Hight / 2)
x2 = Cells(i, 4).Left
y2 = Cells(i, 4).Top + (Cells(i, 4).Hight / 2)
ActiveSheet.Shapes.Add.Line.EndArrowheadStyle = _
msoArrowheadTriangle
End If
Next i
Next c
ActiveCell.Activate
End Sub
上記の様に A から D に矢印は引けたのですが
矢印を消す方法を教えてください。
Clear を使って見ましたが消えないので
宜しくお願いいたします。
|
|