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
Configuration: Windows XP
Firefox 3.0.11
Bouton avec plusieur calque sur flash
