【VBA】ヒストグラムの作成

質問

マクロ初心者です。
ヒストグラムの作成を行いたいのですが、マクロの記録で下記のマクロが完成し、グラフの作成自体は行えています。

↓作成済みのマクロ
****************************************************************
Sub Macro4()
'
' Macro4 Macro
'

'
Range("E5:E500").Select
ActiveSheet.Shapes.AddChart2(366, xlHistogram).Select
ActiveChart.Axes(xlCategory).Select
ActiveChart.ChartGroups(1).BinsType = xlBinsTypeBinSize
ActiveChart.ChartGroups(1).BinWidthValue = 5
ActiveChart.ChartGroups(1).BinsOverflowEnabled = True
ActiveChart.ChartGroups(1).BinsOverflowValue = 20
ActiveChart.ChartGroups(1).BinsUnderflowEnabled = True
ActiveChart.ChartGroups(1).BinsUnderflowValue = 100

End Sub

*******************************************************************

①ピンの幅を”K１”の値を自動設定
②ピンのオーバーフローを”J1”の値を設定
③ピンのアンダーフローを”I1”の値を設定
④グラフの名前を”H1”の値を設定

マクロに精通していないため質問自体に誤りがありましたら申し訳ありません。
お手数ですがご回答宜しくお願い致します。

回答No.1

kkkkkm

以下のように変更してみてはいかがでしょう。

①ピンの幅を”K１”の値を自動設定
> ActiveChart.ChartGroups(1).BinWidthValue = 5
を
ActiveChart.ChartGroups(1).BinWidthValue = Range("K1").Value

②ピンのオーバーフローを”J1”の値を設定
> ActiveChart.ChartGroups(1).BinsOverflowValue = 20
を
ActiveChart.ChartGroups(1).BinsOverflowValue = Range("J1").Value

③ピンのアンダーフローを”I1”の値を設定
> ActiveChart.ChartGroups(1).BinsUnderflowValue = 100
を
ActiveChart.ChartGroups(1).BinsUnderflowValue = Range("I1").Value

④グラフの名前を”H1”の値を設定
ActiveChart.ChartTitle.Text = Range("H1").Value