Skriva ut alla inbäddade diagram programmässigt på ett kalkylblad i Excel

Anteckning

Office 365 ProPlus byter namn till Microsoft 365-appar för företag. Mer information om den här ändringen finns i det här blogginlägget.

Sammanfattning

I Microsoft Excel kan du skapa ett Microsoft Visual Basic for Applications makro som skriver ut alla inbäddade diagram i ett Excel kalkylblad. Varje diagram skrivs ut på en separat sida.

Mer information

Microsoft tillhandahåller programmeringsexempel enbart i förklarande syfte och gör inga utfästelser, varken uttryckligen eller underförstått. Detta omfattar men begränsas inte till underförstådd garanti för säljbarhet eller lämplighet för ett visst syfte. I denna artikel förutsätts att du känner till det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supportexperter kan hjälpa till att förklara funktionerna i en viss procedur, men de kommer inte att ändra dessa exempel för att tillhandahålla extra funktioner eller konstruera procedurer för att uppfylla dina specifika behov. Så här skapar du ett exempelmakro som kan skriva ut alla inbäddade diagram i ett kalkylblad och skriva ut varje diagram på en separat sida:

  1. Starta Excel och öppna sedan arbetsboken som innehåller kalkylbladet med de inbäddade diagrammen.

  2. Tryck på ALT+F11 för att starta Visual Basic Editor.

  3. Klicka på Modul på Infoga-menyn.

  4. Skriv eller klistra in följande kod på modulbladet:

    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. På Arkiv-menyn klickar du på Stäng och återgå till Microsoft Excel.

  6. Markera kalkylbladet som innehåller de inbäddade diagrammen.

  7. på menyn Verktyg pekar du på Makro och klickar sedan på Makron.

  8. Klicka på Skriv utEmbeddedCharts i listan Makronamn och klicka sedan på Kör.