Afbeelding (logo) invoegen in meerdere werkbladen tegelijkertijd

[vriese]

Hallo,

Ik heb een bestand met 50 werkbladen.
Nu wil ik een afbeelding (logo) invoegen op dezelfde plek, in alle werkbladen tegelijkertijd.

Het gaat niet om een kop/voettekst voor afdrukken, maar echt op het scherm zelf.
Ik wil niet alle werkbladen apart door met afbeelding invoegen, omdat het logo aan te passen moet zijn op bedrijfsonderdeel.

Wie kan mij hier mee helpen? Ik heb op het forum gezocht maar mijn antwoord (nog) niet kunnen vinden.

Alvast bedankt.

Groet,
Emile

 

[verhoog]

Ik lift even mee op deze vraag als je het niet erg vindt, ben ook benieuwd of dit kan

 

[Lemmod]

Heb je misschien iets aan deze code? Het zal waarschijnlijk wel beter kunnen maar dit gaf de macrorecorder voor een deel.

Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
    ActiveWorkbook.Worksheets(sh.Index).Pictures.Insert("link naar je plaatje").Select
Next sh

 

[WHER]

Deze macro heb ik onlangs van het Web geplukt, zou moeten doen wat hier gevraagd wordt.

 

[verhoog]

Werkt inderdaad prima!