Excel １変数データを数直線で表したい

エクセルＶＢＡでお遊び程度のものを。 Ａ列にＡ１：Ａ５に１－１０００の数値を入れます。 そして実行します。 横数直線上に、データの大小によりその位置に、短い縦直線を引きます。目的の合いますでしょうか。 Sub test01() Worksheets("sheet1").DrawingObjects.Delete ActiveSheet.Shapes.AddLine(100, 54, 600, 54).Select For i = 1 To 5 x = (600 - 100) * Cells(i, "A") / 1000 ActiveSheet.Shapes.AddLine(100 + x, 50#, 100 + x, 58).Select Next i End Sub 100,600,54,50,58などを色々変えてやって見てください。 ５４の部分２箇所は同時に同値に変えないと水平線になり