Naam ActiveX knop

[LauravT]

Hallo,

Is het mogelijk om de naam van een ActiveX knop op een worksheet middels VBA te achterhalen, als deze bijvoorbeeld geselecteerd is.
Hiermee bedoel ik echt de naam van de knop en niet de Caption.

MVG

 

[jkpieterse]

Waarom wil je die hebben?

 

[LauravT]

Ivm een dynamisch overzicht waarbij via een formulier knoppen toegevoegd kunnen worden, maar de info van die knop dient dan automatisch in een tabel weggeschreven te worden om het goed te kunnen beheren.
Maw het beheren en toevoegen van knoppen geheel geautomatiseerd, zodat er geen kennis van VBA nodig is om dit te realiseren.

 

[LauravT]

Ik heb inmiddels een manier gevonden:

Dim sh As Shape

Set sh = Activesheet.Shapes(Selection.Name)
Naam = sh.OLEFormat.Object.Name

 

[snb]

Waarom niet het maximale aantal vooraf gemaakt en de 'dynamische' onzichtbaar gemaakt ?
Het enig wat hoeft te gebeuren is dynamisch de eigenschap .visible wijzigen.

Handiger dan jouw code is:

Sub M_snb()
   MsgBox sheet1.Oleobjects(1).name
End sub

Overigens: als je selection.name al weet, waarnaar ben je met de code dan op zoek ?, naar hetzelfde resultaat ?

Vaak is een procedure om dynamisch ActiveX elementen toe te voegen een indicatie van een onvoldoende doordacht ontwerp.