Toggle Button vervangen door .....

[Gerard2348]

Beste Helpers,

Is het mogelijk om de werking van een toggle button te laten doen door een Vorm cq Object.

Bekijk bijlage aan-uit knop.xlsm

Dit vanwege "cosmetische" uitstraling

 

[edmoor]

Dat kan. Kijk hier maar eens naar:
Bekijk bijlage aan-uit knop.xlsm

 

[Gerard2348]

Ha edmoor,

Helemaal mooi.
Jouw code met kleine toevoeging en ik ben weer helemaal blij.

Sub AanUit_Klikken()
    If ActiveSheet.Shapes("Aanuit").TextFrame.Characters.Text = "Controle Aan" Then
        ActiveSheet.Shapes("Aanuit").TextFrame.Characters.Text = "Controle Uit"
     ActiveSheet.Shapes("Aanuit").TextFrame.Characters.Font.ColorIndex = 3 'Red
 [COLOR="#0000CD"]Call eigen macro[/COLOR]
    Else
        ActiveSheet.Shapes("Aanuit").TextFrame.Characters.Text = "Controle Aan"
      ActiveSheet.Shapes("Aanuit").TextFrame.Characters.Font.ColorIndex = 1 'Zwart
 [COLOR="#0000CD"] Call eigen macro[/COLOR]
 End If
End Sub

Top :thumb:

 

[edmoor]

Ok dan. Ik had de code nog iets aangepast. Kijk daar ook even naar. Komt op hetzelfde neer maar is gewoon beter

 

[Gerard2348]

Helemaal Top,

Deze vind ik iets overzichtelijker.

Heb 'm nu zo;

Sub AanUit_Klikken()
    With ActiveSheet.Shapes("Aanuit").TextFrame.Characters
        If .Text = "Aan" Then
            .Text = "Uit"
        .Font.ColorIndex = 3
        Call eigen macro
        Else
            .Text = "Aan"
        .Font.ColorIndex = 1
        End If
        Range("C9") = .Text
        Call eigen macro
    End With
End Sub

Ben er blij mee

 

[edmoor]

Deze mag uiteraard weg, dat was maar een voorbeeldje:
Range("C9") = .Text

Goed idee, die kleurtjes er bij
Denk wel aan de juiste inspringpunten.

 

[snb]

of

Sub AanUit_Klikken()
    With ActiveSheet.Shapes("Aanuit").TextFrame.Characters
        .Text = iif(.Text="Aan","Uit","Aan")
        .Font.ColorIndex = iif(.font.coloindex=3,1,3)
        'eigen M_macro
    End With
End Sub

 

[Gerard2348]

Ga ik ook uitproberen..

Zo zie je er zijn vele wegen naar Rome

 

[edmoor]

Dat kan prima maar denk dan ook aan het controleren welke eigen macro moet worden uitgevoerd op welk moment.

 

[Gerard2348]

De code van snb geprobeerd.
Zat een klein foutje in

Sub AanUit_Klikken()
    With ActiveSheet.Shapes("Aanuit").TextFrame.Characters
        .Text = iif(.Text="Aan","Uit","Aan")
        .Font.ColorIndex = iif(.font.[COLOR="#0000CD"]colorindex[/COLOR]=3,1,3)
        'eigen M_macro
    End With
End Sub