Reset Page Breaks

[jansbl]

Hallo,

Om alle page breaks van de sheets te verwijderen gebruik ik:

ActiveSheet.ResetAllPageBreaks

Is er ook een manier om alleen de horizontale pagebreaks te verwijderen?

m.vr.gr.,

Jans

 

[Haaren101]

ActiveSheet.HPageBreaks.Delete

Ron

 

[jansbl]

ActiveSheet.HPageBreaks.Delete

Ron

Hi Ron,

Ik heb mijn regel vervangen door: ActiveSheet.HPageBreaks.Delete,
maar krijg de volgende foutmelding:

Fout 438 tijdens uitvoering:
Deze eigenschap of methode wordt niet ondersteund door dit object.

Enig idee?

Jans

 

[huijb]

ActiveSheet.HPageBreaks(1).Delete

dit werkt wel. Daar kan je ook zelf achterkomen door een paginaeinde in te voegen en met de macrorecorder deze weer te verwijderen.

 

[jansbl]

ActiveSheet.HPageBreaks(1).Delete

dit werkt wel. Daar kan je ook zelf achterkomen door een paginaeinde in te voegen en met de macrorecorder deze weer te verwijderen.

Dag Huijb,

Mijn vraag was misschien niet duidelijk genoeg.
Ik bedoelde eigenlijk is er een manier om alleen ALLE horizontale pagebreaks te verwijderen.

"ActiveSheet.HPageBreaks(1).Delete" verwijderd alleen de eerste HPageBreaks. De andere blijven staan.

Ik weet natuurlijk dat ik een loop kan maken, maar ik vroeg me af of er zoiets zou zijn als:
"ActiveSheet.ResetAllHPageBreaks"

Jans

 

[Wigi]

Ga maar voor een lus

 

[huijb]

Dan begreep ik je inderdaad verkeerd.

 

[Wigi]

Ga maar voor een lus

Sub macro1()
    
    Application.ScreenUpdating = False
        
    Do While ActiveSheet.HPageBreaks.Count > 0
        ActiveSheet.HPageBreaks(ActiveSheet.HPageBreaks.Count).Delete
    Loop
    
    Application.ScreenUpdating = True
    
End Sub

Wigi

 

[jansbl]

Sub macro1()
    
    Application.ScreenUpdating = False
        
    Do While ActiveSheet.HPageBreaks.Count > 0
        ActiveSheet.HPageBreaks(ActiveSheet.HPageBreaks.Count).Delete
    Loop
    
    Application.ScreenUpdating = True
    
End Sub

Wigi

Dag Wim,

Op het eerste gezicht leek het bijzonder goed te werken, maar...

De lus haalt de handmatig (of per macro) aangebrachte HPageBreaks weg tot het punt waar vanwege het papierformaat een pagebreak zit.
Bij het verwijderen v.d. HPageBreaks schuift de "papier-pagebreak" naar boven.
Zodra er boven die "papier-pagebreak" geen HPageBreaks meer zijn, stopt de lus.

De HPageBreaks verder naar onderen zijn dan nog aanwezig.

m.vr.gr.,

Jans