[VBA]plaatje in tabel resizen met word macro

[beckers]

Ik probeer met een Word 2007 macro plaatjes in de linkerkolom van een tabel te zetten.
Daarbij moeten de plaatjes verkleind worden, maar dat verkleinen gebeurt niet. Wat doe ik fout?

De code die ik tot nu toe heb:

code:

' Maak tabel
   ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=5, NumColumns:= _
        2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed

' Zet plaatjes en beschrijving in de tabel 
For i = 1 To 5
        Selection.InlineShapes.AddPicture FileName:= _
        "C:\plaatje\" & i, LinkToFile:=False, SaveWithDocument:=True
              
        With Selection.InlineShapes
          .ScaleHeight 5, msoFalse, msoScaleFromTopLeft
          .ScaleWidth 5, msoFalse, msoScaleFromTopLeft
        End With
        
        Selection.MoveRight Unit:=wdCharacter, Count:=1

        Selection.TypeText ("beschrijving plaatje")

        Selection.MoveDown Unit:=wdLine, Count:=1
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
Next

[bigbeng]

Heb je al eens geprobeerd een macro op te nemen en dit met het handje te doen? Je kunt dan de resultaatcode bekijken en zie je ook gelijk hoe Word het zelf zou aanpakken.

[beckers]

bigbeng schreef op woensdag 07 mei 2008 @ 10:14:
Heb je al eens geprobeerd een macro op te nemen en dit met het handje te doen? Je kunt dan de resultaatcode bekijken en zie je ook gelijk hoe Word het zelf zou aanpakken.

Dat zou mooi zijn als het kon, maar Word laat geen macro's opnemen voor het wijzigen van plaatjes.

[Creepy]

Welkom op GoT

Wat doe je fout? Dat mag je in eerste instantie zelf gaan uitzoeken. Je code dumpen en hopen dat wij het voor je gaan oplossen is niet de bedoeling. Als je Programming Beleid en dan met name Programming Beleid - De Quickstart eens door wilt lezen dan snap je dat hopelijk

Ook hoort een VBA topic niet hier in PRG thuis maar in Officesuites en -software. Als je er na zelf uitzoeken niet uitkomt dan kan je daar een nieuw topic openen. Geef dan in elk geval aan wat je nu zelf hebt geprobeerd en wat daar dan niet mee lukte.