Gruppe
Grafik
Problem
Bei Klick auf ein Symbol sollen die Symbole entsprechend Ampelfarben wechseln.
StandardModule: Modul1
Sub Makro1()
Makro1 Makro
Makro am 28.04.2004 von Hans W. Herber aufgezeichnet
ActiveSheet.Shapes("AutoShape 5").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 57
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End Sub
Sub Makro2()
Makro2 Makro
Makro am 28.04.2004 von Hans W. Herber aufgezeichnet
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End Sub
Sub Makro3()
Makro3 Makro
Makro am 28.04.2004 von Hans W. Herber aufgezeichnet
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 53
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End Sub
StandardModule: Modul2
Sub ChangeShapes()
Dim col As New Collection
Dim iShp As Integer, iCounter As Integer
For iCounter = 1 To 3
col.Add ActiveSheet.Shapes(iCounter)
If col(iCounter).Visible Then iShp = iCounter
Next iCounter
Select Case iShp
Case 1
col(1).Visible = False
col(3).Visible = False
col(2).Visible = True
Case 2
col(1).Visible = False
col(2).Visible = False
col(3).Visible = True
Case 3
col(3).Visible = False
col(2).Visible = False
col(1).Visible = True
End Select
End Sub