Togglebutton koppelen aan cel

Status
Niet open voor verdere reacties.
W

westerp

Gebruiker
Lid geworden
31 aug 2015
Berichten
10
Beste
Ik wil graag een Togglebutton koppelen aan een bepaalde cel.
Ik heb hiertoe onderstaande code gevonden.
Code: 
Sub CreateFormsButton()
Dim btn As Button
Dim rng As Range
With Worksheets("Sheet1")
Set rng = .Range("C5")
Set btn = .Buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height)
With btn
.Caption = "Test"
.OnAction = "Test1"
End With
End With
End Sub

De code voegt een nieuwe button in en koppelt deze aan cel c5. IK zou graag de code willen aanpassen zodat er geen nieuwe button wordt toegevoegd, maar een bestaande button wordt weergegeven in cel c5.

ik weet echter niet hoe, wie wil mij helpen
alvast bedankt
 
Die kan je dan toch gewoon vanuit de Ontwikkelaars tab toevoegen?
 
beste
wellicht dat mijn vraag niet helder genoeg is.
ik wil graag een macro knop weergeven in een cel. Ook als deze cel van formaat wijzigt wil ik graag dat de grote en positie van de knop wijzigt.
de knop moet dus de omvang van de cel behouden.
hopelijk is duidelijk wat ik bedoel
alvast bedankt
 
Gelukt met onderstaande code
Code: 
Sub Tester()
    Dim rng As Range
    Set rng = ActiveSheet.Range("B3")
    With ActiveSheet.OLEObjects("ToggleButton21")
        .Top = rng.Top
        .Left = rng.Left
        .Width = rng.Width
        .Height = rng.RowHeight
    End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan