Option Button Unselect

[tonissteiner]

Hallo, ik gebruik volgende code:

ActiveSheet.Shapes.Range(Array("Option Button 165")).Select
    With Selection
        .Value = xlOff
        .LinkedCell = "E97"
    End With

maar nu blijft dit object geselecteerd. (ik werk op een beveiligde pagina ook)

is er een code waarmee ik de selectie kan opheffen?

heb al de esc en cancel code gebruikt maar geen van beide werkte

 

[Niels28]

werkt het zo?

    With ActiveSheet.Shapes.Range(Array("Option Button 165"))
   .LinkedCell = "E97"
   .Value = 0
  End With

Niels

 

[tonissteiner]

Hallo Niels, bedankt voor je snelle reactie.

echter jammer genoeg werkt dit niet

 

[Niels28]

    ActiveSheet.Shapes("Option Button 165").Select
    With Selection
        .Value = xlOff
        .LinkedCell = "E97"
    End With

Niels

 

[tonissteiner]

Dag Niels,

nogmaals bedankt. je code werkt op zich perfect maar in mijn document blijft "Option Button 165" geselcteerd.

zou het bestand willen posten maar daar is het net iets te groot voor

 

[Niels28]

Sorry begrijp nu pas wat je bedoelt.
Is niet de beste oplossing maar zet het volgende onder je code.

Range("a1").Select

Niels

 

[ExcelAmateur]

tonissteiner,

Dit kwam ik tegen in de help van Excel Vba.

ActiveChart.Deselect

Kun je hier wat mee?

 

[tonissteiner]

wel ja dit probeerde ik ook al. probleem is dat dit een deel van een langere code is en gekoppeld is aan mijn sheet (Private Sub Worksheet_Change(ByVal Target As Range))

dus iedere keer ik dan enter druk springt hij weer naar cel "A1"

en dat wou ik juist vermijden

ik krijg er geen andere voorwaarde ingebouwd. daarom dat ik hier vroeg naar een oplossing "unselect"

als ik het niet via vba doe maar manueel, de knop linken aan een cel, volstaat het om esc te drukken om de selectie op te heffen.

vandaar dat ik het in vba ook al probeerde met esc en cancel. echter geen resultaat

 

[tonissteiner]

Hallo EA,

alvast ook bedankt voor jouw hulp en opzoekingswerk. Die code geeft ook een fout (ik werk in Excel 2010, ik vond ze ook niet terug in de bib)

en heeft deze ook niet te maken met een chart ipv een shape?

 

[tonissteiner]

ik probeerde zelfs dit al:

ActiveSheet.Shapes.Range(Array("Option Button 182")).Deselect[QUOTE][/QUOTE]

en ook hier een foutmelding:

Run-time error '438':
Object doesn't support this property or method

 

[tonissteiner]

Google heeft me na tijdje zoeken toch een oplossing gegeven.
Ik probeerde al verschillende codes om esc te simuleren (omdat dit wel werkte om de selectie op te heffen) maar de meesten gavenook een fout.

de code die mij bij het nu wel doet is deze:

SendKeys "{ESC}", True

Wie weet is iemand ook iets met deze informatie.

Ik kan de vraag nu opgelost zetten.

Bedankt aan Niels en EA voor jullie hulp alvast.

mvg