Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10397 / 13646 ツリー ←次へ | 前へ→

【21926】図形の制御 まつ君 05/2/3(木) 22:07 質問[未読]
【21928】Re:図形の制御 りすりす 05/2/3(木) 23:29 回答[未読]
【21929】Re:図形の制御 まつ君 05/2/3(木) 23:41 質問[未読]
【22111】Re:図形の制御 まつ君 05/2/8(火) 23:16 質問[未読]

【21926】図形の制御
質問  まつ君 E-MAIL  - 05/2/3(木) 22:07 -

引用なし
パスワード
   横棒グラフでは折れ線を入れることが出来ないため、直線を使って
値を表示させたいと思います。これは目標値になる1本の直線で、A1セルの
値が50であれはグラフ目盛り50の位置に移動する。またグラフが拡大
されれば追従して長くなるようにしたいのですが、どうすればよいでしょうか
ご教授ください。

【21928】Re:図形の制御
回答  りすりす  - 05/2/3(木) 23:29 -

引用なし
パスワード
   ▼まつ君 さん:
>横棒グラフでは折れ線を入れることが出来ないため、直線を使って
>値を表示させたいと思います。これは目標値になる1本の直線で、A1セルの
>値が50であれはグラフ目盛り50の位置に移動する。またグラフが拡大
>されれば追従して長くなるようにしたいのですが、どうすればよいでしょうか
>ご教授ください。

2つに分離するのはどうでしょう?

2枚グラフを用意して
上におく方を
グラフエリアの書式
プロットエリアの書式
で領域を「なし」に設定して背景をけして
重ねるといいです。


手で重ねるのは難しいので
二つをかさねたり大きさを合わせるのは、マクロでコード書いた方が便利だと思います。

【21929】Re:図形の制御
質問  まつ君 E-MAIL  - 05/2/3(木) 23:41 -

引用なし
パスワード
   りすりすさん、こんばんは
折れ線グラフを縦にすることができないと思うんですが・・・

【22111】Re:図形の制御
質問  まつ君 E-MAIL  - 05/2/8(火) 23:16 -

引用なし
パスワード
   散布図を使うことにしたのですが、マクロでグラフ範囲を自動選択すると
目標線が1本に減ってしまいます。
エクセルで作るとうまく2本の線がプロットされます。
そこで下記の部分を変数にしてグラフ範囲に指定しようと思いますが
どうしたらよいでしょうか

Sub 散布図作成()

  ActiveSheet.ChartObjects(2).Activate
  ActiveChart.ChartArea.Select
  ActiveChart.SeriesCollection(1).XValues = "='1'!R27C45:R36C45"
  ActiveChart.SeriesCollection(1).Values = "='1'!R27C47:R36C47"
  ActiveChart.SeriesCollection(2).XValues = "='1'!R27C46:R36C46"
  ActiveChart.SeriesCollection(2).Values = "='1'!R27C47:R36C47"
                           ↑この部分を変数に 
End Sub

10397 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free