| |
Ned さん、再びありがとうございます。
50064に右ｸﾘｯｸｲﾍﾞﾝﾄで直線を引くｺｰﾄﾞの説明を見つけました。自分としては是非そのｺｰﾄﾞを参考にして、直線は下記のｺｰﾄﾞを使って作成。そして、最初の質問にある、その引いた直線のほぼ中央の真下にﾃｷｽﾄﾎﾞｯｸｽを作成する、をNedさんから回答いただいたｺｰﾄﾞと併せて目的を達成させたいのですがそれがまるでわかりません。なんとしても実現させたいと思っています。よろしくお願いします。
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
With Me.Lines.Add(f_rng.Left + f_rng.Width, f_rng.Top, _
l_rng.Left, l_rng.Top)
.ShapeRange.Line.Weight = 0.5
End With
> Set f_rng = Nothing
> Application.StatusBar = False
> End If
> Cancel = True
>End Sub
|
|
ABC
- 07/7/24(火) 19:59 -
