Decteren als er een bereik of vorm is geselecteerd

[glda19]

Hi
Staat ook op

https://www.excelforum.com/report.php?p=4908572

Ik op het werkblad via invoegen vormen een 3 hoek getekend
De bedoeling is dat ik zie of ze een bereik of de 3hoek of een rechthoekige vorm hebben geselecteerd.
Typename geeft mij bij een bereik dat er een range is geselecteerd maar bij selectie van de 3hoek krijg ik rectangle terug
Voorbeeld programma staat op de bovenstaande link

 

[sylvester-ponte]

ik kom daar niet in zonder me te registreren.

toch handig om het voorbeeld ook hier te plaatsen

 

[roeljongman]

en de link gaat ook niet naar het topic maar naar de "attendeer moderator" functie van dat forum..

dus inderdaad gewoon hier even het voorbeeld plaatsen en de juiste link naar het topic.

 

[jkpieterse]

Je kunt als volgt het type vorm opvragen:

    If TypeName(Selection) <> "Range" Then
        MsgBox Selection.ShapeRange.AutoShapeType
    '7 is de driehoek
    End If

je vindt de autoshape types hier: https://msdn.microsoft.com/en-us/VBA/Office-Shared-VBA/articles/msoautoshapetype-enumeration-office

 

[glda19]

Waarom geeft typename een rectangle weer als je de 3 hoek selecteerd

 

[glda19]

sorry is gemaak in de pauze het bericht via gsm

 

[jkpieterse]

Alle autovormen hebben het typename Rectangle, ik heb geen idee waarom.

 

[sylvester-ponte]

jammer dat je niet op post 2 en 3 reageert.

je kan toch aan elke vorm een macro hangen.
deze kun je bvb "driehoek" laten doorgeven.