• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

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

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

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

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.

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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse