Ответ
 
Опции вопроса Поиск в этом вопросе Опции просмотра
  #1  
Старый 29.09.2011, 22:23
Аватар для Guest
Guest
Вопрос
Сообщений: n/a
По умолчанию

Помогите, пожалуйста, очень надо нарисовать чертеж в Write.Есть код, который рисует линию и вставляет в позицию курсора:Кодim Page, LineShapeDim Point, Size, CursorSet Page = oDoc.DrawPageSet Cursor = oDoc.Text.createTextCursorSet Point = CreateUnoStruct("com.sun.star.awt.Point" )Set Size = CreateUnoStruct("com.sun.star.awt.Size") Point.X = 0Point.Y = 0Size.Width = 5000Size.Height = 5000Set LineShape = oDoc.createInstance("com.sun.star.drawin g.LineShape")LineShape.setSize SizeLineShape.SetPosition PointoDoc.Text.insertTextContent Cursor, LineShape, FalseНадо сделать так, чтобы линия вставлялась просто независимо от текста в то место, координаты которого были указаны. А сейчас она вставляется в текст, также как вставилась бы крупная буква.Если последнюю строку написать так: Код:Page.Add LineShapeто при этом линия множится на каждой странице.Как решить такую проблему?
Ответить с цитированием
Ответ



Похожие вопросы
Тема Автор Раздел Ответов Последний вопрос или ответ
Ребенку в школе дают три сечения фигуры и просят нарисовать саму фигуру, а у него нет пространственного мышления, почему Guest Новые вопросы и ответы 4 0 06.01.2012 03:04
Как удалить поле номера страницы из документа Write макросом? Guest Новый архив 2 0 29.09.2011 22:21
О координатах в фотографии. Guest Новый архив 3 0 05.09.2011 00:49



© www.otvetnemail.ru - Форум вопросов и ответов.