Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Klick auf ein Symbol Farbwechsel

Gruppe

Ansicht

Problem

Bei Klick auf ein Symbol sollen die Symbole entsprechend Ampelfarben wechseln.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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

    

Beiträge aus dem Excel-Forum zu den Themen Grafik und Ansicht