質問編集履歴

3

試してみたこと 追記

2017/06/08 06:25

投稿

King_of_Flies
King_of_Flies

スコア382

test CHANGED
File without changes
test CHANGED
@@ -125,3 +125,79 @@
125
125
  Xvalueの指定が出来るのであればYValueでできるのではと思いましたが、
126
126
 
127
127
  第二だとどうすればよいのでしょう。
128
+
129
+
130
+
131
+ 試したこと。
132
+
133
+ ```vba
134
+
135
+ Set actChart = ActiveSheet.ChartObjects(targetGraph).Chart
136
+
137
+ actChart.SetSourceData Source:=Range("A51:A" & Range("A51").End(xlDown).row & ",B51:B" & Range("B51").End(xlDown).row)
138
+
139
+ With actChart.SeriesCollection(1)
140
+
141
+ .XValues = Range("A52:A" & Range("A52").End(xlDown).row)
142
+
143
+ .Values = Range("B52:B" & Range("B52").End(xlDown).row)
144
+
145
+ .name = Range("B51")
146
+
147
+ .ChartType = xlLine
148
+
149
+ End With
150
+
151
+
152
+
153
+ actChart.SeriesCollection.NewSeries
154
+
155
+ With actChart.SeriesCollection(2)
156
+
157
+ .Values = Range("C52:C" & Range("C52").End(xlDown).row)
158
+
159
+ .name = Range("C51")
160
+
161
+ .ChartType = xlLine
162
+
163
+ .AxisGroup = xlSecondary
164
+
165
+ End With
166
+
167
+
168
+
169
+ actChart.SeriesCollection.NewSeries
170
+
171
+ With actChart.SeriesCollection(3)
172
+
173
+ .Values = Range("D52:D" & Range("D52").End(xlDown).row)
174
+
175
+ .name = Range("D51")
176
+
177
+ .ChartType = xlLine
178
+
179
+ .AxisGroup = xlSecondary
180
+
181
+ End With
182
+
183
+
184
+
185
+ actChart.SeriesCollection.NewSeries
186
+
187
+ With actChart.SeriesCollection(4)
188
+
189
+ .Values = Range("E52:E" & Range("E52").End(xlDown).row)
190
+
191
+ .name = Range("E51")
192
+
193
+ .ChartType = xlLine
194
+
195
+ .AxisGroup = xlSecondary
196
+
197
+ End With
198
+
199
+ ```
200
+
201
+ グラフが棒グラフになるように設定。
202
+
203
+ 第二軸の設定(エラーになるけど)

2

考察 追加

2017/06/08 06:25

投稿

King_of_Flies
King_of_Flies

スコア382

test CHANGED
File without changes
test CHANGED
@@ -117,3 +117,11 @@
117
117
  質問投稿時のイメージで画像が張れませんでした。
118
118
 
119
119
  どうすればイメージを張れますか。
120
+
121
+
122
+
123
+ 考察
124
+
125
+ Xvalueの指定が出来るのであればYValueでできるのではと思いましたが、
126
+
127
+ 第二だとどうすればよいのでしょう。

1

追記を追加

2017/06/08 02:44

投稿

King_of_Flies
King_of_Flies

スコア382

test CHANGED
File without changes
test CHANGED
@@ -109,3 +109,11 @@
109
109
 
110
110
 
111
111
  よろしくお願い致します。
112
+
113
+
114
+
115
+ 追記
116
+
117
+ 質問投稿時のイメージで画像が張れませんでした。
118
+
119
+ どうすればイメージを張れますか。