VBA Specifieke afbeelding verbergen / weergeven

[Weust]

Dag allemaal,

Ik ben opzoek naar een macro waarmee ik specifieke afbeeldingen kan verbergen of weergeven.

zo iets:

Sub afbeelding_1

Activedocument.image("afbeelding1").visible=true
Activedocument.image("afbeelding2").visible=false
Activedocument.image("afbeelding3").visible=false

End sub

Sub afbeelding_2

Activedocument.image("afbeelding_1").visible=false
Activedocument.image("afbeelding_2").visible=true
Activedocument.image("afbeelding_3").visible=false

End sub

Sub afbeelding_3

Activedocument.image("afbeelding_1").visible=false
Activedocument.image("afbeelding_2").visible=false
Activedocument.image("afbeelding_3").visible=true

End sub

 

[OctaFish]

Leuk, maar wat wil je precies?

 

[Weust]

Ik heb een document sjabloon (voorkant van een dossier) waarbij ik de gebruiker wil laten kiezen uit 5 verschillende afbeelding.
Nu ben ik opzoek naar een marco die na de keuze van de gebruiker de gekozen afbeelding weergeeft, en de andere dus verbergt.

Als je in het lint naar 'Opmaak' en dan onder het gedeelte 'Schikken' het 'Selectievenster' opent kun je dit al handmatig doen.
Helaas kun je deze handeling niet opnemen met de macro-recorder.

De keuze wordt gemaakt in een popup / userform waar ook andere gegevens als document Titel e.d. dienen te worden opgegeven.

 

[Weust]

Oplossing:

Sub afbeelding_1

ActiveDocument.Shapes("afbeelding1").Select
Selection.ShapeRange.Visible = msoTrue

ActiveDocument.Shapes("afbeelding2").Select
Selection.ShapeRange.Visible = msoFalse

ActiveDocument.Shapes("afbeelding3").Select
Selection.ShapeRange.Visible = msoFalse

End sub

etc....

nb. Dit werkt alleen als je de afbeeldingen NIET in de kop- / voettekst hebt staan.

Dank ...

 

[OctaFish]

Waarom gebruik je niet het veld { INCLUDEPICTURE } en koppel je daar één afbeelding aan? Lijkt mij veel beter ook voor je document.