[VBA Excel 2007] Vormen invoegen met een macro.

[Warlock]

Goedemorgen beste mede Tweakers,

Ik heb een probleem in Excel 2007. In 2003 had ik een aantal macro's die vormen invoegde. In Office 2007 lijkt dit niet niet meer te kunnen.

Als ik nu op macro opnemen druk met VB open laat hij heel netjes zien wat ik allemaal veranderd behalve het invoegen van een vorm. Ik heb nog eens een kale 2003 geinstaleerd en daarin is het met de standaard instellingen wel mogelijk.

Ik heb de beveiliging instellingen helemaal doorgenomen en alles goed gezet. Verder kan ik ook helemaal niemand op google vinden die dit zelfde probleem heeft. Ik heb ook op mijn werk en bij mijn ouders gekeken en daar werkt het ook niet. Het kan dus niet alleen aan mijn versie liggen.

Misschien ben ik de enige die hier macro's voor gebruikt. Verder heb ik ook echt 0 verstand van VB..

Zou iemand me hier mee kunnen helpen?

Alvast bedankt,

Bas

[onkl]

Misschien kan je de code die je in 2003 resp. 2007 krijgt bij dezelfde actie even posten? Dat praat wat makkelijker.
(Gebruik vooral de [code=vb] en [/code] tags.)

[urk_forever]

@CF-Warlock: Ik heb het bij mij in Excel 2007 even uitgeprobeerd en als ik daar een macro opneem en dan een vorm toevoeg laat hij dat niet zien in de vba code.

Na wat zoeken kwam ik wel deze pagina tegen die ook hierover gaat.

De code die hij aangeeft werkt in ieder geval wel:

Visual Basic:

Dim sh As Worksheet

  Set sh = ActiveSheet
  sh.Shapes.AddShape msoShape10pointStar, 10, 10, 100, 100

Zo wordt bij mij wel een vorm toegevoegd.

[Warlock]

Bijde in ieder geval heel erg bedankt voor de reacties!

@onkl:

De Office 2007 macro, het ziet ernaar uit dat hij de hele handeling niet opneemt.

Visual Basic:

Sub Shapemacro1()
'
' Shapemacro1 Macro
'

'
End Sub

En de Office 2003 macro.

Visual Basic:

Sub Shapemacro1()
'
' Shapemacro1 Macro
' De macro is opgenomen op 7-4-2009 door Basl.
'

'
    ActiveSheet.Shapes.AddLine(214.5, 125.25, 426#, 291.75).Select
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 93#, 75.75, 196.5, 117.75). _
        Select
End Sub

@ urk_forever:

Ik denk dat ik verkeerd ben gaan zoeken. Ik heb meer gezocht op het automatisch invoegen van de vormen met een macro door middel van de "Macro opnemen" knop in excel. Als ik de code copieer uit de 2003 versie werkt het wel.

[ Voor 3% gewijzigd door Warlock op 07-04-2009 11:25 ]