質問編集履歴
1
見やすいように改行を入れました。
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
Excelで、既存グラフと同じ書式のグラフをたくさん作りたい。
|
1
|
+
Excelで、既存のグラフと同じ書式のグラフをたくさん作りたい。
|
test
CHANGED
@@ -18,11 +18,15 @@
|
|
18
18
|
|
19
19
|
|
20
20
|
|
21
|
+
そこで、塗りつぶしの書式を取得して、データ系列を変更して、
|
22
|
+
|
21
|
-
そ
|
23
|
+
その後、取得した塗りつぶしを再度代入しようとしましたが、塗りつぶしの取得ができません。
|
22
24
|
|
23
25
|
|
24
26
|
|
25
|
-
ObjectThemeColorが正常に取得できず、0が返ってきてしまうようで、
|
27
|
+
ObjectThemeColorが正常に取得できず、0が返ってきてしまうようで、
|
28
|
+
|
29
|
+
データ系列の変更後に、これを代入しようとしたときにエラーが発生します。
|
26
30
|
|
27
31
|
```
|
28
32
|
|
@@ -36,11 +40,11 @@
|
|
36
40
|
|
37
41
|
Private Type ChartFormatType
|
38
42
|
|
39
|
-
msoForeColor_ObjectThemeColor As MsoThemeColorIndex
|
43
|
+
msoFill_ForeColor_ObjectThemeColor As MsoThemeColorIndex
|
40
44
|
|
41
|
-
msoBackColor_ObjectThemeColor As MsoThemeColorIndex
|
45
|
+
msoFill_BackColor_ObjectThemeColor As MsoThemeColorIndex
|
42
46
|
|
43
|
-
msoPattern As MsoPatternType
|
47
|
+
msoFill_Pattern As MsoPatternType
|
44
48
|
|
45
49
|
End Type
|
46
50
|
|
@@ -68,13 +72,13 @@
|
|
68
72
|
|
69
73
|
' 書式の取得
|
70
74
|
|
71
|
-
With .SeriesCollection(lngSeries).Format
|
75
|
+
With .SeriesCollection(lngSeries).Format
|
72
76
|
|
73
|
-
cft.msoForeColor_ObjectThemeColor = .ForeColor.ObjectThemeColor
|
77
|
+
cft.msoFill_ForeColor_ObjectThemeColor = .Fill.ForeColor.ObjectThemeColor
|
74
78
|
|
75
|
-
cft.msoBackColor_ObjectThemeColor = .BackColor.ObjectThemeColor
|
79
|
+
cft.msoFill_BackColor_ObjectThemeColor = .Fill.BackColor.ObjectThemeColor
|
76
80
|
|
77
|
-
cft.msoPattern = .Pattern
|
81
|
+
cft.msoFill_Pattern = .Fill.Pattern
|
78
82
|
|
79
83
|
End With
|
80
84
|
|
@@ -84,13 +88,13 @@
|
|
84
88
|
|
85
89
|
' 書式の再設定
|
86
90
|
|
87
|
-
With .SeriesCollection(lngSeries).Format
|
91
|
+
With .SeriesCollection(lngSeries).Format
|
88
92
|
|
89
|
-
.ForeColor.ObjectThemeColor = cft.msoForeColor_ObjectThemeColor
|
93
|
+
.Fill.ForeColor.ObjectThemeColor = cft.msoFill_ForeColor_ObjectThemeColor
|
90
94
|
|
91
|
-
.BackColor.ObjectThemeColor = cft.msoBackColor_ObjectThemeColor
|
95
|
+
.Fill.BackColor.ObjectThemeColor = cft.msoFill_BackColor_ObjectThemeColor
|
92
96
|
|
93
|
-
.Pattern
|
97
|
+
Call .Fill.Patterned(cft.msoFill_Pattern)
|
94
98
|
|
95
99
|
End With
|
96
100
|
|