Sub set_graph_lob_fam() ActiveChart.Axes(xlValue).Select ActiveChart.Axes(xlValue).MinimumScale = 0 ActiveChart.Axes(xlValue).MaximumScale = 0.01 ActiveChart.Axes(xlValue).MajorUnit = 0.002 End Sub
Myプログラム保管庫
仕事＆プライベートで使ったプログラムロジックの保管庫
Sub set_graph_lob_fam() ActiveChart.Axes(xlValue).Select ActiveChart.Axes(xlValue).MinimumScale = 0 ActiveChart.Axes(xlValue).MaximumScale = 0.01 ActiveChart.Axes(xlValue).MajorUnit = 0.002 End Sub