投稿日	： 2003/09/11(Thu) 19:57
投稿者	： ＨＢ
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^2: オブジェクトの保存

花ちゃん ありがとうございます(^^
ご指示いただいた上記のコードを実行してみました。
確かにパターンは塗りつぶしになりますが、カラーは黒でした。

そこで「MSChart関係」を参照して、下記のコードに変更して試したところ、色は設定出来ました。

Private Sub mnuSolid_Click()

   dim i as integer

    For i = 1 To 3
        With MSChart1.Plot.SeriesCollection(i).DataPoints(-1).Brush
            .FillColor.Automatic = False    '色の自動設定を解除します。
            .Style = VtBrushStyleSolid
            If i = 1 Then .FillColor.Set 255, 0, 0   '色を設定します、 国語
            If i = 2 Then .FillColor.Set 0, 255, 0  '数学
            If i = 3 Then .FillColor.Set 0, 0, 255  '英語
        End With
    Next i

   Mschart1.ChartType = VtChChartType2dBar

End Sub

が、これですとモノクロ表示前の任意の色に戻せません。
例えば「MSChart関係」で使用されている２Ｄ棒の３系列のデータで、系列ごとに使用されているパターンのＲＧＢの値を読み取る方法はないんでしょうか？
そうすれば上記コードの　「FillColor.Set 保存しているＲＧＢカラー」とすればモノクロ前の任意のカラーに復元可能かと思うんですが・・・。

いろいろ調べてみたんですが分かりません(ーー;)

★ - オブジェクトの保存 - ＨＢ 09/11-11:44No.5839
• Re: オブジェクトの保存 - 花ちゃん 09/11-16:49 No.5858
  • Re^2: オブジェクトの保存 - ＨＢ 09/11-19:57 No.5863
    • Re^3: オブジェクトの保存 - 花ちゃん 09/11-21:22 No.5866
      • Re^4: オブジェクトの保存 - ＨＢ 09/12-11:00 No.5878