VBA 2007 - aktualizace grafu

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Lubosh001
nováček
Příspěvky: 2
Registrován: únor 13
Pohlaví: Nespecifikováno
Stav:
Offline

VBA 2007 - aktualizace grafu

Příspěvekod Lubosh001 » 21 úno 2013 13:18

Zdravím všechny. Potřeboval bych poradit jak upravit kód tak, aby po zmáčknutí tlačítka makro nevytvořilo nový graf, ale ve stávajícím grafu aktualizovalo hodnoty a upravilo graf.

Sub graf_Klepnutí()
n = Cells(12, 19) + 1

Range("A27:AE27").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("List1!$A$27:" & Cells(27, n).Address)

Range("B27:AE27").ClearContents
Call oblast_grafu

End Sub


díky moc všem

Reklama
Azuzula
Level 3
Level 3
Příspěvky: 452
Registrován: leden 12
Bydliště: Země, bohužel...
Pohlaví: Žena
Stav:
Offline
Kontakt:

Re: VBA 2007 - aktualizace grafu

Příspěvekod Azuzula » 21 úno 2013 13:32

Vítejte na PC-HELP,
místo příkazu: ActiveSheet.Shapes.AddChart.Select
dejte: ActiveSheet.ChartObjects("Graf 1").Activate
za "Graf 1" napište název Vašeho grafu
zbytek makra je stejný

PS: spousta jednoduchých příkazů jde nahrát záznamníkem maker a to potom upravit ;)
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.

Lubosh001
nováček
Příspěvky: 2
Registrován: únor 13
Pohlaví: Nespecifikováno
Stav:
Offline

Re: VBA 2007 - aktualizace grafu

Příspěvekod Lubosh001 » 21 úno 2013 13:37

Díky moc, to je naprosto přesně ten příkaz, který potřebuju!!

--- Doplnění předchozího příspěvku (21 Úno 2013 16:40) ---

Ještě bych měl jednu, resp dvě otázky. Jakým způsobem se dá ve VBA vybrat oblast buňek pro popisky os?
a snad poslední otázka: Dá se nějakým způsobem dát popisky os jak na levou tak na pravou stranu grafu? (abych lépe viděl poslední hodnotu v grafu)

děkuji mnohokrát


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Aktualizace Win.11
    od DancaDvor » 27 srp 2024 06:54 » v Windows 11, 10, 8...
    4
    3257
    od kecalek Zobrazit poslední příspěvek
    28 srp 2024 19:35
  • Aktualizace 22H2
    od Tomas72 » 24 črc 2024 14:52 » v Windows 11, 10, 8...
    2
    2787
    od kecalek Zobrazit poslední příspěvek
    27 črc 2024 13:30
  • Nejde nainstalovat aktualizace Win 10 64 (KB5046613)
    od Minapark » 16 lis 2024 09:04 » v Windows 11, 10, 8...
    8
    3891
    od Minapark Zobrazit poslední příspěvek
    20 lis 2024 12:00
  • help, aktualizace BIOSu z FC - FE nebo FFc, B550 Gaming X (V2 rev. 1.3) Příloha(y)
    od blatantq » 05 led 2025 14:33 » v Vše ostatní (sw)
    4
    2354
    od kecalek Zobrazit poslední příspěvek
    05 led 2025 16:38
  • Aktualizace pro Windows Security platform – KB5007651
    od mmmartin » 06 úno 2025 15:29 » v Windows 11, 10, 8...
    14
    10054
    od mmmartin Zobrazit poslední příspěvek
    21 úno 2025 17:21

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: elninoslov a 1 host