resize pasted bitmap-picture

[Jan Hendrickx]

Hi all,

I have an ACCESS database with an embedded OLE-field containing a
bitmap-picture.
I already mannaged to copy and paste the picture from the database to a
word-document, but now i still need to resize it...

here is the code i use:

imgFoto.Action = acOLECopy
Set objWord = CreateObject("WORD.APPLICATION")
With objWord
.Documents.Add "D:\bitmap\bitmap.dot"
.Selection.GoTo What:=-1, Name:="bitmap"
.Selection.Paste
'here i should do the resize
.Visible = True
End With

Is this the way it should be done?
Anyone got an idea how to do the resize?

Jan Hendrickx.

 

[Jezebel]

..Selection.ShapeRange.Height = ...
..Selection.ShapeRange.Width = ...