Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3266 / 13644 ツリー ←次へ | 前へ→

【63183】矢印を消す トキノハジメ 09/10/13(火) 17:25 質問[未読]
【63185】Re:矢印を消す kanabun 09/10/13(火) 18:34 発言[未読]
【63217】Re:矢印を消す トキノハジメ 09/10/15(木) 18:32 お礼[未読]

【63183】矢印を消す
質問  トキノハジメ  - 09/10/13(火) 17:25 -

引用なし
パスワード
     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 を使って見ましたが消えないので
宜しくお願いいたします。


【63185】Re:矢印を消す
発言  kanabun  - 09/10/13(火) 18:34 -

引用なし
パスワード
   ▼トキノハジメ さん:

>矢印を消す方法を教えてください。
>Clear を使って見ましたが消えないので

全部消してしまっていいのなら、

  ActiveSheet.Lines.Delete

では?

【63217】Re:矢印を消す
お礼  トキノハジメ  - 09/10/15(木) 18:32 -

引用なし
パスワード
   ▼kanabun さん:

kanabunさん 有難うございました。

>▼トキノハジメ さん:
>
>>矢印を消す方法を教えてください。
>>Clear を使って見ましたが消えないので
>
>全部消してしまっていいのなら、
>
>  ActiveSheet.Lines.Delete
>
>では?

3266 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free