|
Olisi tarkoitus saada excelin sivumuokkauksiin enemmän joustavuutta määrittelemällä sivunmuokkauksille oma "ini-tietokanta"
Tämä tietokanta voisi olla esim. taulukko, josta excel hakee sivumuokkauksen tiedot aina kun sivumuokkauksen omaa makro-näppäintä painaa.
Tässä "ini-tietokannassa" pitäisi voida määritellä headerissä/footerissa mahdollisesti käytettävät kuvat, tekstit, fontit, kentät, vaaka/pysty-asetus ja reunustukset.
Ihanne makro olisi semmoinen, että se näyttää asennusvaihtoehtot ja kysyy mitä niistä käytetään. Sellainenkin käy, jossa valitaan aina ensimmäiset asetukset. Jos tämä "ini-tietokanta" voisi olla oma excel-taulukko, olisi asetusten hallinta siinä helppoa.
Onkohan jollakulla tietoa tämmöisestä tai jotain vinkkiä antaa?
Edit
perusmakro voisi olla sitä muotoa, mitä alla, MUTTA osaako joku antaa vinkkiä miten siirtää parametrin arvo taulukosta tähän makroon?
- - - 8< - - - clip - - - 8< - - -
Sub PageSet()
ActiveSheet.PageSetup.LeftHeaderPicture.Filename = _
"C:\logo.png"
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&8File: &F" & Chr(10) & "Sheet: &A"
.CenterFooter = "&8&P(&N)"
.RightFooter = "&8&D &T"
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.40)
.TopMargin = Application.InchesToPoints(0.79)
.BottomMargin = Application.InchesToPoints(0.79)
.HeaderMargin = Application.InchesToPoints(0.20)
.FooterMargin = Application.InchesToPoints(0.39)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub
Viestiä on muokattu lähettämisen jälkeen. Viimeisin muokkaus 25. huhtikuuta 2007 @ 18:37
|
