VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/08/02(Tue) 08:57
投稿者： モモ
Ｅメール：
ＵＲＬ：
タイトル： Re^2: MSChartのマーカー色変更

花ちゃんさん
ご回答ありがとうございました。
このコードはMSDNライブラリの「Marker オブジェクトの例」という
ところを参考にしたものです。

＞上記の設定で本当に系列１のマーカの色が変りましたか？
当方の環境では　系列１のマーカーを変更することができました。

ですが、系列２以降のマーカーを変更することはできませんでした。
そのため他のイベントが影響しているのではないかとか
カラムの参照ができていないのかも　とか
DoEventsを入れてみたりと　いろいろ試してみたのですが
実現することができませんでした。

今考えると悩んでいた時間がほんとにもったいない。
花ちゃんさんのおかげで助かりました。
これで先に進めます。ありがとうございました。

Option Explicit
Option Base 1
Private Sub Command1_Click()
   ' 系列 1 のマーカーを表示します。
   Dim i As Integer
   For i = 1 To MSChart1.Plot.SeriesCollection.Count
      With MSChart1.Plot.SeriesCollection _
      .Item(i).DataPoints.Item(-1).Marker
         .Visible = True
         .Size = 20
         .Style = VtMarkerStyleX
         .FillColor.Automatic = False
         .FillColor.Set 0, 0, 0
      End With
   Next i
End Sub

VB6.0　Windows2000

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -