teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問一枚のシートにて各複数のデータからグラフを作成したいです！棒グラフは反映されるものの折れ線グラフが反映されない。。。

編集履歴

質問編集履歴

2

記載場所の修正

2019/03/06 14:28

投稿

chanken
chanken

スコア12

test CHANGED
File without changes
test CHANGED
@@ -92,4 +92,8 @@
92
92
 
93
93
  .AxisGroup = 2
94
94
 
95
- End With
95
+ End Withここに言語を入力
96
+
97
+ コード
98
+
99
+ ```

1

コードの記載場所修正

2019/03/06 14:28

投稿

chanken
chanken

スコア12

test CHANGED
File without changes
test CHANGED
@@ -8,59 +8,47 @@
8
8
 
9
9
 
10
10
 
11
+ ```Sub test1()
12
+
13
+ With ActiveSheet.ChartObjects _
14
+
15
+ .Add(450, 25, 450, 300).Chart
16
+
17
+ .ChartType = xlColumnClustered
18
+
19
+ .SetSourceData Source:=Range(“A3:B14, D3:D14”)
20
+
21
+ .HasLegend = True
22
+
23
+ .HasTitle = True
24
+
25
+ .ChartTitle.Text = “改善前”
26
+
27
+ .ChartTitle.Font.Size = 16
28
+
29
+ .Legend.Position = xlLegendPositionTop
30
+
11
- これが現在のコード↓
31
+ End With
12
32
 
13
33
 
14
-
15
- ```**__###ここに言語を入力__**
16
-
17
- コード
18
-
19
- 　Sub test1()
20
-
21
- With ActiveSheet.ChartObjects _
22
-
23
- .Add(450, 25, 450, 300).Chart
24
-
25
- .ChartType = xlColumnClustered
26
-
27
- .SetSourceData Source:=Range(“A3:B14, D3:D14”)
28
-
29
- .HasLegend = True
30
-
31
- .HasTitle = True
32
-
33
- .ChartTitle.Text = “改善前”
34
-
35
- 　 .ChartTitle.Font.Size = 16
36
-
37
- .Legend.Position = xlLegendPositionTop
38
-
39
- End With
40
-
41
-
42
-
43
-
44
34
 
45
35
  End Sub
46
36
 
47
37
 
48
38
 
39
+ Sub test2()
40
+
41
+ With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(2)
42
+
43
+ .ChartType = xlLineMarkers
44
+
45
+ .Values = Range(“D3:D14”)
46
+
47
+ .AxisGroup = 2
48
+
49
+ End With
49
50
 
50
51
 
51
- Sub test2()
52
-
53
- With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(2)
54
-
55
- .ChartType = xlLineMarkers
56
-
57
- .Values = Range(“D3:D14”)
58
-
59
- .AxisGroup = 2
60
-
61
- End With
62
-
63
-
64
52
 
65
53
  End Sub
66
54
 
@@ -68,44 +56,40 @@
68
56
 
69
57
  Sub test3()
70
58
 
71
- With ActiveSheet.ChartObjects _
59
+ With ActiveSheet.ChartObjects _
72
60
 
73
- .Add(450, 500, 450, 300).Chart
61
+ .Add(450, 500, 450, 300).Chart
74
62
 
75
- .ChartType = xlColumnClustered
63
+ .ChartType = xlColumnClustered
76
64
 
77
- .SetSourceData Source:=Range(“A40:B51, D40:D51”)
65
+ .SetSourceData Source:=Range(“A40:B51, D40:D51”)
78
66
 
79
- .HasLegend = True
67
+ .HasLegend = True
80
68
 
81
- .HasTitle = True
69
+ .HasTitle = True
82
70
 
83
- .ChartTitle.Text = “改善後”
71
+ .ChartTitle.Text = “改善後”
84
72
 
85
- 　 .ChartTitle.Font.Size = 16
73
+ .ChartTitle.Font.Size = 16
86
74
 
87
- .Legend.Position = xlLegendPositionTop
75
+ .Legend.Position = xlLegendPositionTop
88
76
 
89
- End With
77
+ End With
90
78
 
91
-
92
79
 
93
-
94
80
 
95
81
  End Sub
96
82
 
97
83
 
98
84
 
99
-
100
-
101
85
  Sub test4()
102
86
 
103
- With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(2)
87
+ With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(2)
104
88
 
105
- .ChartType = xlLineMarkers
89
+ .ChartType = xlLineMarkers
106
90
 
107
- .Values = Range(“D40:D51”)
91
+ .Values = Range(“D40:D51”)
108
92
 
109
- .AxisGroup = 2
93
+ .AxisGroup = 2
110
94
 
111
- End With
95
+ End With