質問編集履歴

見やすいように改行を入れました。

2018/04/13 09:03

投稿

nge2015

スコア7

title CHANGED Viewed

	@@ -1,1 +1,1 @@
1	- Excelで、既存グラフと同じ書式のグラフをたくさん作りたい。
1	+ Excelで、既存のグラフと同じ書式のグラフをたくさん作りたい。

body CHANGED Viewed

@@ -8,18 +8,20 @@
 ```
 データ系列を変更すると、系列の塗りつぶしの書式が変わってしまいます（Excelのバグ？）。
+そこで、塗りつぶしの書式を取得して、データ系列を変更して、
-そこで、塗りつぶしの書式を取得して、データ系列を変更して、その後、取得した塗りつぶしを再度代入しようとしましたが、塗りつぶしの取得ができません。
+その後、取得した塗りつぶしを再度代入しようとしましたが、塗りつぶしの取得ができません。
-ObjectThemeColorが正常に取得できず、0が返ってきてしまうようで、データ系列の変更後に、これを代入しようとしたときにエラーが発生します。
+ObjectThemeColorが正常に取得できず、0が返ってきてしまうようで、
+データ系列の変更後に、これを代入しようとしたときにエラーが発生します。
 ```
 ### 該当のソースコード
 ```Microsoft Excel VBA
 Private Type ChartFormatType
-    msoForeColor_ObjectThemeColor As MsoThemeColorIndex
+    msoFill_ForeColor_ObjectThemeColor As MsoThemeColorIndex
-    msoBackColor_ObjectThemeColor As MsoThemeColorIndex
+    msoFill_BackColor_ObjectThemeColor As MsoThemeColorIndex
-    msoPattern As MsoPatternType
+    msoFill_Pattern As MsoPatternType
 End Type
 Sub SetGraphDataSeries()
@@ -33,18 +35,18 @@
             Dim lngSeries As Long
             For lngSeries = 1 To 1 '4
                 ' 書式の取得
-                With .SeriesCollection(lngSeries).Format.Fill
+                With .SeriesCollection(lngSeries).Format
-                    cft.msoForeColor_ObjectThemeColor = .ForeColor.ObjectThemeColor
+                    cft.msoFill_ForeColor_ObjectThemeColor = .Fill.ForeColor.ObjectThemeColor
-                    cft.msoBackColor_ObjectThemeColor = .BackColor.ObjectThemeColor
+                    cft.msoFill_BackColor_ObjectThemeColor = .Fill.BackColor.ObjectThemeColor
-                    cft.msoPattern = .Pattern
+                    cft.msoFill_Pattern = .Fill.Pattern
                 End With
                 ' データ系列の変更
                 .SeriesCollection(1).Values = "='有意差まとめ(2)b'!$B$72:$B$79"
                 ' 書式の再設定
-                With .SeriesCollection(lngSeries).Format.Fill
+                With .SeriesCollection(lngSeries).Format
-                    .ForeColor.ObjectThemeColor = cft.msoForeColor_ObjectThemeColor
+                    .Fill.ForeColor.ObjectThemeColor = cft.msoFill_ForeColor_ObjectThemeColor
-                    .BackColor.ObjectThemeColor = cft.msoBackColor_ObjectThemeColor
+                    .Fill.BackColor.ObjectThemeColor = cft.msoFill_BackColor_ObjectThemeColor
-                    .Pattern = cft.msoPattern
+                    Call .Fill.Patterned(cft.msoFill_Pattern)
                 End With
             Next