質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.48%

  • VBA

    1863questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1596questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

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

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 539

nge2015

score 1

 前提・実現したいこと

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

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

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

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

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

 該当のソースコード

Private Type ChartFormatType
    msoFill_ForeColor_ObjectThemeColor As MsoThemeColorIndex
    msoFill_BackColor_ObjectThemeColor As MsoThemeColorIndex
    msoFill_Pattern As MsoPatternType
End Type

Sub SetGraphDataSeries()

    Dim lngCo As Long
    For lngCo = 1 To 2
        With wksGraph.ChartObjects(lngCo).Chart

            Dim cft As ChartFormatType

            Dim lngSeries As Long
            For lngSeries = 1 To 1 '4
                ' 書式の取得
                With .SeriesCollection(lngSeries).Format
                    cft.msoFill_ForeColor_ObjectThemeColor = .Fill.ForeColor.ObjectThemeColor
                    cft.msoFill_BackColor_ObjectThemeColor = .Fill.BackColor.ObjectThemeColor
                    cft.msoFill_Pattern = .Fill.Pattern
                End With
                ' データ系列の変更
                .SeriesCollection(1).Values = "='有意差まとめ(2)b'!$B$72:$B$79"
                ' 書式の再設定
                With .SeriesCollection(lngSeries).Format
                    .Fill.ForeColor.ObjectThemeColor = cft.msoFill_ForeColor_ObjectThemeColor
                    .Fill.BackColor.ObjectThemeColor = cft.msoFill_BackColor_ObjectThemeColor
                    Call .Fill.Patterned(cft.msoFill_Pattern)
                End With
            Next


        End With

    Next

End Sub

 試したこと

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

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

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

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • coco_bauer

    2018/04/13 16:45

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

    キャンセル

  • nge2015

    2018/04/13 18:00

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

    キャンセル

回答 1

checkベストアンサー

+1

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

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

テーマの色

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

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/04/17 11:47

    どうも有り難うございます! また、お返事遅くなってしまってすみません。

    Fill.ForeColor.ObjectThemeColorを使用するのを諦め、
    Fill.ForeColor.RGBを使用したところ、取得・設定ともにうまく行きました!

    テーマの色からグラフを塗りつぶしているはずなのに何故ObjectThemeColorとして取得できないかは
    不明ですが、ともあれ、動作するようになりました。
    どうも有り難うございます!

    キャンセル

  • 2018/04/21 11:25

    こちらでもテーマの色を設定しても「ObjectThemeColorとして取得できない」現象を確認できました
    実行中にテーマの色を設定してもダメだったので、グラフ特有の事情があるのかもしれません。

    この挙動は知らなかったので勉強になりました、ありがとうございます。

    キャンセル

関連した質問

同じタグがついた質問を見る

  • VBA

    1863questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1596questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。