Как изменить размер изображения, вставленного в ячейку таблицы MS Word? - VBA

Формулировка задачи:

Формирую таблицу с картинками в MS Word из 1С по технологии COM. Столкнулся с тем, что картинка после вставки в ячейку таблицы имеет оригинальный размер. Код формирования таблицы такой:

Документ.Tables.Add(
        Selection.Range(),
        тз.Количество()+1, 2, 1, 1);
        Selection.Tables(1).Rows.AllowBreakAcrossPages = False;
        Selection.Tables(1).Rows.AllowBreakAcrossPages = False;
        
        //заполняем шапку
        Selection.Font.Bold = 1;
        Selection.ParagraphFormat.Alignment = 1;
        Selection.TypeText("Описание");
        Selection.MoveRight ();
        Selection.Font.Bold = 1;
        Selection.ParagraphFormat.Alignment = 1;
        Selection.TypeText("Изображение");
        //Selection.MoveRight ();
        //Selection.Font.Bold = 1;
        //Selection.ParagraphFormat.Alignment = 1;
        //Selection.TypeText("Номенклатура");
 
        Selection.MoveRight (1,2);
        
        Таблица = Документ.Tables.Item(1); 
        ИндексСтроки = 0;
        Для Каждого Выборка из тз Цикл
            Попытка
                ИндексСтроки=ИндексСтроки+1;
                Состояние ("Обрабатывает элемент "+ИндексСтроки+" из "+тз.Количество());
                
                Selection.Range.Cells.VerticalAlignment=1;
                Selection.TypeText(Выборка.Номенклатура.Наименование+Символы.ПС+Выборка.Описание);
                Selection.MoveRight ();
                Если ЗначениеЗаполнено(Выборка.ПутьКФайлу) Тогда
                    Selection.InlineShapes.AddPicture(
                    Выборка.ПутьКФайлу,
                    False,//LinkToFile
                    True//SaveWithDocument
                    );
                    //Selection.InlineShapes.Application.Height = 200;
                    //Selection.InlineShapes.Application.Width  = 200;
                КонецЕсли;
                //Selection.MoveRight ();
                //Selection.Range.Cells.VerticalAlignment=1;
                //Если Не ЗначениеЗаполнено(Выборка.Описание) Тогда
                //
                //    Арт = "";
                //
                //Иначе
                //
                //    Арт = Строка(Выборка.Описание);
                //
                //КонецЕсли; 
                //Selection.TypeText(Арт);
                //Selection.MoveRight ();
                //Selection.Range.Cells.VerticalAlignment=1;
                //Selection.TypeText(Выборка.Номенклатура.Наименование);
                Selection.MoveRight (1,2);
            Исключение
                Сообщить(ОписаниеОшибки());
            КонецПопытки;                
            
        КонецЦикла;

В хелпе я не нашел, как мне обратиться к картинке и изменить её размеры. С VB я "на вы". Подскажите, как мне это сделать?

Решение задачи: «Как изменить размер изображения, вставленного в ячейку таблицы MS Word?»

textual
                            Листинг программы 
                        

                            Selection.MoveLeft 1, -1, True  '1=wdCharacter
With Selection.InlineShapes(1)
  .LockAspectRatio = -1         '-1=msoTrue, пропорциональное изменение размера
  .Height = 30                  'подберите высоту
End With
                        