Miten VBA-makrolla saa piilotettua kaikkien työkirjan sheettien scroll bar:t ja Gridlinet?
VBA-ongelma
VBA
5338
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Turvaa tilisi vahvistamalla puhelinnumerosi. Voit silloin palauttaa unohtuneen salasanan tekstiviestillä.
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 5
Vanhimmat
For s = 1 To ActiveWorkbook.Sheets.Count
Sheets(s).Activate
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
Next s
Sheets(1).Activate
Kiitos, koodi toimii... Mutta mitenkäs tulostuksen jälkeen? Olen toteuttanut tulostuksen VBA:n avulla ja tulostamisen jälkeen työkirjaan jää gridlinet ja headerit näkyviin... Antamasi koodin pätkä ei enään silloin pelitä. :(
Niin siis täällä rivillä
ActiveWindow.DisplayGridlines = False
lähtee ruudukko pois, mutta onko mahdollista saada myös ruudukko palkit pois eli ne missä on:
A, B, C, jne ja 1, 2 ,3 , jne
ActiveWindow.DisplayHeadings = False
ActiveSheet.PageSetup.PrintHeadings = False
ActiveSheet.PageSetup.PrintGridlines = False
poistaa sivun asetuksista ruudukon ja headerit.
ActiveWindow.DisplayHeadings = False
poistaa näkymästä rivi- ja sarakeotsikot.