Nedenstående makro placeres ved at højreklikke på arket og vælge view code Derefter vælges "This Workbook" i stedet for generel vælges "Workbook" der indsættes følgende kode:
Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Sheet1" Then ' hvis kun et specifikt ark ellers slettes linien ActiveSheet.PageSetup.RightHeader = [Sidehoved] 'Indsætter cellem SIDEHOVED i højre top End If End Sub
Øh, jeg har slet ikke mulighed for at vælge wiew code når jeg højreklikker. Er det p.g.a VBA. I tilføjelsesprogrammer har jeg kun mulighed for Analyses Toolpak VBA og Internet Asssiten VBA.
tast ctrl+R Find den fil du vil have indsat sidehoved i. (fold den ud ved at trykke på +) Vælg This Workbook (som ligger i tilknytning til filen) Kopier hele koden, f.eks. som jeg foreslog:
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.RightHeader = Range("A1") End Sub
Yes det virker, men nu mangler jeg bare at kunne at få det til at stå i ark med diagrammer, dem kan jeg ikke vælge når jeg udfolder??? Og er det muligt at formater teksten. Men smid lige et svar du har i hvertfald fortjent point.
Betyder ikke ikke noget at der er tale om et diagram ark! Det skal smides i This Workbook - så gælder det for alle faner i filen. Skal det kun gælde for diagramarket (eller bestemte ark/diagram-faner, skal du bruge den if-sætning som tobler kom med)
tobler var først på aftrækkeren, så point til ham..
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.