Excel2000 VBA セルの数値を右側に棒グラフにして表示する実験

Excel2000 VBA  セルの数値を右側に棒グラフにして表示する実験

マクロの記録で四角形を描き色をつける、四角形を選択して消す、動作を記録。
記録したマクロを元にコードを書いた。

 Sub セル値でバーグラフ()
'
'セルD2：D9の数値を調べ、右側にバーグラフを表示する
'ActiveSheet.Shapes.AddShape(msoShapeRectangle, 左からの位置,TOPからの位置, 幅, 高さ).Select
'
Dim top, leftP, i, x As Long
'
x = 10
leftP = 196.5
For top = 10 To 100 Step 12
x = Cells(2 + i, "D")
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, leftP, top + 4, x, 8).Select
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    i = i + 1
Next top
Range("D10").Select
End Sub

Sub Rectan_delete()
'
'Shapesを消す
Dim i As Long
Dim recNO As String
On Error Resume Next
For i = 1 To 200
    recNO = "Rectangle " & i
    ActiveSheet.Shapes(recNO).Select
    Selection.Delete
    Selection.Clear
Next i

End Sub

 

タグ：Excel2000 VBA