Číst v angličtině

Sdílet prostřednictvím

Tisk všech vložených grafů na listu v Excelu prostřednictvím kódu programu

  • Článek
  • Platí pro:
    Excel 2007, Excel 2003, Excel 2002, Excel 2000

V aplikaci Microsoft Excel můžete vytvořit makro jazyka Microsoft Visual Basic for Applications, které vytiskne všechny vložené grafy v listu aplikace Excel. Každý graf se vytiskne na samostatné stránce.

Další informace

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené, včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele. Chcete-li vytvořit ukázkové makro, které může vytisknout všechny vložené grafy v listu a vytisknout každý graf na samostatnou stránku, postupujte takto:

  1. Spusťte Excel a pak otevřete sešit obsahující list s vloženými grafy.

  2. Stisknutím kombinace kláves ALT+F11 spusťte Editor jazyka Visual Basic.

  3. V nabídce Vložit, klikněte na Modul.

  4. Na listu modulů zadejte nebo vložte následující kód:

    VB 
    Sub PrintEmbeddedCharts()
     Dim ChartList As Integer
     Dim X As Integer
     ' Variable chartlist stores a count of all embedded charts.
     ChartList = ActiveSheet.ChartObjects.Count
     ' Increments the counter variable 'X' in a loop.
     For X = 1 To ChartList
         ' Selects the chart object.
         ActiveSheet.ChartObjects(X).Select
         ' Makes chart active.
         ActiveSheet.ChartObjects(X).Activate
         ' Prints one copy of active chart.
         ActiveChart.PrintOut Copies:=1
     Next
End Sub

  5. V nabídce Soubor klikněte na Zavřít a vrátit se do Aplikace Microsoft Excel.

  6. Vyberte list, který obsahuje vložené grafy.

  7. v nabídce Tools (Nástroje) přejděte na Macro (Makro) a potom klikněte na Macros (Makra).

  8. V seznamu Název makra klikněte na PrintEmbeddedCharts a potom klikněte na Spustit.