回答編集履歴
1
修正
test
CHANGED
|
@@ -76,13 +76,13 @@
|
|
|
76
76
|
|
|
77
77
|
Dim Achart As ChartObject
|
|
78
78
|
|
|
79
|
-
Set Achart = Sheet
|
|
79
|
+
Set Achart = ActiveSheet.ChartObjects("Chart 1")
|
|
80
80
|
|
|
81
81
|
|
|
82
82
|
|
|
83
83
|
Dim Bchart As ChartObject
|
|
84
84
|
|
|
85
|
-
Set Bchart = Sheet
|
|
85
|
+
Set Bchart = ActiveSheet.ChartObjects("Chart 2")
|
|
86
86
|
|
|
87
87
|
|
|
88
88
|
|