Поскольку вставленная катринка является InlineShape, а WdWrapType.wdWrapBehind применяется только к Shape, я использовал метод ConvertToShape.
В Word 2003 всё работало отлично, картинка становилась Shape'ом и к ней применялись нужные свойства. Проблема в том, что в Word 2007 ConvertToShape сдвигает изображение в угол страницы. Как сделать так, чтобы картинка осталась на месте?
Пример кода:
- Код: Выделить всё
Sub PutPic()
Dim Picture As InlineShape
Dim Wrap As WdWrapType
ActiveDocument.Bookmarks(19).Select
Set Picture = Selection.InlineShapes.AddPicture(FileName:="pic.jpg", LinkToFile:=False, SaveWithDocument:=True)
Wrap = WdWrapType.wdWrapBehind
Picture.ScaleHeight = 100
Picture.ScaleWidth = 100
Set PShape = Picture.ConvertToShape
PShape.WrapFormat.Type = Wrap
End Sub
P.S. Пробовал выделять нужную ячейку, а не ссылку - тот же эффект. Картинку вставляет куда надо, после применения ConvertToShape сдвигает в верхний левый угол.