• 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.

Plaatsen button met VBA

Status
Niet open voor verdere reacties.

JHH

Gebruiker
Lid geworden
18 aug 2015
Berichten
72
Goedemorgen,

ik probeer een paar buttons te plaatsen tijdens het opstarten van een werkmap.
ik krijg het niet voor elkaar en krijg de foutmelding:

"1004: Door de toepassing of door object gedefinieerde fout."


De code is:
HTML:
Sub workbook_open()

Dim BtnPos As Range
Dim Button1 As Button

Set BtnPos = ActiveSheet.Range(Cells(3, 4), Cells(3, 4))
Set Button1 = ActiveSheet.Buttons.Add(Top:=BtnPos.Top, Left:=BtnPos.Left, Height:=BtnPos.Height, Width:=BtnPos.Width)
    With Button1
        .Caption = "Test"
        .OnAction = "macro1"
    End With

End Sub

heeft iemand hier ervaring mee?

alvast bedankt voor de hulp!
 
Bij mij werkt het prima. Op welke regel krijg je de melding? En staat de macro wel op de goede plek?
 
Het staat in "ThisWorkbook", maar als ik het in de betreffende sheet zet krijg ik dezelfde fout.
Ik krijg de melding op de regel: "Set Button1..."

Ik heb het daarna getest in een nieuw bestand en dan werkt het inderdaad wel.

hoe zou dat kunnen?
 
Laatst bewerkt:
Begin eens met het 'foute' bestand te posten, want het ligt dus duidelijk niet aan de code. En we zijn helaas vandaag wéér zonder glazen bol de deur uit gegaan :eek:
 
Met die code wordt wel bij iedere keer openen van het document een nieuwe knop op dezelfde plek toegevoegd.
Hoeveel heb je er inmiddels in zitten?
Je kan dat nazien met MsgBox Activesheet.Buttons.Count
 
Een béétje slimme gebruiker gooit de knop na gebruik (bij sluiten) weer weg :).
 
Of plaatst ze vooraf in de ontwerpmodus en maakt ze pas zichtbaar als het nodig is.
 
L.S.,

Ik heb de oorzaak gevonden. De file was nog beveiligd, waardoor hij geblokt werd.
daarnaast heb ik de code toegevoegd die bij het afsluiten de knoppen weer verwijderd.

Bedankt voor alle hulp en ideeen!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan