始点と終点の座標を入力する方式で直線を描画するVBAプログラムを実行してみた結果

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！！！