Button vinden

[DutchOirs]

Goedemorgen,

Vraagje over een button vinden in een werkblad.
Stel je hebt meerdere Buttons in een werkblad staan.
Is er een mogelijkheid dat je een bepaalde Button vind als je de naam intikt?

Dus vanuit het Visual Basic werkblad, desbetreffende Button vinden.

Thanks already,

Dutch

 

[Bram65]

Kan zeker maar je moet dan wel de exacte naam van de button weten. Je kunt ook ook bij het opstarten van het workbook, alle namen van buttons in het sheet, in een lstbox zetten waaruit je die kunt selecteren waardoor die gezelecteerde button de focus krijgt.

 

[DutchOirs]

OK, ja heb in de macro een naam staan (TestButton) en nu wil ik graag weten of deze Button nog ergens in de sheet staat.

 

[snb]

Tabblad 'Home' knop 'Find & Select', optie 'Selection Pane'

of

Alt P Alt AP

of

Tabblad 'Pagelayout' knop 'SlectionPane'

 

[edmoor]

Is TestButton een ActiveX of een Worksheet button?
Voorbeeld voor een ActiveX object:

Private Sub ZoekButton_Click()
    ButtonName = "TestButton"
    For Each sht In ThisWorkbook.Sheets
        For Each btn In sht.OLEObjects
            If btn.Name = ButtonName Then
                MsgBox ButtonName & " staat op werkblad " & sht.Name
            End If
        Next btn
    Next sht
End Sub

 

[DutchOirs]

Goedemiddag,

hoi snb, dit werkt helaas niet in excel 2003.

edmoor het is een worksheet Button

Kwam hem juist op het VB-worksheet tegen.
En vond hem zo nergens terug in het excel sheet.
Dus vraag ik me af is deze button er nog wel?
Vraag me nu dus af of er een manier is om deze in het excel werkblad terug te vinden

 

[edmoor]

Voor Worksheet buttons:

Private Sub ZoekWSButton_Click()
    ButtonName = "TestButton"
    For Each sht In ThisWorkbook.Sheets
        For Each btn In sht.Buttons
            If btn.Name = ButtonName Then
                MsgBox ButtonName & " staat op werkblad " & sht.Name
            End If
        Next btn
    Next sht
End Sub