Supportnet / Forum / SW-Sonstige
Kennt sich hier jemadn mit Microsoft Viso aus?????
Frage
Hab einen wichtige Frage zu Makros!!
Und zwar wenn ich ein makro aufzeichne und dann ausführe, dann haut alles hin, wenn ich jetzt ein Makro aufzeiche mit dem ich einen Layer auf sichtbar schalte, dann funktioniert das nicht:
So siht der aufgezeichnete Quellcode aus:
Dim UndoScopeID1 As Long
UndoScopeID1 =
Application.BeginUndoScope("Layereigenschaften")
Dim vsoLayer1 As Visio.Layer
Hier liegt das Problem:-->
Set vsoLayer1 = Application.ActiveWindow.Page.Layers.Item(4)
vsoLayer1.CellsC(visLayerVisible).FormulaU = "1"
Application.EndUndoScope UndoScopeID1, True
mfg manii