HERBERS Excel-Forum - die Beispiele

Thema: Bei Klick auf ein Symbol Farbwechsel

Home

Gruppe

Grafik

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

Formular Steuerelement bei "geschützer Ansicht" VBA und geschützte Ansicht
Hilfe Laufzeitfehler wegen benutzerdef. Ansicht Jahresgrafik
Grafik - Linie nach unten, Kriterien links Grafik auf Position bringen
Viele Grafiken mit gleicher Größe einfügen Excel Grafiken nur schwarz/weiss
Grafik drucken Grafik nach Change in Exceltabelle laden
Bereich als Grafik speichern Grafiken kopieren
OT: Exploreransicht Text und Grafik in Fusszeile
Grafik in der Kopfzeile - OHNE PFADANGABE Grafik, Datenbeschriftung
Linie in einer Grafik ansprechen Grafik positionieren
Linien-Säulen auf zwei Achsen - Grafik Grafik in Zelle einfügen, wie?
mehrere Grafiken aus derselben Pivot Symbolleistenansicht beim Userformaufruf
Grafik anzeigen - evtl. Reihenfolge ändern? Grafikobjekt nach Zelleingabe anpassen
Dateiansicht Grafik in Zellen - Sparklines
Grafik Option Explicit zusweisen Benutzerdefinierte Ansicht nach Blattschutz
Grafik bei Nullen nicht weiterführen Benutzerdefinierte Ansichten trotz Blattschutz
Makro bei Rechtsklick auf Grafik Kontextmenü Grafik
Grafikgröße nach Hyperlink festlegen Grafik Drehmoment Leistung
Grafiken mit Säuledarstellung Dynamische Grafik/Diagramm
Bildschirmansicht optimieren Beschriftung bei Bubble-Grafik
gestapelte Säulengrafik Dynamischer Datenbereich bei Grafiken
Grafik Schwellenwert in Excel-Grafik einfügen?
wechselnde grafiken abhängig von wert einblenden Grafik-Spezial
Vorschaugrafik Grafikformat
Grafik in Tabelle, abhängig von Zellinhalt Grafikprogramm über Excel legen
Grafik in XLS-Kopfzeile im PPT darstellen Ansicht wie in Excel XP