Fast! Настройка рисунка в Word!

[MeTeOpA]

Подскажите как настроить положение рисунка например "вокруг рамки"???

вставлял в документ так :

Clipboard.Assign(Image1.Picture);
WordApp.Selection.Paste;

[Dark_Spirit]

попробуй так:

 wordapp.selection.WrapFormat.Type :=<значения_от_1_до_5>

[viter.alex]

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

попробуй так:

 wordapp.selection.WrapFormat.Type :=<значения_от_1_до_5>

это метод работать не будет. У объекта Selection нет свойства WrapFormat, оно есть у объекта Shape
Я бы делал так:

  Dim mypic As Word.Shape
  Set mypic = ActiveDocument.Shapes(ActiveDocument.Shapes.Count) 'Запомнить последнюю картинку в документе
  mypic.WrapFormat.Type = wordapp.WdWrapType.wdWrapSquare 'Установить обтекание

Но это в том случае, если точно известно, что картинка вставится не в текст. Посему, можно сделать вообще без буфера и быть уверенным, что с картинкой не промахнёшься:

  Dim mypic As Word.Shape
  SavePicture Image1.Picture, "имяфайла.jpeg" 'Сохраняем картинку в файл
  'Вставляем картинку из файла
  Set mypic = WordApp.ActiveDocument.Shapes.AddPicture("имяфайла.jpeg", False, True, Left, Top, Width, Height, Selection.Range)
  'Задаём свойства
  mypic.WrapFormat.Type = WordApp.WdWrapType.wdWrapSquare

Файл картинки можно удалить после вставки. Если на Word.Shape ругается, то объяви как Object

[MeTeOpA]

я на delphi пишу а не на vb..

[viter.alex]

Код переделать не могу, но ведь важен принцип. Объектная модель не меняется же. Проблема может быть с SavePicture, поскольку она находится в библиотеке stdole2.tlb, но думаю, что в Delphi есть для этого механизмы