ChatGPTの回答の通りにやってみた。
【始点と終点の座標を入力する方式で直線を描画するVBAプログラム】
Sub DrawLine()
Dim StartX As Integer
Dim StartY As Integer
Dim EndX As Integer
Dim EndY As Integer
' 始点の座標の入力を求める
StartX = InputBox("始点のX座標を入力してください")
StartY = InputBox("始点のY座標を入力してください")
' 終点の座標の入力を求める
EndX = InputBox("終点のX座標を入力してください")
EndY = InputBox("終点のY座標を入力してください")
' 直線の描画
With ActiveSheet.Shapes.AddLine(StartX, StartY, EndX, EndY)
.Line.Weight = 2 ' 線の太さを指定
End With
End Sub
この通り、ExelのマクロからViualBasicEditorを開き、コピペで入力して実行してみた。
入力ボックスが現れ、始点のX座標の入力を求めてきたので100と入力。
次に同様に始点のY座標を入力するよう求められた。
以下略。
最終的に無事ワークシートに斜線が描かれた。
※ChatGPT Good Job！！！
