Не могу добавить картинку в полотно

[viter.alex]

Вот процедура. Один в один из справки, но не работает. Пишет:«Argument not optional», хотя все аргументы заданы. Само полотно добавляется, а вот картинку в него не получается. Обычные фигуры, линии там, прямоугольники добавляются.

Sub insertPictureToCanvas()
  Dim oCanvas As Shape
  Dim pw, ph As Integer
  Application.Options.MeasurementUnit = wdMillimeters
  With ActiveDocument
    pw = .PageSetup.PageWidth - .PageSetup.RightMargin - .PageSetup.LeftMargin
    ph = .PageSetup.PageHeight - .PageSetup.TopMargin - .PageSetup.BottomMargin
    Set oCanvas = .Shapes.AddCanvas(0, 0, pw, ph, Selection.Range)
    oCanvas.CanvasItems.AddPicture "d:\Мои документы\Мои рисунки\собака в прыжке1.JPG", False, True
  End With
End Sub

[viter.alex]

Что-то тихо в датском королевстве… Понедельник, однако!
Проблема, как обычно, была в разработчиках. Забыли они указать, что дляCanvasItems координаты вставки являются обязательными. Если прописать координаты вставки, то все работает. Это логично.
Но вот здесь, а также в справке написано, что обязательным является только имя файла. Более того, всплывающая подсказка по аргументам тоже показывает, что обязательным является имя файла, а все остальное — на ваше усмотрение.

Потерял полдня.