teratail
回答率
85.48%
質問するログイン新規登録

質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう！

新規登録して質問してみよう
ただいま回答率
85.48%
トップVBAに関する質問
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

2回答

17148閲覧

VBA グラフ 第二軸の設定

King_of_Flies
King_of_Flies

総合スコア382

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2017/06/08 02:37

編集2017/06/08 06:25

0

0

お疲れ様です。
Takkoです。

現在VBA学習中の物です。

下記コードはグラフに対して、
系列を4つ、そのデータの参照範囲を指定した部分のプログラムです。

vba
1Set actChart = ActiveSheet.ChartObjects(targetGraph).Chart
2                actChart.SetSourceData Source:=Range("A51:A" & Range("A51").End(xlDown).row & ",B51:B" & Range("B51").End(xlDown).row)
3                With actChart.SeriesCollection(1)
4                    .XValues = Range("A52:A" & Range("A52").End(xlDown).row)
5                    .Values = Range("B52:B" & Range("B52").End(xlDown).row)
6                    .name = Range("B51")
7                End With
8                
9                actChart.SeriesCollection.NewSeries
10                With actChart.SeriesCollection(2)
11                    .Values = Range("C52:C" & Range("C52").End(xlDown).row)
12                    .name = Range("C51")
13                    
14                End With
15                
16                actChart.SeriesCollection.NewSeries
17                With actChart.SeriesCollection(3)
18                    .Values = Range("D52:D" & Range("D52").End(xlDown).row)
19                    .name = Range("D51")
20                End With
21                
22                actChart.SeriesCollection.NewSeries
23                With actChart.SeriesCollection(4)
24                    .Values = Range("E52:E" & Range("E52").End(xlDown).row)
25                    .name = Range("E51")
26                End With

ここで質問が二点
Q1
横軸の指定はSeriesColection(1)のXValueの箇所で指定している範囲だと分かるのですが、
縦軸の指定がドコで行われているのかがわかりません。
SetSorceDataのSorceで自動的に作成されているのでしょうか。

Q2
第二縦軸を作成したい場合はどのように設定すればよいでしょうか。
SiriesCollectionで
.AxisGroup = 2 を指定すれば第二縦軸を使用してグラフ作成を出来るようなことが調べてわかったのですが、
そもそも第二縦軸が設定されておらず、うまくいきません。

補足
SeriesCollection(1)は第一横軸、第一縦軸により折れ線グラフが作成されています。
SeriesCollection(1)以外のデータは第一横軸、第二縦軸を使用して折れ線グラフを作成したいですが、
現状第一縦軸を使用しているため、画像のように、データのサイズ的に全て横ばいになっています。

よろしくお願い致します。

追記
質問投稿時のイメージで画像が張れませんでした。
どうすればイメージを張れますか。

考察
Xvalueの指定が出来るのであればYValueでできるのではと思いましたが、
第二だとどうすればよいのでしょう。

試したこと。

vba
1Set actChart = ActiveSheet.ChartObjects(targetGraph).Chart
2                actChart.SetSourceData Source:=Range("A51:A" & Range("A51").End(xlDown).row & ",B51:B" & Range("B51").End(xlDown).row)
3                With actChart.SeriesCollection(1)
4                    .XValues = Range("A52:A" & Range("A52").End(xlDown).row)
5                    .Values = Range("B52:B" & Range("B52").End(xlDown).row)
6                    .name = Range("B51")
7                    .ChartType = xlLine
8                End With
9                
10                actChart.SeriesCollection.NewSeries
11                With actChart.SeriesCollection(2)
12                    .Values = Range("C52:C" & Range("C52").End(xlDown).row)
13                    .name = Range("C51")
14                    .ChartType = xlLine
15                    .AxisGroup = xlSecondary
16                End With
17                
18                actChart.SeriesCollection.NewSeries
19                With actChart.SeriesCollection(3)
20                    .Values = Range("D52:D" & Range("D52").End(xlDown).row)
21                    .name = Range("D51")
22                    .ChartType = xlLine
23                    .AxisGroup = xlSecondary
24                End With
25                
26                actChart.SeriesCollection.NewSeries
27                With actChart.SeriesCollection(4)
28                    .Values = Range("E52:E" & Range("E52").End(xlDown).row)
29                    .name = Range("E51")
30                    .ChartType = xlLine
31                    .AxisGroup = xlSecondary
32                End With

グラフが棒グラフになるように設定。
第二軸の設定（エラーになるけど）

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2件

0

自己解決

マクロの記録により作成されるコードを利用することで、
大まかな使用するプロパティを算出し、解決いたしました。
最終的にはこのような記述でした。

 ActiveChart.ChartArea.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.FullSeriesCollection(1).ChartType = xlColumnClustered
    ActiveChart.FullSeriesCollection(1).AxisGroup = 1
    ActiveChart.FullSeriesCollection(2).ChartType = xlColumnClustered
    ActiveChart.FullSeriesCollection(2).AxisGroup = 1
    ActiveChart.FullSeriesCollection(3).ChartType = xlLine
    ActiveChart.FullSeriesCollection(3).AxisGroup = 1
    ActiveChart.FullSeriesCollection(4).ChartType = xlLine
    ActiveChart.FullSeriesCollection(4).AxisGroup = 1
    ActiveChart.FullSeriesCollection(1).ChartType = xlLine
    ActiveChart.FullSeriesCollection(2).ChartType = xlLine
    ActiveChart.FullSeriesCollection(2).AxisGroup = 2
    ActiveChart.FullSeriesCollection(3).AxisGroup = 2
    ActiveChart.FullSeriesCollection(4).AxisGroup = 2
    ActiveSheet.ChartObjects("Graph2-12").Activate
    ActiveChart.Axes(xlValue, xlSecondary).Select
    ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = 2.50000000000002E-04
    ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = 0
    Application.CommandBars("Format Object").Visible = False

ここから不要な記述を削除していくことで解決するので、ここでの質問は解決済みにさせていただきます。

追記
SeriesCollectionではなくFullSeriesCollectionでAxisGroupを使用しないといけないみたいです。

投稿2017/06/09 02:21

King_of_Flies
King_of_Flies

総合スコア382

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

第２軸をつかうには、SeriesCollection.AxisGroup = xlSecondary と設定すれば良いはずです。

以下のように修正してみては、如何でしょうか。

Set actChart = ActiveSheet.ChartObjects(targetGraph).Chart
                actChart.SetSourceData Source:=Range("A51:A" & Range("A51").End(xlDown).row & ",B51:B" & Range("B51").End(xlDown).row)
                With actChart.SeriesCollection(1)
                    .XValues = Range("A52:A" & Range("A52").End(xlDown).row)
                    .Values = Range("B52:B" & Range("B52").End(xlDown).row)
                    .name = Range("B51")
                End With

                actChart.SeriesCollection.NewSeries
                With actChart.SeriesCollection(2)
                    .Values = Range("C52:C" & Range("C52").End(xlDown).row)
                    .name = Range("C51")
                    .AxisGroup = xlSecondary '追加
                End With

                actChart.SeriesCollection.NewSeries
                With actChart.SeriesCollection(3)
                    .Values = Range("D52:D" & Range("D52").End(xlDown).row)
                    .name = Range("D51")
                    .AxisGroup = xlSecondary '追加
                End With

                actChart.SeriesCollection.NewSeries
                With actChart.SeriesCollection(4)
                    .Values = Range("E52:E" & Range("E52").End(xlDown).row)
                    .name = Range("E51")
                    .AxisGroup = xlSecondary '追加
                End With

投稿2017/06/08 02:51

coco_bauer
coco_bauer

総合スコア6915

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

King_of_Flies
King_of_Flies

2017/06/08 02:54

実行時エラー：-2147417848 'AxisGroup' メソッドはしっぱいしました　： 'Series'　オブジェクト と出力されました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

質問の解決につながる回答をしましょう。 サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。 また、読む側のことを考えた、分かりやすい文章を心がけましょう。

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

トップVBAに関する質問

VBA グラフ 第二軸の設定