Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10408 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   横棒グラフでは折れ線を入れることが出来ないため、直線を使って
値を表示させたいと思います。これは目標値になる１本の直線で、A1セルの
値が５０であれはグラフ目盛り５０の位置に移動する。またグラフが拡大
されれば追従して長くなるようにしたいのですが、どうすればよいでしょうか
ご教授ください。
【21928】Re:図形の制御
回答  りすりす  - 05/2/3(木) 23:29 -
引用なし
パスワード
   ▼まつ君 さん：
>横棒グラフでは折れ線を入れることが出来ないため、直線を使って
>値を表示させたいと思います。これは目標値になる１本の直線で、A1セルの
>値が５０であれはグラフ目盛り５０の位置に移動する。またグラフが拡大
>されれば追従して長くなるようにしたいのですが、どうすればよいでしょうか
>ご教授ください。

２つに分離するのはどうでしょう？

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


手で重ねるのは難しいので
二つをかさねたり大きさを合わせるのは、マクロでコード書いた方が便利だと思います。
【21929】Re:図形の制御
質問  まつ君 E-MAIL  - 05/2/3(木) 23:41 -
引用なし
パスワード
   りすりすさん、こんばんは
折れ線グラフを縦にすることができないと思うんですが・・・
【22111】Re:図形の制御
質問  まつ君 E-MAIL  - 05/2/8(火) 23:16 -
引用なし
パスワード
   散布図を使うことにしたのですが、マクロでグラフ範囲を自動選択すると
目標線が１本に減ってしまいます。
エクセルで作るとうまく２本の線がプロットされます。
そこで下記の部分を変数にしてグラフ範囲に指定しようと思いますが
どうしたらよいでしょうか

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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10408 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free