Active X Steuerelement umgehen

[Gast 123]

Hallo

es stimmt NICHT das du bei einem normalen Steuerelement zwei Buttons brauchst!
Du kannst per Makro prüfen ob etwas ausgeblendet ist, und blendest es dann Ein oder Aus!
Es ist also nur eine Frage wie Intelligent dein Makro ist.   Hilft dir das weiter???

Ich bevorzuge den normalen Command Button, dem kann man jedes Makro direkt zuweisen!

mfg
Gast 123

[Egon12]

Hallo,
 
anbei das Ganze mit Iconwechsel im Button. Da kannst ggf. auch andere Icons verwenden. Hier ist aber zu beachten, dass nur imageMso zur Auswahl stehen.
Den Code habe ich mal verschlankt, da dies für deine Zwecke so ausreichend ist.

  ToggleButton Ribbon.xlsm (Größe: 18,8 KB / Downloads: 5)

Gruß Uwe

[UweD]

Hallo

Du kannst auch einfach einen Klick oder Doppelklick auf eine Zelle auswerten.
Ich färbe die Zellen einfach Grau und Rahen drum etc...

Beispiel für Doppelklick auf Zellen P1 und P3

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [P1]) Is Nothing Then
        Cancel = True
        'Dein Code 1
    End If

    If Not Intersect(Target, [P3]) Is Nothing Then
        Cancel = True
        'Dein Code 2
    End If

End Sub

LG UweD

[StrammerMax]

Ich habe es auf die Schnelle nicht geschafft eine eurer Lösungen einzubauen. Wollte nie so wie ich 

Ich habe es dann mit 2 Buttons "on/off" gelöst. 

Das funktioniert auch alles bestens. 

Aber eine Sache nervt mich noch extrem. 

Ich habe eine Farbe pro Alternative. 
Aber jedes Mal wenn ich die Alternative aus- und wieder einblende gehen die Farben verloren und die Balken und Linien der Alternative bekommen irgendwelche zufälligen Farben. 

Hat zufällig jemand eine Idee wie man dafür sorgen kann, dass die Farbe beibehalten wird?

Ich habe euch mal eine kleine Beispieldatei gebastelt. 


  Test.xlsm (Größe: 66,94 KB / Downloads: 7)

[Egon12]

sorry falsch gedacht.

[HKindler]

Hi,

speichere dein Diagramm als Vorlage. und verwende dann diese.

Könnte allerdings sein, dass du diese Vorlage dann auf jeden Rechner kopieren musst. Bin ir da nicht sicher...

[Kuwer]

Hallo,

mal so auf die Schnelle:


  diagrammtest_kuwer.xlsm (Größe: 67,78 KB / Downloads: 7)

Gruß, Uwe

[StrammerMax]

Mega @Kuwer - vielen Dank.

Der Umschaltbutton ist natürlich viel schöner als meine Lösung mit 2 Buttons.

Und die Farben passen auch perfekt.
Ich wusste leider nicht, wie man die Elemente in der Grafik ansprechen kann. Dass es "einfach" über den Namen geht ist super.

Eine kleine Frage noch dazu.
Wie kann man den technischen Namen der Grafik auslesen?

Also den Part "With Tabelle2.ChartObjects(1).Chart.SeriesCollection"

Also woher weiß ich, dass es Tabelle2 und Object 1 ist?

[StrammerMax]

Bin jetzt genau an dem Punkt. 
Habe alles implementiert. 

Aber bei:
  With Tabelle2.ChartObjects(1).Chart.SeriesCollection

Wirft er beim Ausführen einen Fehler. 
Wo / wie muss ich Tabelle2 definieren?

Ich sehe in der Beispieldatei keine Tabelle die genutzt wurde.

[schauan]

Hallöchen,

schaue im Projektexplorer, unter welchem Namen sich Deine Tabelle verbirgt ...
---> z.B. Tabelle2 (MeinDiagrammBlatt)