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