Functie: Objecten Selecteren Aan of Uit

[HansFRAP]

Vraag
Ik zou graag VBA - Excel functie willen hebben waarmee ik kan uitlezen wat de waarde van de functie: Objecten Selecteren (ObjectsSelect) is ( True of False)

 

[edmoor]

En wij zouden graag een voorbeeld document willen zien.

 

[HansFRAP]

Welke document?

 

[edmoor]

Een Excel document waarin je de gevraagde functie wilt toepassen uiteraard.

 

[HansFRAP]

Ik heb een document waarin een figuur wordt getekend.
Na het tekenen kan je dus een cel selecteren of de opdracht: Start - Zoeken en Selecteren - Objecten Selecteren
moet geactiveerd zijn.

Vraag is dus hoe check ik of de functie: Objecten Selecteren aan of uit staat?

 

[HSV]

Sub hsv()
 Msgbox Application.CommandBars("Drawing").Controls(2).state
End Sub

0 is uit.
-1 is aan.

Of:

Sub hsv()
 Msgbox Application.CommandBars("Drawing").Controls(2).state = -1
End Sub

 

[HansFRAP]

HSV, precies wat ik zocht.
Bedankt!

 

[snb]

@HansF

Geen Specsavers in de buurt ? zie: https://www.helpmij.nl/forum/announcement.php?f=348

 

[HansFRAP]

@snb Een verwijzing naar een winkelketen kan van alles betekenen.
Roept dus meer vragen op dan duidelijke antwoorden laat staan acties.

 

[snb]

Lukt ook een link aanklikken niet ?

 

[HansFRAP]

@HSV
Ik blijf nog met een vraag zitten.

Volgens de documentatie zou het State-property moeten werken op Get en Set (Gets or sets the appearance of a CommandBarButton control. Read/write.)
De coderegel:

Application.CommandBars("Drawing").Controls(2).state = -1

levert echter een error op.

Hoe kan je dan wel en waarde van 'Application.CommandBars("Drawing").Controls(2).state' aan- of uitzetten?

 

[HSV]

ene keer aan, andere keer uit.

Application.CommandBars("Drawing").Controls(2).execute

 

[HansFRAP]

Bedankt. :thumb:
Was net aan het zoeken en proberen. Had hem net gevonden.

tevens gevonden:

Sub HF()
Dim vControle As Object
    For Each vControle In CommandBars("Drawing").Controls
        Debug.Print vControle.Index, vControle.Caption
    Next
End Sub