Vooraf gedefinieerde kop en voettekst.

[kowboy007haps1]

Hallo Helpmij'ers.

Ik heb een vraag betreffende excel.
Ik heb een koptekst gemaakt d.m.v. een afbeelding en een geschreven voettekst.
Dit werkt goed maar ik zou graag de voettekst standaard uit willen hebben.
Maar dat als ik hem nodig heb, dat ik hem dan niet helemaal hoef te kopiëren. Maar gewoon kan selecteren via de voorafgedefinieerde voetteksten.

Nu de vraag:

Hoe krijg ik mijn eigen gemaakte voettekst standaard in die vooraf gedefinieerde lijst?
Zie bijlage voor wat ik bedoel met de vooraf gedefinieerde lijst.


Met vriendelijke groet,

Kowboy

 

[HSV]

Maak een ActiveX wisselknop aan op je werkblad en zet de eigenschap 'printobject' op false.
Zet de code in moduleblad waar de togglebutton staat.

Private Sub ToggleButton1_Click()
 ActiveSheet.PageSetup.CenterFooter = IIf(ToggleButton1, "Wel voettekst", "")
End Sub