Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 8 van 8

Onderwerp: Plaatsen button met VBA

  1. #1
    Member
    Geregistreerd
    18 augustus 2015
    Vraag is niet opgelost

    Plaatsen button met VBA

    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 Code:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    
    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!

  2. #2
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Bij mij werkt het prima. Op welke regel krijg je de melding? En staat de macro wel op de goede plek?
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  3. #3
    Member
    Geregistreerd
    18 augustus 2015
    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 aangepast door JHH : 13 oktober 2021 om 10:10

  4. #4
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    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
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  5. #5
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    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
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  6. #6
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Een béétje slimme gebruiker gooit de knop na gebruik (bij sluiten) weer weg .
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  7. #7
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Of plaatst ze vooraf in de ontwerpmodus en maakt ze pas zichtbaar als het nodig is.
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  8. #8
    Member
    Geregistreerd
    18 augustus 2015
    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!

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren