Grafieken met macro

[Ingrid B]

datumstring = Right(GrafTitel, Len(GrafTitel) - 3)

In de titel staat de datum met de weekdag in letters. Om de datum in VBA als datum te kunnen herkennen, moeten de eerste drie karakters (dus de weekdag en de daaropvolgende spatie) worden verwijderd. Eerst wordt het aantal karakters geteld met de functie Len. En dan wordt het rechtse deel van de titel behouden met het aantal - 3 karakters

Kan dit misschien met een page-break om de drie grafieken? En waar kan ik dat vinden?

Met deze code worden de grafieken per 3 op een pagina geplaatst:

    datum2 = Format(Weekday(j), "dddd")             'te controleren dag
        If Datum = datum2 Then                      'wanneer grafiek juiste dag is, dan:
            ActiveChart.ChartArea.Copy              'grafiek kopieren
            Sheets("grafsort2").Activate
            Range("A1").Select                      'eerste cel in nieuwe bereik kopieren
            ActiveCell.Offset(Counter * 20, 0).Select 'naar invoegpositie
            ActiveSheet.Paste                       'grafiek plakken
            If Counter > 0 And Counter Mod 3 = 0 Then _
              Range("A1").Offset(Counter * 20, 0).PageBreak = xlPageBreakManual
            Counter = Counter + 1                   'teller met 1 verhogen
        End If
    
Next i
Next j
With Sheets("grafsort2").PageSetup
    .TopMargin = Application.CentimetersToPoints(2)
    .BottomMargin = Application.CentimetersToPoints(1.5)
    .CenterHorizontally = True
End With

De grafieken worden nu volledig links geplaatst en om de 20 regels ipv 22.
Om de 3 grafieken wordt er een hard pagina-einde geplaatst.
En tot slot worden de boven- en ondermarge aangepast, en wordt de pagina horizontaal gecentreerd.

 

[Christian Evers]

Whoohoohooo Magnifiek!

Precies zoals ik het wilde.

Ik weet voorlopig voldoende. Heb nu genoeg te analyseren.

Bedankt Ingrid! Je krijgt een speciale vermelding in mijn afstudeerverslag