Alle grafieken in spreadsheet m.b.v. macro printen

[Assiej]

Hallo,

Ik heb een spreadsheet met 20 tabbladen, waarin allemaal grafieken staan. Ik wil graag deze grafieken met behulp van een macro in één keer uitprinten. Nu heb ik wel een macro gevonden waarmee ik alle grafieken in één werkblad kan printen, en ik heb een macro gevonden waarin ik alle werkbladen kan selecteren, maar het lukt me niet om deze twee samen te voegen.

Code voor het printen van alle grafieken in één werkblad:

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

Code voor selecteren van alle werkbladen:

Sub SelectAllSheets()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Sheets
        If ws.Name <> "Voorblad" And ws.Name <> "Data" And ws.Name <> "Categorieën" Then ws.Select False
    Next ws
    Application.ScreenUpdating = True
End Sub

Kan iemand mij misschien hiermee helpen? Alvast bedankt.

 

[wampier]

zoiets dan (even uit hoofd geen excel om te testen hier)

for each ws in activeworkbook.sheets
   for each mychart in ws.chartobjects
      mychart.printout copies:=1
   next mychart
next ws

eventueel te combineren met de if statement om sheets uit te sluiten

 

[Assiej]

Bedankt voor je reactie. Maar hij werkt niet. Hij geeft een foutmelding vanaf mychart.printout copies:=1.

 

[wampier]

Ik kan het nu even niet nagaan, maar als je even vermeld welke foutmelding, kan ik (of de anderen op het forum) er nog even naar kijken

 

[Assiej]

 

[wampier]

Mogelijk moet chart nog specifiek gespecificeerd worden:

for each ws in activeworkbook.sheets
   for each mychart in ws.chartobjects
      mychart.chart.printout copies:=1
   next mychart
next ws

 

[Assiej]

Ja, hij werkt! Heel erg bedankt!

 

[Assiej]

Nu kom ik toch nog een klein probleempje tegen. Ik wil graag deze grafieken als landscape printen. Ik krijg dit niet ingebouwd in de macro. Hoe kan ik dit wel voor elkaar krijgen? Nogmaals alvast bedankt.

 

[wampier]

probeer het zo eens:

for each ws in activeworkbook.sheets
   for each mychart in ws.chartobjects
      mychart.Chart.PageSetup.Orientation = xlLandscape
      mychart.chart.printout copies:=1
   next mychart
next ws

 

[Assiej]

Helaas print hij nog steeds als portrait.

 

[wampier]

Dan ben ik zonder opties, behalve het met de hand per grafiek in te stellen. Mogelijk kun je nog een truc uithalen door de chart te resizen of zo, maar daar heb ik helaas geen ervaring mee