Консультация № 42072
04.05.2006, 18:04
0.00 руб.
0 2 1
Здравствуйте! Имеется следующая задача: в конце строки вставить картинку, причем картинка должна иметь положение="за текстом". Делаю так:

Set pic = Selection.InlineShapes.AddPicture("E:\1.jpg", False, True,Selection.Range)
pic.Select
pic.ConvertToShape
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Но при выполнениии pic.ConvertToShape картинка перемещается в произвольное место. Что можно сделать? Может быть как-то можно узнать координаты курсора?

Обсуждение

Неизвестный
04.05.2006, 19:00
общий
это ответ
Здравствуйте, Alexius!

Может просто не нужно "терять объект из виду"? (см. Приложение)

Приложение:
Set pic = Selection.InlineShapes.AddPicture("E:\1.jpg", False, True,Selection.Range) pic.Select Set pics = pic.ConvertToShape ‘объект shapepics.Top = CentimetersToPoints(4) ‘устанавливаем в нужное местоpics.Left = CentimetersToPoints(4)pics.WrapFormat.Type = 3pics.ZOrder 5 ‘ZOrder для размещения "за текстом" = 5
Неизвестный
04.05.2006, 19:09
общий
>Может просто не нужно "терять объект из виду"?В том то и дело что адрес картинки - конец строки, а как определить координаты конца строки непонятно
Форма ответа