MS Excel

Vytvářím pomocí VBA graf typu X-Y se spojovacími čarami v datových řadách (typ grafu xlXYScatterLinesNoMarkers). Graf obsahuje několik datových řad a já jim potřebuji přidělit barvy podle předem stanoveného předpisu. Ruční nastavení nedělá problém ani v E-2007, ani v E-2010. Pomocí VBA v E-2010 lze tento úkon zjistit pro i-tou datovou řadu příkazem
ActiveChart.SeriesCollection(i).Format.Line.ForeColor.RGB = RGB(Red, Green, Blue)
kde Red, Green a Blue jsou složky barev. Odladění v E-2010 proběhlo v pořádku. Při spuštění odladěného sešitu v E-2007 sice VBA provede výše uvedený příkaz formálně bez reptání, fakticky se ale nestane vůbec nic.
Víte někdo, jestli lze změnu barvy spojnice v E-2007 programově zajistit tak, aby k ní opravdu došlo? Zkusil jsem použít makrokameru při ručním úspěšném nastavení barvy. V E-2007 makrokamera nezaznamenala žádnou akci.

Zaslat odpověď >

Hav-Ran(27.3.2016 7:25)#030910

Ahoj, keďže si nepriložil prílohu, vložil som do úplne nového listu tri stĺpce (liga, doteraz, odteraz), vybral oblasť a stlačil F11. Vytvoril sa nový list s grafom, linkovým.
Linku1 som naformátoval na bielo, Linka2 ostala červená.
Vo VBA som urobil príkaz

ActiveChart.SeriesCollection(1).Format.Line.ForeColor.RGB = RGB(255, 50, 0)

a spustil som ho.

A ostatné v prílohe. Toto na E2007 beží spoľahlivo.

PS: máš tam v originále (i), teda asi nejaký cyklus. Alebo malo byť (1) a je to preklep ?

Příloha: zip

30910_graf_farbalink1_e2007.zip (27kB, staženo 26x)

citovat

vovka.h(27.3.2016 9:24)#030911

Hav-Rane, dík za odpověď. To "i" odpovídá předchozímu popisu "pro i-tou položku", takže bez překlepu

.
Horší je, že Tvůj příkaz je v podstatě totožný s tím mým. Pokud to ve Tvém E-2007 běhá (a u mne v E-2010 taky), pak nemám jiné vysvětlení, než že nejde o stejnou verzi E-2007. Můžeš upřesnit verzi svého Excelu? A ještě jeden dotaz: víš, jestli Tvůj E-2007 prošel nějakými updaty? Je totiž možné, že máš ve svém E-2007 jeho původní chybu opravenou, zatímco "můj" E-2007 nikoliv.citovat

Hav-Ran(27.3.2016 10:10)#030912

Od roku 2007 bolo aspoň 100 update ... posledný viď na obrázku.

Příloha: png

30912_verzia2007.png (139kB, staženo 25x)

citovat

vovka.h(28.3.2016 9:38)#030914

Vypadá to, že jsem se dostal na jádro pudla. Zákazník, u kterého problém nastal, má CD s nedočerpanou multilicenci na Office 2007, z níž do nových počítačů svůj Office podle potřeby instaluje. Nedošlo jim, že tím instalují stále tu původní a neaktualizovanou verzi se všemi starými vadami. O této skutečnosti jsem neměl tušení. Teď jsem našel odkaz, který by daný aktualizační problém měl vyřešit:
https://support.microsoft.com/cs-cz/kb/2591018
Aktualizací sice není sto, ale je jich docela dost

Věřím, že se stav věcí zlepší. Dík za pomoc!citovat

Téma: Barva spojovací čáry pro datovou řadu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje