Excel, Macro voor het activeren van de functie vrije vorm

[Verwijderd]

Hallo,

Ik krijg het niet voor elkaar om in Excel een macro te schrijven die er voor zorgt dat de functie: 'het tekenen van een vrije vorm' wordt geactiveerd. Kan iemand mij hier mee helpen?

Relevante software en hardware die ik gebruik
Microsoft Excel 2016

Wat ik al gevonden of geprobeerd heb
Iemand zei dat dit de oplossing was:

Private Sub CommandButton1_Click()
CommandBars("Lines").Controls("freeform").Execute
End Sub

Echter krijg ik dan een foutmelding.

Verder denk ik zelf dat het misschien wel helemaal niet mogelijk is omdat er altijd een End With moet zijn.
Als dit anders is hoor ik het graag!

Alvast bedankt!

[br00ky]

@Verwijderd, schopje naar CSA, want dit heeft niks te maken met hardware.

[F_J_K]

End with? Begrijp ik niet. Dat is alleen als je -voor het overzicht/gemak- with gebruikt. Als ik moet gokken, probeer je code te laten werken via het betere Google-copy-paste werk. Dat werkt pas effectief als je eerst de basis kent en de code op waarde kan schatten. Gemeend en niet vervelend bedoeld advies is dan ook: ga eerst die basics tot je nemen.

Dat gezegd hebbende:

Visual Basic:

Sub foo()

Dim cb As CommandBar
For Each cb In CommandBars
    If cb.Name = "Lines" Then
            For Each ctl In cb.Controls
                Debug.Print ctl.Caption
            Next ctl
    
    End If
Next cb


End Sub

laat bij mij geen "freeform" control zien

[Verwijderd]

Hoo jaa dit gaat mij allemaal al te ver haha!

In ieder geval bedankt en zal de basis dan maar eens tot me gaan nemen.

Was de bedoeling om de stappen om de functie vrijevorm te activeren weg te nemen voor gebruikers voor wie ik het model maak (nog minder ervaren)

Als ik verder ben gekomen en de basis snap zal ik hier misschien nog op terug komen!

Bedankt

[Lustucru]

Waarom voeg je het knopje niet gewoon toe aan de werkbalk snelle toegang?

[F_J_K]

Als het daarom gaat dan is inderdaad dat zo zonder VBA veel makkelijker, stabieler, veiliger, sneller.

[Verwijderd]

@Lustucru

Goed meegedacht maar helaas onthoud Excel dit alleen voor de gebruiker. (Iedereen moet er mee werken) Dus zal iedereen dit 1x zelf moeten doen.

Aangezien er erg onervaren Excel gebruikers tussen zitten zal dit lastig worden.

Als er geen mogelijkheid is om dit te automatiseren zal ik een informatie vak maken met een duidelijke uitleg!


Anders hoor ik het nog graag!


In ieder geval bedankt! ben al iets verder gekomen.


Als het echt niet anders kan zal ik dit met een tekst uitleggen