|
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つで済みそう。
散布図グラフは今度またゆっくり考え直したいと思います。
大変勉強になりました。
有難うございました!!
|
|