Uložení grafu jako jpg Vyřešeno

[VALL]

Ahoj, řeším export grafu do jpg a následné uložení na definované adrese pod definovaným názvem.
Zkoušel jsem MS nápovědu - export.method, něco na ozgrid.com, ale nic nevedlo k úspěšnému cílu. Vždy jen poloviční řešení.
POSTUP:
1. Výběr grafu
2.Exportovat nebo ihned uložit do jpg,
3. cesta uložení na disku,
4. název souboru

[Reklama]

[guest]

No a napíšeš název a dáš Uložit. Kde je tedy chyba?

[VALL]

Doplňuji - pomocí VBA

--- Doplnění předchozího příspěvku (19 Čer 2012 13:44) ---

druhé doplnění - ořezání velokosti, tzn., pouze výběr části grafu.

--- Doplnění předchozího příspěvku (19 Čer 2012 14:40) ---

Tak jsem to vyřešil. Pro názornost přikládám kód. Když bude někdo znát lepší řešení, rád se ho dozvím.

Kód: Vybrat vše

Sub ManagementGraf()
'Uloží graf na disk jako jpg
'----------------------------------
    Dim graf As ChartObject
    Dim nazev As String
   
    datum = Format$(Now, "yyyy/mm/dd")
    hodina = Hour(Now)
    minuta = Minute(Now)
    nazev = "p:\13_TO\21_Kapacitni report\Historie\Montáž\2012\KapaMontaz_" & datum & "_" & hodina & "." & minuta & ".jpg"
   
    Set graf = Workbooks("Kapa_Montaz").Sheets("CapaGraf").ChartObjects("ManagementGraf")
    graf.Chart.Export Filename:=nazev, FilterName:="jpg"
    Workbooks("Kapa_Montaz").Sheets("CapaGraf").Hyperlinks.Add Anchor:=Range("J1"), Address:=nazev, TextToDisplay:=nazev