Форматирование OLE-object на VBA

[HenryO]

Друзья,
в Worde написал макрос, с помощью которого делаю запрос в Excel-файл, копирую некоторый диапазон и вставляю в свой Документ.
Все это получается!
Только после мне нужно два действия по форматированию применить:
1)Сделать обтекание текстом "За текстом"
2)Поменять "Формат объекта-Размер-Высота-Абсолютная" с 27,54см на 19,65см

Макрорекордером не получается воспользоваться, т.к. при записи правая кнопка мыши не активна и не активно само значение на ленте в Разметке страницы.

Sub ВставкаОтчетаИзExcel()
Dim TableLink As String
Dim XlsTable As Object
TableLink = "C:\Users\hm\Desktop\Март 2013\УБ от 2013.04.16 март.xlsm"

Set XlsTable = GetObject(TableLink).worksheets("Отчет месячный").[L16:EM67]
ThisDocument.Content.Delete
XlsTable.Copy
Selection.PasteSpecial link:=True, datatype:=wdPasteOLEObject, placement:=wdFloatOverText

' ЗДЕСЬ ДОЛЖНО БЫТЬ ФОРМАТИРОВАНИЕ

End Sub

[Скрипт]

HenryO, какая у вас версия программы "Word" - 2003, 2007, 2010 или другая?

[HenryO]

Друзья, проблему помогли решить в соседней группе.
Правая кнопка при записи работает в worde 2000.

В Word2000 все прекрасно записывается Если выкинуть лишнее

With ActiveDocument.Shapes(ActiveDocument.Shapes.Count)
    .LockAspectRatio = msoFalse
    .Height = CentimetersToPoints(19.65)
    .WrapFormat.Type = 3
End With