Excelのinputboxでのエラーについて

質問

線を引く構文を作り動作はするのですが、inputboxでウインドウの「×」や「キャンセル」ボタンを押すとエラーになるのを回避したいのですが、判りません。ご教示お願いいたします。

Sub 赤太線引き()
Dim i As String
i = Application.InputBox("線を伸縮できます" + Chr(13) + "数値を増してください", "オプション", 1, Type:=1)
Dim T1 As Single, L1 As Single
Dim T2 As Single, L2 As Single
Dim myShp As Shape
With Range("ah61")
T1 = .Top
L1 = .Left
End With

With Range("cg60")
T2 = .Offset(1, 1).Top
L2 = .Offset(1, 1).Left

End With

ActiveSheet.Shapes.AddLine(L1 + i, T1, L2, T2).Select

With Selection.ShapeRange.Line
.Visible = msoTrue
.Style = msoLineSolid
.Weight = 15#
.ForeColor.SchemeColor = 10
Selection.ShapeRange.ZOrder msoSendToBack
End With
Range("bq56").Select
End Sub

VBAの素人ですが、×やキャンセルでは「i」が返せないのだと思います。よろしくお願い致します。

inputboxは関数でもメソッドでもどちらでもいいのですが。

回答No.1

keithin · ベストアンサー

突っ込みどころは多々ありますが、とりあえず

Sub 赤太線引き()
Dim i As String
i = Application.InputBox("線を伸縮できます" + Chr(13) + "数値を増してください", "オプション", 1, Type:=1)
if i = "False" then exit sub
　：
　以下いまのマクロのまま

のようにしてみましょう。

×やキャンセルで何が返ってくるかはヘルプに書いてありますが、問題のマクロで実際にiに何が入ってるのか、
msgbox i
などをマクロに追加して確認しながら進めてみるのもよい方法です。

お礼

とても助かりました。おかげさまで解決しました。

感謝申し上げます。