回答編集履歴
1
修正
answer
CHANGED
|
@@ -37,10 +37,10 @@
|
|
|
37
37
|
'Next i
|
|
38
38
|
|
|
39
39
|
Dim Achart As ChartObject
|
|
40
|
-
Set Achart =
|
|
40
|
+
Set Achart = ActiveSheet.ChartObjects("Chart 1")
|
|
41
41
|
|
|
42
42
|
Dim Bchart As ChartObject
|
|
43
|
-
Set Bchart =
|
|
43
|
+
Set Bchart = ActiveSheet.ChartObjects("Chart 2")
|
|
44
44
|
|
|
45
45
|
Gwidth = Achart.Width 'エラー箇所
|
|
46
46
|
Gheight = Achart.Height 'エラー箇所
|