Discussion :

[AlexOSX]

Bonjour à tous,

J'aimerais savoir si il existe un code VBA permettant de cacher tous les calques d'un fichier Visio afin de pouvoir, par la suite, afficher uniquement les calques souhaités?

Exemple:
Au lieux de faire --> Application.ActiveWindow.Shape.CellsSRC(visSectionLayer, 174, visLayerGlue).FormulaU = "0" (Faisant disparaître uniquement le calque 174)

Utiliser une commande qui désactive tous les calques avant d'activer ceux voulus

Je vous remercie par avance pour vos réponses.

[Jason91]

Bonjour,

J'ai eu le même besoin. Pour cela j'ai créé deux fonction en macros:

1. Une pour afficher une couche
2. Une pour masquer une couche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Function LayerOn(Couche As String)
    Dim UndoScopeID1 As Long
    Dim NomCouche As String
    'NomCouche = "01-PlcArea"
    UndoScopeID1 = Application.BeginUndoScope("Propriétés des calques")
    Dim vsoLayer1 As Visio.Layer
    Set vsoLayer1 = Application.ActiveWindow.Page.Layers.Item(NumCouche(Couche))
    vsoLayer1.CellsC(visLayerVisible).FormulaU = "1"
    vsoLayer1.CellsC(visLayerPrint).FormulaU = "1"
    Application.EndUndoScope UndoScopeID1, True
End Function]
 
[Function LayerOff(Couche As String)
    Dim UndoScopeID1 As Long
    Dim NomCouche As String
    'NomCouche = Couche
    UndoScopeID1 = Application.BeginUndoScope("Propriétés des calques")
    Dim vsoLayer1 As Visio.Layer
    Set vsoLayer1 = Application.ActiveWindow.Page.Layers.Item(NumCouche(Couche))
    vsoLayer1.CellsC(visLayerVisible).FormulaU = "0"
    vsoLayer1.CellsC(visLayerPrint).FormulaU = "0"
    Application.EndUndoScope UndoScopeID1, True
End Function]

Dans la page sur laquelle on souhaite gérer les couches, j'ai créer un bouton avec le code suivant pour afficher toutes les couches désirées. Le nom de chaque couche est le paramètre de la fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
[Private Sub CommandButton27_Click() 'Afficher tout
    LayerOn ("01-PLCAREA")
    LayerOn ("02-SUPPLY")
    LayerOn ("03-MACHINE")
    LayerOn ("04-SAFETYAREAS")
    LayerOn ("05-PANELS")
    LayerOn ("06-HMI")
    LayerOn ("07-GATES")
    LayerOn ("08-LIGHTGUARD")
    LayerOn ("09-ESTOP")
    LayerOn ("10-FENCE")
    LayerOn ("11-MOTORS")
    LayerOn ("12-DATA")
    LayerOn ("13-AIR")
End Sub

Et un autre bouton pour tout cacher:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
[Private Sub CommandButton28_Click() 'Masquer tout
    LayerOff ("01-PLCAREA")
    LayerOff ("02-SUPPLY")
    LayerOff ("03-MACHINE")
    LayerOff ("04-SAFETYAREAS")
    LayerOff ("05-PANELS")
    LayerOff ("06-HMI")
    LayerOff ("07-GATES")
    LayerOff ("08-LIGHTGUARD")
    LayerOff ("09-ESTOP")
    LayerOff ("10-FENCE")
    LayerOff ("11-MOTORS")
    LayerOff ("12-DATA")
    LayerOff ("13-AIR")
End Sub]

On peut aussi ajouter un bouton pour chaque couche unitairement.
Bon courage