• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Kop- en voettekst wijzigen o.b.v. celwaarde

Status
Niet open voor verdere reacties.
A

abbcdcg

Gebruiker
Lid geworden
12 mrt 2012
Berichten
61
Hallo,

Ik weet niet of het kan, daarom eerst even een omschrijving.

In excel is het mogelijk om een kop- en een voettekst te plaatsen. Zo heb ik in de:
- koptekst rechtsboven een afbeelding
- voettekst rechtsonder
Code: 
Pagina &[Pagina]-1 van &[Pagina's]-1

Is het mogelijk, om op basis van een celwaarde (b.v. celwaarde blad 2 cel A1 is 2 i.p.v. 1
- de afbeelding in de koptekst rechtsboven te wijzigen?
- de voettekst rechtsonder te wijzigen, in dit voorbeeld wordt het dan
Code: 
Pagina &[Pagina] van &[Pagina's]
- blad 1 te verbergen?

De combinatie van deze 3 maakt het voor mij lastig dit in VBA te verwerken.

Thanks !
 
Zonder een voorbeeldbestandje
Hier een voorzetje :

Code: 
Sub InsertPicture() 
	With ActiveSheet.PageSetup.LeftHeaderPicture 
		.FileName = "C:\Sample.jpg" 
		.Height = 275.25 
		.Width = 463.5 
	End With 
	ActiveSheet.PageSetup.LeftHeader = "&G" 
	ActiveSheet.PageSetup.LeftFooter = Blad2.Range("A2")
	Blad1.Visible=False
End Sub
 
Dank je Willem, kom er al een stukje mee op weg. Het kan dus, ik heb daarom ook even een voorbeeld bestandje gemaakt.

B.v.d.
 

Bijlagen

  • VBA-Kop-voettekst.xlsm
    76 KB · Weergaven: 61
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan