Parametrizar ancho de Chart en un Word

[#1]

Hola a todos,

He desarrollado una rutina en vbScript que lee un Chart y lo pega en un documento Word; las sentencias usadas para ello son las siguientes:

    ActiveDocument.GetSheetObject(chart).CopyBitmapToClipboard

    objWord.Selection.Paste

Al pegar la imagen, el ancho se adapta al ancho de página y se ve demasiado grande. Me gustaría reducir el width de la imagen pegada, pero no encuentro cómo. He visto que existe una sentencia llamada Pastespecial, pero no logro que me funcione.

¿Alguien sabe cómo puedo lograr mi objetivo?

Muchas gracias.