2017-12-28 36 views
0

의 나사 범례를 스크랩합니다. 따라서 하나의 시리즈 (x = lng, y = lat, z = population) 만있는 2D 버블 차트가 있습니다.루핑 전체 데이터 포인트는 차트

일부 소셜 그룹에 대한 추가 정보를 코딩하기 위해 데이터 포인트 전체를 반복하고 버블의 RGB를 변경하고 싶습니다.

Sub PintarColores() 
    Dim p As Point 

    Worksheets(2).ChartObjects(1).Activate 
    For Each p In ActiveChart.SeriesCollection(1).Points 
     p.Format.Fill.ForeColor.RGB = rgbRed 
    Next 
End Sub 

이 코드는 빨간색으로 모든 점을 넣은 테스트 코드입니다. 작업을 마친 후에 로직이 추가됩니다.

코드를 실행하기 전에 단일 세리에 그래프에는 하나의 항목 (채우기)이있는 범례가 있습니다. 내가 그것을 실행 한 후 색상이 예상대로 변경되었지만 범례가 경도 값 목록으로 변경됩니다 (y).

arround를 찾으려고했지만 왜 찾을 수 없는데, 누구든지 약간의 빛을 내뿜을 수 있습니까?

감사합니다.

+0

각 데이터 포인트를 개별적으로 포맷하기 때문입니다. 'Format Data' 창에서'Fill & Line'을 클릭하고'Fill'을 확장 한 후'Vary colors by point' 체크 박스를 선택하면됩니다. 내가 아는 한 이것을 피할 방법이 없습니다. –

+0

감사. 정확히 그 사건 같다. 너무 나빴어. 나는 전설을 스스로 만들거야. 고마워요. m8. 나는 당신의 답을 검증하는 방법이나 당신에게 +1을주는 방법을 모른다. – Torrezno

+0

시리즈가 하나 뿐인 경우 범례가 다소 중복됩니다. –

답변

0

악셀 리히터 (Axel Richter)가 대답했습니다. 이 방법을 사용할 수 없습니다.