< návrat zpět

MS Excel

Téma: Barva výplně grafu podle barvy buňky rss

Zaslal/a Jarda_PHA 9.3.2015 18:58

Dobrý den, potřebuji ve výsečovém grafu vybarvovat barvu výplně výseče podle barvy zdrojových buněk. Buňky vybarvuji pomoci podmíněného formátování podle obsahu buňky. Dokážete mi někdo poradit, zda to jde pomocí funkce nebo makra?

https://dl.dropboxusercontent.com/u/89767820/TEST-barevnost.zip

Děkuji

Zaslat odpověď >
Pavlus(9.3.2015 20:37)#024035
avatar
Pomocí funkce to nejde, s využitím makra ano.
Musela by se vytvořit událost listu a do ní vložit příslušné makro...
P.citovat
Jarda_PHA(9.3.2015 20:54)#024036
avatar

Pavlus napsal/a:

Pomocí funkce to nejde, s využitím makra ano.
Musela by se vytvořit událost listu a do ní vložit příslušné makro...
P.


7 Tak to jsem asi ztracený. Zvládnu tak zobrazení hlášky "Hello World"... Programování není můj šálek kávy.citovat
kp57(9.3.2015 23:33)#024040
avatar
Pro tento konkrétní případ např:Private Sub Test_Barev()
Dim Cht As Chart, Srs As Series, Pt As Point
Dim ArPps() As String, Pps As String, nFC As Long
Set Cht = ActiveSheet.ChartObjects(1).Chart
Set Srs = Cht.SeriesCollection(1)
nFC = 0
For Each Pt In Srs.Points
ArPps = Split(Pt.DataLabel.Caption, ";")
Select Case ArPps(0)
Case Is = "TEST-A": nFC = 14277081
Case Is = "TEST-B": nFC = 15773696
Case Is = "TEST-C": nFC = 65535
Case Is = "TEST-D": nFC = 10213316
End Select
Pt.Format.Fill.ForeColor.RGB = nFC
Next
Set Cht = Nothing: Set Srs = Nothing
End Sub
:citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje