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

Autovormen macro's

Status
Niet open voor verdere reacties.

u538019

Gebruiker
Lid geworden
20 jul 2007
Berichten
18
hey kan iemand mij vertellen hoe ik in excel 2007 autovormen kan opnemen ?
het lukt mij niet in excel 2003 lukt het wel gr mb
 
2007 is nog te weinig ingeburgerd vrees ik. Hopelijk kunnen zij die het al hebben hier een antwoord op geven.
 
Ik heb het ook geprobeerd.
Maar inderdaad, wat in 2003 probleemloos gaat werkt niet op dezelfde manier in 2007.
De recorder neemt niets op. Of het aan mij ligt of niet, dat weet ik (nog) niet. Dus je hebt niets aan dit antwoord, behalve dan, dat je niet de enige bent.

Mvg

Piet
 
Dus een code als - gewoon een voorbeeldje uit de losse pols -

Code:
Sub autovorm()
    Dim aShp As Shape
    Set aShp = ActiveSheet.Shapes.AddShape(msoShapeSun, 200, 200, 40, 50)
End Sub

werkt niet in 2007?
 
Dus een code als - gewoon een voorbeeldje uit de losse pols -

Code:
Sub autovorm()
    Dim aShp As Shape
    Set aShp = ActiveSheet.Shapes.AddShape(msoShapeSun, 200, 200, 40, 50)
End Sub

werkt niet in 2007?

De code werkt wel, maar hij neemt inderdaad niets op in de macro recorder

Joske
 
Blijft over: De code opnemen in 2003 en gebruiken in 2007.

Mvg

Piet
 
Blijft over: De code opnemen in 2003 en gebruiken in 2007.

Mvg

Piet

Ik heb er alle vertrouwen in dat als jullie dat niet kunnen na tests, het niet zal gaan. Je zal verder moeten gaan met de code, met vallen en opstaan. Evt. in 2003 code opnemen, of veel op internet / forums / helpfiles kijken.

Wigi
 
Blijft over: De code opnemen in 2003 en gebruiken in 2007.

Juist geprobeerd een macro op genomen in XL2003 en in XL2007 gestart GEEN problemen.

Code:
Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 20/07/2007
'

'
    ActiveSheet.Shapes.AddShape(msoShapeUpDownArrow, 150.75, 97.5, 179.25, 189#) _
        .Select
    Range("A1").Select
End Sub

Pierre
 
Laatst bewerkt:
Dus toch geen probleem :D

Pierre gaat het dan wel uitleggen aan Piet, Jos en de vraagsteller wat hij gedaan heeft :)
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan