Code funktioniert nicht
18.12.2004 16:27:11
Anette
ich habe noch eine weitere Frage: Warmum funktioniert der auskommentierte Code nicht, mit Selektion geht es.
' ActiveSheet.Shapes("Rectangle 1").ShapeRange.Fill.Visible = msoTrue
' ActiveSheet.Shapes("Rectangle 1").ShapeRange.Line.Visible = msoTrue
ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Line.Visible = msoTrue
Gruß
Anette