| 
    
     |  | nさん、お返事有難うございます!! 
 >Dim sr As Series
 >Dim x As Long
 >
 >With ActiveChart
 >  For Each sr In .SeriesCollection
 >    With sr
 >      If .Name Like "男 - *" Then
 >        x = vbBlack
 >      Else
 >        x = vbRed
 >      End If
 >      .MarkerBackgroundColor = x
 >      .MarkerForegroundColor = x
 >      .MarkerStyle = xlCircle
 >      .MarkerSize = 4
 >    End With
 >  Next
 >End With
 
 希望通りのものが出来ました!
 いっぱい時間をかけて悩んでいたので大変助かりました。
 
 >以下余談ですが
 >>性別 氏名
 >という事は、ピボットテーブルの結果は集計ではなくて単独データですよね?
 >ピボットグラフを使わず元データからグラフを作成しても良さそうな気が。
 >年代別にまとめずとも、
 >年齢別年収を散布図グラフにして男性と女性で分ければ系列は2つで済みそう。
 
 散布図グラフは今度またゆっくり考え直したいと思います。
 大変勉強になりました。
 有難うございました!!
 
 |  |