Besturingselement knop een opvulkeur geven

[marcovand]

Goedemorgen,

Tabbladen kun je een kleur geven. Ik heb een bestand met 170 tabbladen en een aantal daarvan hebben een specifieke kleur vanwege de gegevens die in dat tabblad staan.

Nu heb ik ook een tabblad met knoppen naar de diverse tabbladen. Nu wil ik die knoppen ook een opvulkeur geven. Echter bij het opmaken van het besturingselement vind ik de optie van opvulkeur niet terug. Is er überhaupt een mogelijkheid om de kleur van een knop (besturingselement) aan te passen? Hij is nu standaard grijs.

Alvast bedankt voor de ideeën.

Groet,
Marco

 

[Cobbe]

In de eigenschappen van dat besturingselement kan je die kiezen, zie jpg

 

[marcovand]

Hoe kom je daar bij dan? Ik krijg alleen de opties die je in dit plaatje ziet.

 

[Cobbe]

Dat komt doordat je geen knop gebruikt uit de Werkset Besturingselementen.
Als je dat doet werkt het wel.

 

[marcovand]

ok, gevonden. je pakt dan een ActriveX besturingselement. Volgt alleen de volgende vraag, hoe koppel ik die aan een macro? of hoe kan ik dat besturingselement laten verwijzen naar een tabblad? Met een formulierbesturingselement kan ik een macro toewijzen

 

[Cobbe]

Ipv Sub macro() zet je de nodige code tussen de regels

Private Sub CommandButton1_Click()
--code--
End Sub

--code-- kan ook de naam van een gewone macro zijn, die in een module staat.

 

[marcovand]

Sorry, ben echt een nitwit wat betreft VB

Ik heb nu de macro:

Sub Tabblad_Arboned_365()
'
' Arboned_365 Macro
'

'
Sheets("365").Select
End Sub

En dus de code van het besturingselement:

Private Sub CommandButton1_Click()

End Sub


Hoe maak ik hier nu 1 code van?

 

[Cobbe]

Private Sub CommandButton1_Click()
Sheets("365").Select
End Sub

Dat is alles.

 

[Haije]

of....

Private Sub CommandButton1_Click()
Tabblad_Arboned_365()
End Sub

zoals Cobbe zelf ook al aangeeft

 

[marcovand]

De code van Cobbe werkt. Bedankt voor je input.