
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
ややお粗末な点があるが、下記をやってみて、お気に召さないかな。
例データ B-G列
E-G列は関数で、0,40,80という数値の下駄を履かせている。
40などは実際の値の各期のデータ最高値+αなどを勘案して決める。
エクセル関数で出来るのはわかりますね。1例でF2は=C2+40です。
第1期第2期第3期第1期第2期+40第3期+80
1222291262109
341816345896
2112282152108
141812145892
161911165991
ーーー
E-G列で折れ線グラフを描かせます
ーーー
Y軸の書式設定で、パターンー目盛ラベルーなしにして、消してしまう。
ーー
標準モジュールへ下記をコピペ
Sub Macro1()
x = String(60, " ")
Mid(x, 1, Len("第1期")) = "第1期"
Mid(x, 10, Len("第2期")) = "第2期"
Mid(x, 20, Len("第3期")) = "第3期"
Mid(x, 31, 2) = vbCrLf
Mid(x, 33, 10) = "1 2 3 4 5 6 7 8 9"
Mid(x, 43, 10) = "1 2 3 4 5 6 7 8 9"
Mid(x, 53, 10) = "1 2 3 4 5 6 7 8 9"
ActiveChart.ChartArea.Select
With ActiveChart
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = x
End With
End Sub
グラフをアクチブにして実行。
ーーー
実際問題にあわせるのは、上記のコードの文字列Xの位置合わせ的
チューニングにある。
問題点は
●上記での期の数の多さ
●Xの文字列の調節。
●目盛ラベルに盛り込む内容の複雑さ
●縦書き横書き
などで楽観視してないが。
縦長横書きテキストボックスを、文字の内容を作って貼り付けるほうが易しいかも知れない。
No.1
- 回答日時:
取りあえずこんなマクロでどうでしょうか。
上手くいくかどうか試してみてください。
シート名等、実際に合わせて変更してください。
Sub test1()
Dim ccht As ChartObject
Dim pcht1 As ChartObject
Dim pcht2 As ChartObject
Dim n As Integer
Sheets("Sheet1").Activate
For Each ccht In Sheets("グラフ").ChartObjects
ccht.Copy
Sheets("Sheet1").Paste
With Sheets("Sheet1")
n = .ChartObjects.Count
Set pcht1 = .ChartObjects(n)
If n = 1 Then
pcht1.Left = .Range("B2").Left
pcht1.Top = .Range("B2").Top
Else
Set pcht2 = .ChartObjects(.ChartObjects.Count - 1)
pcht1.Left = pcht2.Left
pcht1.Top = pcht2.Top + pcht1.Chart.PlotArea.InsideHeight
End If
End With
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
電子書籍プレゼントキャンペーン!
最大2万円超分当たる!マンガや小説が読める電子書籍サービス『Renta!』で利用できるギフトコードプレゼント実施中!
-
散布図を縦に2個並べて出力したい
Excel(エクセル)
-
Sma4で2つのグラフを重ねることについて
その他(コンピューター・テクノロジー)
-
エクセル 複数のX軸に対応した1つの図を作りたい
Excel(エクセル)
-
4
エクセルの散布図のX軸に文字を表示したいのですが、どうしたらよいのでしょうか?
Excel(エクセル)
-
5
Excel2007で棒グラフを重ねて表示する方法
その他(Microsoft Office)
-
6
EXCELの散布図グラフのX軸を2重に作成したい
Excel(エクセル)
-
7
質問は2つです。 Sma4winというソフトをダウンロードしました。 1つ目の質問は、Sma4win
その他(ソフトウェア)
-
8
下付を作るには?
Excel(エクセル)
-
9
エクセルにおける、グラフの指数表示に関して
Excel(エクセル)
-
10
単位について(a.u.)
化学
-
11
Sma4の使い方
Excel(エクセル)
-
12
EXCELの近似曲線で対数近似、指数近似が選べない
Excel(エクセル)
-
13
℃の半角表示
Excel(エクセル)
-
14
Excelのグラフで同じ数値軸を左右に表示したい
Excel(エクセル)
-
15
Excelでの全通りの組み合わせ出力方法(文字列)
Excel(エクセル)
-
16
一列に並んでいる大量のデータを10個ずつ平均(A1~A2000まである
Excel(エクセル)
-
17
HTMLからフォルダを開きたい
HTML・CSS
-
18
大学の卒論の不合格認定について
大学・短大
-
19
【エクセル】近似曲線の予測部分だけ書式変更したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
エクセル グラフの削除してし...
-
5
エクセルの散布図グラフで、横...
-
6
エクセルでグラフを作成する際...
-
7
主軸と2軸のゼロレベル(エクセ...
-
8
エクセルの対数グラフで細かい...
-
9
第2軸を追加すると折れ線グラフ...
-
10
EXCELでX軸が時間のグラフを作...
-
11
エクセルグラフ メモリを方眼...
-
12
エクセルグラフの軸ラベルを一...
-
13
複合グラフの第2軸の目盛設定...
-
14
【Excel】3軸以上のグラフ...
-
15
エクセル 集合縦棒が重なって...
-
16
Excelのグラフで同じ数値軸を左...
-
17
エクセルで原点(o,o)を通る折れ...
-
18
Excelで3軸,4軸のグラフを出す...
-
19
散布図と折線の複合グラフが、...
-
20
エクセル2007:折れ線グラフを...
おすすめ情報
公式facebook
公式twitter