Calque visio

Fermé
vanvan74 Messages postés 1 Date d'inscription mardi 7 juillet 2009 Statut Membre Dernière intervention 7 juillet 2009 - 7 juil. 2009 à 09:51
Bonjour,

Je souhaite activer la coloration d'un calque avec un bouton bascule.
Mais je bloque pour activer cette fonction

voici mon code:

Sub critique()
Dim UndoScopeID1 As Long
UndoScopeID1 = Application.BeginUndoScope("Propriétés des calques")
Dim vsoLayer1 As Visio.Layer
Set vsoLayer1 = Application.ActiveWindow.Page.Layers.Item(1) ==> je récupère le calque
vsoLayer1.??? ==>je ne connais pas le code pour colorier le calque

Application.EndUndoScope UndoScopeID1, True
End Sub

Merci de votre aide
Yvan