Comment est-ce que je peux facilement imprimer plusieurs couches sur plusieurs pages dans Visio

Question

Nous avons créé un organigramme en utilisant Visio qui a plusieurs couches. (Le contexte est que chaque couche représente des variations sur un processus de base.)

Maintenant, nous voulons être en mesure d'imprimer chaque couche individuellement. Actuellement, cela implique beaucoup de cliquer pour sélectionner le bon calque et puis appuyez sur imprimer - puis répéter ceci pour chacune des 10 couches.

Y a-t-il un moyen plus simple? Par exemple. définir chaque couche une fois et utiliser un outil/une macro "Imprimer chaque couche"?

Answer 1

C'est assez facile grâce à VBA. Je l'ai testé en utilisant l'exportation de la page en jpeg, mais l'impression devrait aussi bien fonctionner. Il passe juste à travers toutes les couches de la page active, en cachant chaque couche en premier, puis en affichant la couche en boucle et en imprimant.

Sub PrintLayers() 
    Dim CurrShowLayer As Visio.Layer, CurrLayer As Visio.Layer 
    For Each CurrShowLayer In ActivePage.Layers 
     For Each CurrLayer In ActivePage.Layers 
      CurrLayer.CellsC(visLayerVisible).Formula = "0" 
     Next CurrLayer 
     CurrShowLayer.CellsC(visLayerVisible).Formula = "1" 
     ActivePage.Print 
    Next CurrShowLayer 
    For Each CurrLayer In ActivePage.Layers 
     CurrLayer.CellsC(visLayerVisible).Formula = "1" 
    Next CurrLayer 
End Sub