Avatar billede familienriis Nybegynder
21. december 2006 - 22:40 Der er 6 kommentarer og
1 løsning

Makro der indsætter og fjerner sideskift

Jeg vil gerne have en knap / makro der laver et sideskift og fjerner det igen hvis det ikke skal være der alligevel.

I excel er der en knap som hedder indsæt/fjern sideskift men den laver både lodrette og vandrette sideskift.

Det er jeg ikke interesseret i. Jeg vil kun have vandrette (horizontale) sideskift i min makro.

Jeg har forsøgt at optage makroen for hvordan excel laver sideskiftende, men ikke med ubetinget held

Jeg kan godt få den til at lave et sideskift med følgende kode:

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

men jeg kan ikke få den til at fjerne sideskiftet igen.
Jeg har bla. prøvet med følgende kode uden held:

ActiveSheet.HPageBreaks(3).Delete

Er der nogen der kan klare dette?
Avatar billede mrjh Novice
21. december 2006 - 23:01 #1
Fjerner alle sideskift

Cells.PageBreak = xlPageBreakNone
Avatar billede mrjh Novice
21. december 2006 - 23:05 #2
Selvfølgelig

Range("A15").PageBreak = xlNone

Hvis sideskiftet er her
Avatar billede familienriis Nybegynder
21. december 2006 - 23:17 #3
Tak, men der da jeg gerne ville kunne sætte et sideskift eller fjerne det igen vilkårligt skal den gerne kunne fjerne netop det sideskift jeg står ved (altså hvis der er et sideskift ligeovenover en markeret celle)

Jeg har ingen anelse om hvordan det skal gøres, men hvis man ser på hvordan sideskiftet bliver lavet laver den netop sideskiftet før den markerede celle.


ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

Kan man også få den til at fjerne netop det sideskift der er netop før den celle man står i.
Avatar billede mrjh Novice
21. december 2006 - 23:22 #4
Selection.PageBreak = xlNone

Fjerner alle sideskift over og til venstre for den valgte celle. Hvis du så kun vil have fjernet horisontal pagebreak skal du stille dig i en celle som ikke har vertikal pagebreak
Avatar billede mrjh Novice
21. december 2006 - 23:27 #5
... Og denne fjerner kun det horisontale sideskift

Rows(Selection.Row).PageBreak = xlNone
Avatar billede familienriis Nybegynder
21. december 2006 - 23:28 #6
Jamen det var jo lige det jeg skulle bruge.
Tusind tak.

Sender du lige et svar
Avatar billede mrjh Novice
21. december 2006 - 23:30 #7
Det gør jeg da, og selvtak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester