質問編集履歴
2
画像の位置を修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -68,4 +68,4 @@
|
|
|
68
68
|
|
|
69
69
|
|
|
70
70
|
|
|
71
|
-
[イメージ説明]
|
|
71
|
+
|
1
画像の位置を修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -12,17 +12,19 @@
|
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
|
|
15
|
+
対象としたデータは一番下に添付させていただきます。
|
|
16
|
+
|
|
15
17
|
|
|
16
18
|
|
|
17
19
|
Sub Graph_sample()
|
|
18
20
|
|
|
19
21
|
|
|
20
22
|
|
|
21
|
-
With ActiveSheet.Shapes.AddChart.Chart 'グラフ作る!
|
|
23
|
+
With ActiveSheet.Shapes.AddChart.Chart 'グラフ作る!(7760dac79fcab332cee28c236fa6ffe8.jpeg)
|
|
22
24
|
|
|
23
25
|
.ChartType = xlLineMarkers 'グラフの指定
|
|
24
26
|
|
|
25
|
-
.SetSourceData Source:=Sheets("Sheet1").Range(Cells(2, 3), Cells(30, 3)) 'データ範囲
|
|
27
|
+
.SetSourceData Source:=Sheets("Sheet1").Range(Cells(2, 3), Cells(30, 3)) 'データ範囲。データが増えたときのため余裕を持たせています。
|
|
26
28
|
|
|
27
29
|
End With
|
|
28
30
|
|
|
@@ -61,3 +63,9 @@
|
|
|
61
63
|
|
|
62
64
|
|
|
63
65
|
どなたか解決方法をご存知の方がおられましたらご教示お願いします。
|
|
66
|
+
|
|
67
|
+
|
|
68
|
+
|
|
69
|
+
|
|
70
|
+
|
|
71
|
+
[イメージ説明]
|