|
▼ABC さん:
>...でもLineを引くところからマクロ化すればいいかも
一応書いときますね
Option Explicit
Dim flg As Boolean
Sub test1()
CommandBars.FindControl(ID:=130).Execute
flg = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim L As Single
Dim T As Single
If flg Then
With ActiveSheet
With .Lines(.Lines.Count)
L = .Left + .Width / 2
T = .Top
.Height = 0
End With
With .TextBoxes.Add(L - 8, T, 16, 16)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End With
flg = False
End If
End Sub
標準モジュールではなくて、該当シートタブ右クリック[コードの表示]で出てくる
シートモジュールに上記コードを置いて、Sub test1()を実行すると
直線を引く用の + カーソルになります。
直線引き終えたら、どこでも良いのでセル選択すればOK。
|
|