Macro in Word 2013 voor het invoegen en opmaken van vormen

[kaasenzo]

Beste mensen,

Regelmatig maak ik gebruik van vormen in Word (2013), zoals cirkels en pijlen.
Het invoegen en opmaken van deze vormen wil ik graag met een macro automatiseren.
Het opnemen van een macro geeft vooralsnog geen gewenst resultaat.
Heeft iemand een idee!

 

[OctaFish]

Laat eens zo'n macro zien, dan kunnen we wat beter kijken wat er niet goed aan gaat.

 

[kaasenzo]

Bedankt voor uw reactie.

Eerlijk gezegd lukt het mij niet eens om een macro voor het invoegen van vormen te maken.
Als ik de macrorecorder aanzet worden de handelingen niet geregistreerd. (ik maak gebruik van de muis, geen snel-toetsen)
Het onderstaande is het enige wat aan programmacode is terug te vinden.

Sub invoegen()
' invoegen Macro

End Sub

 

[OctaFish]

Je kunt vrij simpel een macro maken die een shape maakt, maar je moet er wel tekst inzetten om de shape te registreren. Anders ziet de macrorecorder hem inderdaad niet. Als de macro eenmaal bestaat, kun je de code wel simpel ombouwen zodat hij wat bruikbaarder wordt, zodat je meer kunt instellen aan het object.

Dim shp As Shape
Dim rng As Range
    Set shp = ActiveDocument.Shapes.AddShape(msoShapeCloudCallout, 69.5, 229.75, 383.15, 165.95)
    shp.Name = "CallOut_01"
    Set rng = shp.TextFrame.TextRange
    rng.Text = "Dit is een nieuwe test"