command buttons veranderen

[nootie]

Hoi,

is het mogelijk om in vba uw command buttons van vorm te veranderen? Door ze bijvoorbeeld een cirkelvormige vorm te geven.

Thx

 

[Hoornvan]

nootie,

is het mogelijk om in vba uw command buttons van vorm te veranderen? Door ze bijvoorbeeld een cirkelvormige vorm te geven

Volgens mij is dit niet mogelijk.
Je kunt wel een figuur tekenen en als knop gebruiken.
Alleen kun je deze niet op een formulier zetten dacht ik.

 

[enijhuis]

Het is zeker mogelijk in Excel; Je kunt dan eenvoudig een Shape toevoegen aan je werkblad waarna je een macro toewijst aan de shape. Om de macro te verbergen voor andere gebruikers kun je evt. de toegewezen Sub hernoemen naar een Function.

zie hier voor een werkend voorbeeld van cirkel-knoppen.

 

[nootie]

idd, heel erg bedankt.

Maar heeft dit dan ook dezelfde eigenschappen of een button.

Bvb dat de caption kan veranderen wanneer men erop heeft gedrukt,
of dat wanneer we erover gaan met de muis dat de achtergrond van de button verandert.

thx

 

[enijhuis]

Een Shape heeft niet dezelfde properties als een Commandbutton. Bij een shape worden bijv. geen 'Events' gedefinieerd.
Dmv van de volgende code kunnen echter wel de door jou gewenste properties worden gemanipuleerd: (zie de bijlage voor een werkend voorbeeld)

Sub ShapeKlik()

    Const WIT = 2
    Const ZWART = -4105
    Const ROOD = 255
    Const GROEN = 65280

    Dim oShape As Shape
    Static bToggle As Boolean
    
    'Toggle waarde
    bToggle = Not bToggle
    
    Set oShape = MijnBlad.Shapes("ShapeOvaal")
    
    oShape.DrawingObject.Caption = IIf(bToggle, "Rood", "Groen")
    oShape.DrawingObject.Font.ColorIndex = IIf(bToggle, WIT, ZWART)
    oShape.DrawingObject.Interior.Color = IIf(bToggle, ROOD, GROEN)
    
End Sub

De toggle-functionaliteit krijg je er gratis bij

Nb: Het wijzigen van de achtergrond wanneer je met de muis over een knop gaat kan sowieso niet ; In VBA bestaat er mbt tot de commandbutton geen 'MouseOver'-event.

Succes!

 

[nootie]

ok, bedankt.