• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Button nummers beperken of op nul zetten.

Status
Niet open voor verdere reacties.
C

continent

Gebruiker
Lid geworden
2 dec 2010
Berichten
36
Ik zet 6 verschillende buttons op het werkblad met de volgende code;
Code: 
'===========button reset======
Set btnreset = Orders.Buttons.Add(110, 4, 70, 14)
    Stop
    With btnreset
    .Caption = "Reset"
    .OnAction = "reset"
    .Font.Size = 10
    .Font.Bold = False
    .Font.ColorIndex = 5
    End With

Als ik nu stap voor stap opstart dan verschijnt er eerst een nummer in de
button welke daarna wordt overschreven door de Caption (in dit gevel "Reset")

Nu maak ik mij zorgen om de automatische nummertoewijzing, ik zit nu al op
1305 en iedere keer wordt deze stand met 6 verhoogd.

Kan ik deze interne teller op nul zetten? Ben bang dat Excel een keer vastloopt
hierop en wil dat voorkomen.

Zie ook de shots hieronder.
Excel.jpg
 
Geef ze een naam:
Code: 
Set btnreset = Orders.Buttons.Add(110, 4, 70, 14)
    Stop
    With btnreset
    .Caption = "Reset"
    .OnAction = "reset"
    [COLOR="#FF0000"].Name = "btnReset"[/COLOR]
    .Font.Size = 10
    .Font.Bold = False
    .Font.ColorIndex = 5
    End With

Hou er ook rekening mee dat wanneer die opdracht vaker wordt uitgevoerd je meerdere knoppen op diezelfde plek hebt staan.
 
Laatst bewerkt:
Bedankt voor jouw reactie maar het brengt geen soelaas.

Wat betreft het op elkaar stapelen, dat is afgevangen om
in ThisWorkbook te beginnen met;

Code: 
Sheets("Blad1").DrawingObjects.Delete ' << alle buttons en de dropdownlist verwijderen

Dus alle objecten worden gewist en daarna weer aangemaakt.

Het toevoegen van een naam aan een button wijzigt niet de teller,
die gaat gewoon door.
 
Je kan dat indexnummer niet resetten.
Wel even een test voor je gedaan en hem tot 100.000 laten doorlopen.
Geen enkel probleem.
 
Voor de grootte van het bestand maakt dat niet uit, het is slechts een nummer als je eerder gemaakte objecten verwijderd.
Wel ben ik benieuwd naar een antwoord op de vraag in #4.
 
edmoor zei:
Wel ben ik benieuwd naar een antwoord op de vraag in #4.
Klik om te vergroten...

Om 2 redenen.
Op de eerste plaats om onverlaten die "per ongeluk" buttons verwijderen
voor te zijn. Immers iedere keer bij het openen van de sheet worden alle
shapes weggehaald en opnieuw met VBA geschreven.

Op de tweede plaats heb ik nare ervaringen met in grootte groeiende
buttons en listboxen. Dit is een verschijnsel wat niet vaak voorkomt
maar zelfs Stackoverflow wist daar jaren terug geen antwoord op.
 
Dat eerste kan ik niet over zeggen uiteraard qua opvoeding ;)
Dat laatste ben ik nog nooit tegen gekomen.
Als je daar meer informatie over hebt hoor ik het graag.
 
Daarom ben ik ooit overgestapt naar adhoc buttons ed iedere keer te schrijven en heb dat probleem losgelaten. Het speelde sowieso in versie 2013.
Maar ik ben blij met jouw test, dat geeft vertrouwen. Bedankt.
 
Om dit topic af te ronden nog even het volgende. Het probleem is niet opgelost echter de test van 'edmoor' (bedankt nogmaals) heeft de doorslag en vertrouwen gegeven om op de zelfde voet door te gaan.
Wat mij betreft kan dit topic daarom ook worden afgesloten.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan