|
▼ABC さん:
こんにちは。
>右クリックイベントを用いて、1つのセル内を2度右クリックすることによって
これは必須条件ですか?
右クリックではなくて、左DoubleClickでよければ
'該当シートのシートモジュールに。
Option Explicit
Dim flg As Boolean
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
CommandBars.FindControl(ID:=130).Execute
flg = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If flg Then
Call LINETXT(Me.Lines(Me.Lines.Count))
flg = False
End If
End Sub
Private Sub LINETXT(ByRef LX As Line)
Dim Lp As Single
Dim Tp As Single
With LX
Lp = .Left + .Width / 2
Tp = .Top
.Height = 0
End With
With Me.TextBoxes.Add(Lp - 8, Tp, 16, 16)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End Sub
DoubleClickして線を引いたあと、別セル選択した時にTextBox追加します。
(同一セル内も複数セルに渡る場合も同じ動きです)
|
|