Excel 2003 Diagramm + VBA

Technolog · 15 Май 2007

Создаю из под Access диаграмму и начинаю форматировать. Как только дохожу до строк

Исходный код

.Chart.SeriesCollection(i).XValues = "=" & blatt2 & "!R1C2:R1C" & schritt + 1
With .Chart.SeriesCollection(i).Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
End With
.Chart.SeriesCollection(i).Shadow = False
With .Chart.SeriesCollection(i).Fill
        .Patterned Pattern:=39 'msoPatternSolidDiamond
        .Visible = True
        .ForeColor.RGB = RGB(255, 255, 255)
        .BackColor.SchemeColor = 3
End With

Показать весь код

стопор. Виной всему ForeColor в строке 10. В Еxcel она работает как в последней строке через SchemeColor, но у меня есть уже цвета которые надо туда ставить и частенько они с SchemeColor не совпадают( цвета взяты из стандартного набора Excel, но не по номеру SchemeColor=23, а по RGB(51,153,51)). Я уже и .RGB=rgbRed и .RGB=16777215 пробовал, не идет.

Поделиться