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

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
Microsoft Excel 2016にて、既に存在するグラフと同じ書式で、データ系列だけ異なる縦棒グラフをたくさん作ろうとしています。

発生している問題・エラーメッセージ

データ系列を変更すると、系列の塗りつぶしの書式が変わってしまいます（Excelのバグ？）。

そこで、塗りつぶしの書式を取得して、データ系列を変更して、
その後、取得した塗りつぶしを再度代入しようとしましたが、塗りつぶしの取得ができません。

ObjectThemeColorが正常に取得できず、0が返ってきてしまうようで、
データ系列の変更後に、これを代入しようとしたときにエラーが発生します。

該当のソースコード

Microsoft
1Private Type ChartFormatType
2    msoFill_ForeColor_ObjectThemeColor As MsoThemeColorIndex
3    msoFill_BackColor_ObjectThemeColor As MsoThemeColorIndex
4    msoFill_Pattern As MsoPatternType
5End Type
6
7Sub SetGraphDataSeries()
8    
9    Dim lngCo As Long
10    For lngCo = 1 To 2
11        With wksGraph.ChartObjects(lngCo).Chart
12        
13            Dim cft As ChartFormatType
14            
15            Dim lngSeries As Long
16            For lngSeries = 1 To 1 '4
17                ' 書式の取得
18                With .SeriesCollection(lngSeries).Format
19                    cft.msoFill_ForeColor_ObjectThemeColor = .Fill.ForeColor.ObjectThemeColor
20                    cft.msoFill_BackColor_ObjectThemeColor = .Fill.BackColor.ObjectThemeColor
21                    cft.msoFill_Pattern = .Fill.Pattern
22                End With
23                ' データ系列の変更
24                .SeriesCollection(1).Values = "='有意差まとめ(2)b'!$B$72:$B$79"
25                ' 書式の再設定
26                With .SeriesCollection(lngSeries).Format
27                    .Fill.ForeColor.ObjectThemeColor = cft.msoFill_ForeColor_ObjectThemeColor
28                    .Fill.BackColor.ObjectThemeColor = cft.msoFill_BackColor_ObjectThemeColor
29                    Call .Fill.Patterned(cft.msoFill_Pattern)
30                End With
31            Next
32                
33
34        End With
35    
36    Next
37
38End Sub

試したこと

MsoThemeColorIndex変数であるObjectThemeColorの取得/設定だけではなく、
ひとつ上位階層のColorFormatオブジェクトのForeColorの取得/設定も試みました。
しかし、こちらはNewしようとしたときにエラーが発生します。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

coco_bauer

2018/04/13 07:45

系列の塗りつぶしの変更は、データ系列の書式設定で出来ると思います。　マクロの記録を有効にしておいて、データ系列の塗りつぶしの色を変えれば、その動作に対応するVBAプログラムが得られませんか？

nge2015

2018/04/13 09:00

早速どうも有り難うございます。既存のグラフと同じ書式のグラフを作るに当たって、グラフの各種プロパティの設定はできるのですが、既存のグラフのプロパティの取得ができずに困っています。自動記録マクロからは、どうすればプロパティが取得できるか、分かりませんので。

行動規範の内容に同意します

回答1件

ベストアンサー

ExcelだけでなくMS Office全般に言えることですが、色の指定方法にはいくつか種類があります。

今回使用しているObjectThemeColorは「テーマの色」を使って色を指定したい場合に使用するものです。

また、ObjectThemeColorから0が返ってきたとのことですが、
MsoThemeColorIndex列挙型の中で該当するものを探すとmsoNotThemeColor、テーマの色では無いということになります。
そのため取得は出来てもどんな色かわからないので設定できない、ということになります。

テーマの色ではなく、純粋な色を取得・設定する場合はExcel.ColorFormatオブジェクトのRGBプロパティを使用します。

RGBプロパティの型はMsoRGBTypeとなっていますが、RGB関数などで取得できる色（Long型）を使えば大丈夫です。

投稿2018/04/13 09:33

imihito

総合スコア2166

nge2015

2018/04/17 02:47

どうも有り難うございます！　また、お返事遅くなってしまってすみません。 Fill.ForeColor.ObjectThemeColorを使用するのを諦め、 Fill.ForeColor.RGBを使用したところ、取得・設定ともにうまく行きました！テーマの色からグラフを塗りつぶしているはずなのに何故ObjectThemeColorとして取得できないかは不明ですが、ともあれ、動作するようになりました。どうも有り難うございます！