[VB] Word plaatje resizen

[Verwijderd]

Er is mij gevraagd of het mogelijk is om een kleine aanpassing te maken in een programma van iemand. Momenteel kan dit programma al goed een plaatje toevoegen in Word uit een database veld. Maar nu wil ik dat plaatje ook kunnen resizen. Het plaatje wordt op deze manier toegevoegt in een cell van een tabel:

code:

lPictureCell.Range.InlineShapes.AddPicture _
  FileName:=fldAffbeelding.Value, _
  LinkToFile:=False, _
  SaveWithDocument:=True

Weet iemand een oplossing hoe ik de hoogte en breedte van dit plaatje vervolgens kan veranderen? Ik kom er niet uit en is verder weinig concreets te vinden op google of op dit forum.

[Creepy]

En wat heb je al geprobreerd? Wat lukte daar niet mee? Al eens een macro opgenomen, plaatje geresized en gekeken wat daar voor code uit komt?

Zie ook P&W FAQ - De "quickstart" voor wat we eigenlijk van een topicstart verwachten

[pjvandesande]

Als je het word document als XML rendert, kun je gebruik maken van het style attribute.

XML:

<w:pict>
    <v:shapetype id="_x0000_t75" ...>
    ... VML shape template definition ...
    </v:shapetype>
    <w:binData w:name="wordml://02000001.jpg">
    ... Base64 encoded image goes here ...
    </w:binData>
    <v:shape id="_x0000_i1025" type="#_x0000_t75" 
      style="width:212.4pt;height:159pt">
         <v:imagedata src="wordml://02000001.jpg" 
           o:title="Image title"/>
    </v:shape>
</w:pict>

De code komt van de blog van Oleg Tkachenko.

[Tukk]

Creepy schreef op maandag 25 april 2005 @ 12:16:
En wat heb je al geprobreerd? Wat lukte daar niet mee? Al eens een macro opgenomen, plaatje geresized en gekeken wat daar voor code uit komt?

Zie ook P&W FAQ - De "quickstart" voor wat we eigenlijk van een topicstart verwachten

en welke word versie gebruik je?