VBA Excelピボットグラフカテゴリ名に基づくデータポイントマーカー

Question

Excelでデータクエリを使用してデータテーブルを作成しました。

このテーブルはピボットテーブルのデータソースで、ピボットテーブルの作成に使用されます。

今月（たとえば7月~2016年）までのデータを1つの色と別の色で表示する必要があります。私は研究を行いました。ソースデータを操作する必要があるようです（つまり、SQLクエリの結果を変更する必要があります）。私の場合は不可能です。

私は過去と未来が会う場所を示すために "今日の"データポイントを強調表示することに決めました。 VBAを使ってどうすればいいですか？私はこの論理で何かが必要です：

for i=1 to category.count 
if categoryname(i)="July-2016" then change marker style 
end if 
next 

ありがとう。

Answer 1

私は現在の月のデータポイントインデックスを決定するために、簡単なExcelの数式を使用して、現在の月にプロジェクトを開始してからマクロのループを通る線の色を変更した：

同様

 For i = 1 To DataPointIndex 
     ActiveChart.ChartArea.Select 
     ActiveChart.SeriesCollection(1).Select 
     ActiveChart.SeriesCollection(1).Points(i).Select 
     With Selection.Format.Line 
       .Visible = msoTrue 
       .ForeColor.RGB = RGB(255, 0, 0) 
       .Transparency = 0 
       .DashStyle = msoLineSolid  
     End With 

はマーカーで行うことができますしかし、私は異なる線の色を好む。