access > word: msotrue msofalse msoctrue

[Baboab]

hoi,

ik heb van de week een stukje code geschreven om de bewonersgegevens te exporteren naar word en een deel ervan gaat over het invoegen van een foto.

Ik voeg een foto in en dan selecteer ik die en resize ik hem naar bepaalde breedte met behoud van aspect ratio. (Fotos zijn in alle maten en vormen en worden ingevoegt via code).

Ik heb wat moeten zoeken en proberen met de macrorecorder eer ik iets had gevonden wat werkte, maar de onderstaande code werkte vrijdag op een ander toestel.

WrdWord.ActiveDocument.FormFields("frmafbeelding").Select
WrdWord.Selection.InlineShapes.AddPicture FileName:="\\se-server\E\DATA\STEMA\DATA\fotos gasten\" & txtgisa & ".jpg", LinkToFile:=False, SaveWithDocument:=True

Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
'WrdWord.Selection.InlineShapes(1).Fill.Visible = msoFalse
WrdWord.Selection.InlineShapes(1).Fill.Transparency = 0#
WrdWord.Selection.InlineShapes(1).Line.Weight = 0.75
WrdWord.Selection.InlineShapes(1).Line.Transparency = 0#
'WrdWord.Selection.InlineShapes(1).Line.Visible = msoFalse
'WrdWord.Selection.InlineShapes(1).LockAspectRatio = msoTrue
'WrdWord.Selection.InlineShapes(1).LockAspectRatio = msoCTrue
WrdWord.Selection.InlineShapes(1).Height = 122.34
WrdWord.Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
WrdWord.Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
WrdWord.Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic

De code werkte vrijdag perfect op een ander toestel maar nu geeft hij bij msoctrue en msofalse een foutmelding als "variabele is niet gedeclareerd".

office 2000 (Access en Word)
verwijzingen:
- VBA
- MS Acc 9.0 Object library
- OLe automation
- Microsoft ActiveX Data objects 2.1 library
- Microsoft Word 9.0 Object library

 

[sesam]

Constanten vervangen

De code werkte vrijdag perfect op een ander toestel maar nu geeft hij bij msoctrue en msofalse een foutmelding als "variabele is niet gedeclareerd".

Misschien kun je msoctrue vervangen door -1 en msofalse door 0.