| |
▼アーサー さん：
こんばんは。
>ライトクリックのイベントを使って、始めに右クリックしたセルと次に右クリックしたセルの間に直線が出来るようなコードを知りたいのですが。ちなみに、その直線は縦、斜めに引くことはありません。横のみです。
上記の直線を引きたいシートのシートモジュールに
'==============================================================
Option Explicit
Private f_rng As Range
'======================================================================
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim l_rng As Range
If Target.Count <> 1 Then
MsgBox "単一セルに限ります"
Exit Sub
End If
If f_rng Is Nothing Then
Set f_rng = Target
Application.StatusBar = "直線の終点を右クリックしてください"
Else
If f_rng.Left > Target.Left Then
Set l_rng = f_rng
Set f_rng = Target
Else
Set l_rng = Target
End If
Me.Lines.Add f_rng.Left + f_rng.Width, f_rng.Top, _
l_rng.Left, l_rng.Top
Set f_rng = Nothing
Application.StatusBar = False
End If
Cancel = True
End Sub
として、試してみてください。
|
|
ichinose
- 07/7/5(木) 21:33 -
