11546_priklad_grafu.zip
Ahoj, dá sa to vyriešiť i manuálne, klikom do legendy a následným klikom na určitú položku v legende, ktorým ju vyberieš. Klikom pravým tlačítkom vyberieš z kontextového menu formátovanie a zvolíš si farbu, v grafe sa to potom prekreslí. Pokiaľ ale chceš jeden odtieň pre 60-80 a iný pre 80-95, budeš musieť nataviť hlavnú jednotku osy na 5, tým pádom Ti do legendy pribudnú položky, štyrom pre rozsah 60-80 priradíš jednu farbu a trom pre rozsah 80-95 farbu inú, atď. Legendu z grafu môžeš následne odstrániť, prípadne miesto nej vložiť odrázok legendy pôvodnej, prípadne si nejaký popisok (legendu) do grafu dotvoriť ručne. Trochu opruz, ale toto je jediné non-VBA riešenie, ktoré ma napadá.
čerpal som z tohoto textu:
The only way to format the colors of a range of data in a surface chart is through the legend. It takes one click to select the legend, a second to select the small colored square, and then a double click to access the Format Legend Key dialog (this is a good time to use CTRL-1). This is one way to format a series in a more conventional chart, but it's the only way to format the data colors in a surface chart.
Link na zdroj: http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=447
Pokiaľ by si chcel VBA, tak si uprav nasledujúci kód (mení farbu u počtu položiek v legende, ktorý si riadiš cez premennú i v kóde:
Sub Test()
Dim C As Chart
Dim i As Long, Max As Long
Dim Red As Integer, Blue As Integer
Set C = ActiveSheet.ChartObjects("Graf 1").Chart
With C.Legend
Max = .LegendEntries.Count 'použi prípadne v cykle, v tento moment to kód nepoužíva
For i = 1 To 4 'pohraj si s indexom a farbičkami pre jednotlivé rozsahy
Red = 220
Blue = 0
.LegendEntries(i).LegendKey.Interior.Color = RGB(Red, 0, Blue)
Next
End With
End Subcitovat
čerpal som z tohoto textu:
The only way to format the colors of a range of data in a surface chart is through the legend. It takes one click to select the legend, a second to select the small colored square, and then a double click to access the Format Legend Key dialog (this is a good time to use CTRL-1). This is one way to format a series in a more conventional chart, but it's the only way to format the data colors in a surface chart.
Link na zdroj: http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=447
Pokiaľ by si chcel VBA, tak si uprav nasledujúci kód (mení farbu u počtu položiek v legende, ktorý si riadiš cez premennú i v kóde:
Sub Test()
Dim C As Chart
Dim i As Long, Max As Long
Dim Red As Integer, Blue As Integer
Set C = ActiveSheet.ChartObjects("Graf 1").Chart
With C.Legend
Max = .LegendEntries.Count 'použi prípadne v cykle, v tento moment to kód nepoužíva
For i = 1 To 4 'pohraj si s indexom a farbičkami pre jednotlivé rozsahy
Red = 220
Blue = 0
.LegendEntries(i).LegendKey.Interior.Color = RGB(Red, 0, Blue)
Next
End With
End Subcitovat
RSS nejnovější články