로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2009.07.11 11:44
간단하게 만들어보았습니다.
필요한 기능만 구현했으니, 응용은 Mike님께서 잘 해주시리라 믿습니다. ^-^
첨부파일 다운 받으세요 ( 다운받기 : abyul_20090709_Mike-2.xls )
관련 코드는 아래와 같습니다.
차트의 x축 항목 이름을 의미하는 XValues의 전체 count를 알 수 없어서 ^-^;;
( .XValues.Count 하면 에러가 나네요)
그냥 급한데로.. 에러가 날때까지 while을 돌리는 무식한 방법을 썼습니다.
누가 아시는분 있으면 댓글 부탁드립니다. 전체 Count를 안다면 For문을 썼겠지요..
Option Explicit
Sub Chart_FillSpot(idx As Integer) Dim xvalueseries As Variant Dim i As Integer ActiveSheet.ChartObjects(1).Activate xvalueseries = ActiveChart.SeriesCollection(1).XValues
i = 1 Err.Number = 0
On Error Resume Next
Do While Err.Number = 0 If InStr(xvalueseries(i), "Lot") Then ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = idx End If i = i + 1 Loop Range("A1").SelectEnd Sub
새 창으로
선택한 기호
간단하게 만들어보았습니다.
필요한 기능만 구현했으니, 응용은 Mike님께서 잘 해주시리라 믿습니다. ^-^
첨부파일 다운 받으세요 ( 다운받기 : abyul_20090709_Mike-2.xls )
관련 코드는 아래와 같습니다.
차트의 x축 항목 이름을 의미하는 XValues의 전체 count를 알 수 없어서 ^-^;;
( .XValues.Count 하면 에러가 나네요)
그냥 급한데로.. 에러가 날때까지 while을 돌리는 무식한 방법을 썼습니다.
누가 아시는분 있으면 댓글 부탁드립니다. 전체 Count를 안다면 For문을 썼겠지요..
Option Explicit
Sub Chart_FillSpot(idx As Integer)
Dim xvalueseries As Variant
Dim i As Integer
ActiveSheet.ChartObjects(1).Activate
xvalueseries = ActiveChart.SeriesCollection(1).XValues
i = 1
Err.Number = 0
On Error Resume Next
Do While Err.Number = 0
If InStr(xvalueseries(i), "Lot") Then
ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = idx
End If
i = i + 1
Loop
Range("A1").Select
End Sub