Ｐａｇｅ 901 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼グラフの目盛りを動的に設定したい ＭＩＴ 03/3/18(火) 13:57 ┗MinorUnit プロパティを計算で こう 03/3/20(木) 1:01 ┗Re:MinorUnit プロパティを計算で ＭＩＴ 03/3/20(木) 12:52 ─────────────────────────────────────── ■題名 ： グラフの目盛りを動的に設定したい ■名前 ： ＭＩＴ ■日付 ： 03/3/18(火) 13:57 -------------------------------------------------------------------------
| ＨＴＭＬからVBScriptでデータベースから抽出したデータをＥｘｃｅｌを起動して貼付け、第2軸有りの折れ線グラフを表示しています。 この時、データによって、目盛りを自動ではなく例えば最大と最小の差の６等分にしたいとか思っているのですが、値を設定するプロパティ（？）が判らず困っています。 ご存知の方がいらっしゃいましたら教えていただきたいのですがよろしくお願い致します。（出来ると勝手に思っているのですが！） 以上 |
| ＭＩＴさん こんにちわ。 >この時、データによって、目盛りを自動ではなく例えば最大と最小の差の６等分にしたいとか思っているのですが、値を設定するプロパティ（？）が判らず困っています。 ６等分は指定できませんが，最大と最小の差の６等分を計算して， MinorUnit プロパティを設定してあげれば可能です。 Sheet1のB2:G2に対象となる値が格納されているとし， グラフ名称は「グラフ 1」としています。 Set myRange = Worksheets("Sheet1").Range("B2:G2") wMin = Application.WorksheetFunction.Min(myRange) wMax = Application.WorksheetFunction.Max(myRange) wItv = (wMax - wMin) / 6 ActiveSheet.ChartObjects("グラフ 1").Select With ActiveChart.Axes(xlValue) .MinimumScale = wMin .MaximumScale = wMax .MinorUnit = wItv End With (注)最大値と最小値の組み合わせでは６等分以外になったりするパターンが あるかも知れません。こちらでは未確認です。 また，目盛値の表示形式などを変更する必要があります。 |
| ご解答の様に６等分の６を設定すると言うことでは無く６等分に成るような目盛り値を求めて設定できればと思っていましたので十分です。 早速、やって見ます。 以上、有難う御座いました。 |