Форматирование картинки на 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

[Казанский]

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

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

[HenryO]

Сообщение от Казанский

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

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

Спасибо большое. Про ворд очень ценный совет. Надо будет тоже установить для таких случаев.

Но пока не установил, скажите еще, как мне эту же картинку немножко
1)сместить(передвинуть) влево и вниз на определенные сантиметры,
2) а также разместить в центре,слева, справа?