《VBA・CSS》入門実用Tips集 ＋α
メニュー一覧 HOME 　エクセルVBA 　　●応用● 　　5-5 　wwwcount改造 　CSS(ｽﾀｲﾙｼｰﾄ)基本 　BiglobeﾌﾞﾛｸﾞCSS 　CSSいろいろﾘﾌｧﾚﾝｽ 　HTML基本 　HTML簡易ﾘﾌｧﾚﾝｽ	Home > エクセルVBA > 5-5　応用 ● 複数グラフのX軸範囲を一度に統一設定する 一つのシートにたくさんのグラフを作ったときに、全グラフのX軸範囲を 一発で合わせることが出来たら効率が良いと思って作ったマクロの一部です。 グラフ名を配列に入れて、FORループでグラフの数だけ実行しています。 〔ソースリスト〕 Option Explicit Private Sub CommandButton1_Click() 　　Dim Graph_name As Variant　　　　　'グラフ名格納用 　　Dim i As Integer　　　　　　　　　　　　　'Forループ加算用 　　Dim G_max As Long　　　　　　　　　　　'グラフ名の設定個数取得用 　　'グラフ名を設定する 　　Graph_name = Array( _ 　　　　　　　　"グラフ 1", "グラフ 2", "グラフ 3", _ 　　　　　　　　"グラフ 4", "グラフ 5", "グラフ 6", _ 　　　　　　　　"グラフ 7", "グラフ 8", "グラフ 9") 　　'グラフ名を設定した個数を取得 　　G_max = UBound(Graph_name) 　　'まずグラフのあるシートを選択する 　　Sheets("Sheet2").Select 　　'グラフの数だけループさせる 　　For i = 0 To G_max 　　　　ActiveSheet.ChartObjects(Graph_name(i)).Activate　　'グラフを選択 　　　　ActiveChart.ChartArea.Select　　　　　　　　　　　　　　　　　'チャートエリア選択 　　　　ActiveChart.Axes(xlCategory).MinimumScale = 50　　　'X軸の最小値設定 　　　　ActiveChart.Axes(xlCategory).MaximumScale = 950　　'X軸の最大値設定 　　Next i End Sub 　　　　　　　　　　　'Array　はバリアント変数　Graph_name　に配列を代入しています 　　　　　　　　　　　'Ubound　は　配列の最大値を長整数型 (Long) の値で返しています ○グラフ名の確認方法 図形選択の矢印をオンにしてグラフを選ぶと、名前ボックスにグラフの名前が表示されます。 ○サンプルファイルダウンロード○(準備中) サンプルではシートでX軸範囲の最小値、最大値を設定できるようにしてみました。  このページのトップへ