Вставка Shape средствами VBA в определенное место страницы Word или изменение позиции Anchor у Shape

[Йевгений]

Здравствуйте!
Продублирую свое сообщение, которое разместил уже на двух других форумах.
Не могу понять, как вставлять в Shape средствами VBA в нужную ячейку таблицы. Толи нужно переносить anchor моего прямоугольника в ячейку таблицы, толи нужно устанавливать курсор в ячейку перед созданием фигуры? Не получается никак.

Пример кода:

Sub Макрос1()
    Dim docNew As Document
    Dim shpCanvas As Shape
    Dim tblNew As Table

' Создаю документ
    Set docNew = Documents.Add

' Формирую вид
    docNew.Paragraphs.Alignment = wdAlignParagraphCenter
    With docNew.PageSetup
            .Orientation = wdOrientLandscape
            .TopMargin = CentimetersToPoints(1.27)
            .BottomMargin = CentimetersToPoints(1.27)
            .LeftMargin = CentimetersToPoints(1.27)
            .RightMargin = CentimetersToPoints(1.27)
            .VerticalAlignment = wdAlignVerticalCenter
    End With

' Создаю таблицу
    Set tblNew = docNew.Tables.Add(Selection.Range, 2, 1)

' Создаю прямоугольник, пытаюсь сделать это в ячейке
    tblNew.Cell(1, 1).Range.Select
    Set shpCanvas = docNew.Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100)
'     Set shpCanvas = docNew.Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100, tblNew.Cell(1,1).Range)

' Задаю формат обтекания текстом
    shpCanvas.WrapFormat.Type = wdWrapSquare
End Sub

В итоге у меня всегда прямоугольник под таблицей, а не в ячейке. Моих куцых знаний не хватает, и на других форумах не отвечают. Может быть здесь кто-то подскажет правильное решение?

Хочу сделать так:
2023-05-17_11-40-45.png

Но получается как-то так:
2023-05-17_11-41-11.png

[Fck_This]

Set shpCanvas = docNew.Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100, docNew.Tables(1).cell(2, 1).Range.Paragraphs(1).Range)

Номер таблицы сами укажите, и ячейки тоже.

[Йевгений]

Сообщение от Fck_This

Set shpCanvas = docNew.Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100, docNew.Tables(1).cell(2, 1).Range.Paragraphs(1).Range)

Номер таблицы сами укажите, и ячейки тоже.

Спасибо! Но не помогло.
Мне подсказали, что проблема в версии Word.
В новых версиях мой изначальный код работает правильно.
А в старых версиях я получил нужный результат так:
1)Вырезать anchor у Shape
2)Выбрать нужную ячейку таблицы
3)Выполнить вставку

Sub Макрос1()
    Dim docNew As Document
    Dim shpCanvas As Shape
    Dim tblNew As Table
 
' Создаю документ
    Set docNew = Documents.Add
 
' Формирую вид
    docNew.Paragraphs.Alignment = wdAlignParagraphCenter
    With docNew.PageSetup
            .Orientation = wdOrientLandscape
            .TopMargin = CentimetersToPoints(1.27)
            .BottomMargin = CentimetersToPoints(1.27)
            .LeftMargin = CentimetersToPoints(1.27)
            .RightMargin = CentimetersToPoints(1.27)
            .VerticalAlignment = wdAlignVerticalCenter
    End With
 
' Создаю таблицу
    Set tblNew = docNew.Tables.Add(Selection.Range, 2, 1)
 
' Создаю прямоугольник, в новых версиях Ворда он окажется в ячейке, а в старых (2016 в моем случае) под таблицей
    tblNew.Cell(1, 1).Range.Select
    Set shpCanvas = docNew.Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100)
 
' Задаю формат обтекания текстом
    shpCanvas.WrapFormat.Type = wdWrapSquare
 
' Код, который перенесет anchor в нужную ячейку, если это не произошло автоматически в старых версиях Word
    shpCanvas.Anchor.Cut
    tblNew.Cell(1, 1).Range.Select
    Selection.Paste
End Sub

[Fck_This]

Сообщение от Йевгений

Спасибо! Но не помогло.

Ну у меня 2013 ворд и всё работает.