回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -5,26 +5,22 @@
|
|
|
5
5
|
Sub Test01()
|
|
6
6
|
Dim objChart As Chart
|
|
7
7
|
Dim i As Long
|
|
8
|
-
Dim ii As Long
|
|
9
|
-
Dim asn As String 'activeSheetName
|
|
10
8
|
|
|
11
|
-
asn = ActiveSheet.Name
|
|
12
|
-
|
|
13
9
|
'グラフ数分繰り返す
|
|
14
|
-
For
|
|
10
|
+
For i = 1 To 3
|
|
15
11
|
|
|
16
|
-
Set objChart = ActiveSheet.ChartObjects(
|
|
12
|
+
Set objChart = ActiveSheet.ChartObjects(i).Chart
|
|
17
13
|
|
|
18
14
|
Select Case True
|
|
19
15
|
Case objChart.SeriesCollection.Item(1).Formula Like "*$I$30:$I$39,1)"
|
|
20
|
-
ActiveSheet.ChartObjects(
|
|
16
|
+
ActiveSheet.ChartObjects(i).Name = "グラフ 1"
|
|
21
17
|
Case objChart.SeriesCollection.Item(1).Formula Like "*$M$30:$M$39,1)"
|
|
22
|
-
ActiveSheet.ChartObjects(
|
|
18
|
+
ActiveSheet.ChartObjects(i).Name = "グラフ 2"
|
|
23
19
|
Case objChart.SeriesCollection.Item(1).Formula Like "*$R$30:$R$39,1)"
|
|
24
|
-
ActiveSheet.ChartObjects(
|
|
20
|
+
ActiveSheet.ChartObjects(i).Name = "グラフ 3"
|
|
25
21
|
End Select
|
|
26
22
|
|
|
27
|
-
Next
|
|
23
|
+
Next i
|
|
28
24
|
|
|
29
25
|
MsgBox "完了"
|
|
30
26
|
|