Spojnice trendu - úpravy rovnice ve VBA

Vytvoříme v grafu polynom 5 řádu

Předpoklad, že již máme graf s nějakou křivkou.

Worksheets("List1").Activate Worksheets("List1").ChartObjects("graf 1").Activate ActiveChart.SeriesCollection(1).Trendlines(1).Select With Selection .Type = xlPolynomial .Order = 5 ' nastaví řád polynomu podle hodnoty v buňce _RadPolyI .Forward = 0 .Backward = 0 .InterceptIsAuto = True .DisplayEquation = True .DisplayRSquared = False .NameIsAuto = True .DataLabel.NumberFormat = "0.0000000000000000E+00" End With

Uložení rovnice do proměnné

Předpokládám, že již máme rovnici k dispozici v daném grafu.

' vstoupime do daného listu Worksheets("List1").Activate ' přepneme se do grafu ActiveSheet.ChartObjects("graf 1").Activate ' ulozime do promene sFormula sFormula = ActiveChart.SeriesCollection(3).Trendlines(1).DataLabel.Text ' jen si ji pro kontrolu zobrazíme do dialogového boxu MsgBox sFormula

Úprava rovnice pro výpočet

Uložení rovnice do buňky.

' uložíme do buňky G1 Worksheets("List1").Range("G1").Value = sFormula

Předpokládám, že jako rovnici spojnice trendu je polynom patého řádu. Takže musíme rovnici uptavit tak ať je použitelná pro výpočet.

' aktivujeme buňku na požadovaném listě Worksheets("List").Activate Worksheets("pom").Range("G1").Activate ' upravíme vzoreček do požadované podoby ActiveCell.Replace What:="x5", Replacement:="*G2^5" ActiveCell.Replace What:="x4", Replacement:="*G2^4" ActiveCell.Replace What:="x3", Replacement:="*G2^3" ActiveCell.Replace What:="x2", Replacement:="*G2^2" ActiveCell.Replace What:="x", Replacement:="*G2" ActiveCell.Replace What:="y = ", Replacement:=""

Rovnici převedeme do výpočtového tvaru (buňka G3). Pak stačí za G2 dosazovat a budeme mít výpočet.

pomocna_a = "=" & Worksheets("pom").Range("G1").Value Worksheets("pom").Range("G3").FormulaLocal = pomocna_a

Další možnosti

Rovnici můžeme skrýt.

' skrýt rovnici .DisplayEquation = False

Závěrem

Jelikož potřebuji pro řešení pracovního problému tak jsem si připravil podklady. A proč je nepublikovat, určitě se bude někomu hodit :) Těšit se můžete i nad další články kolem úpravy a formátování grafů.

Článek byl aktualizován: 19.09.2020 11:06

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.