| Вопрос: Рисование линии из панели рисования | Добавлено: 17.11.03 05:00 |
Автор вопроса:  Павел Фролов
|
|
Вопросик такой. Требется создать из линий (или др. встр автофигур) нечто вроде плана. НО! если рисовать в ручную длина линии задаеся в сантиметрах, а если при помощи кода то не известно в чем. И даже если примерно вычеслить соотношение к сантиметрам идет погрешность на 10 см 1 мм. Как сделать чтобы в код указыпоть сантиметры. И если кто занимылся подобным рисованием может подскажет др. путь решения. План рисуется в масштабе и погрешность не желательна!!! |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #1 | Добавлено: 17.11.03 11:07 |
|
Не знаю, как в VBA, но в VB6 для измерения используются твипы (обычно это 1/15 часть пиксела, хотя, вроде бывают и другие соотношения). Чтобы измерения вести в сантиметрах, задай у формы свойство ScaleMode=7 (Centimeter). |
||
|
Номер ответа: 2 Автор ответа: Павел Фролов Вопросов: 1 Ответов: 2 |
Профиль | | #2 | Добавлено: 18.11.03 02:41 |
|
А если я рисую Шейпы в одном из приложений. И допустим беру данные из ячейки Excel'я, а не использую форму ??? |
||
|
Номер ответа: 3 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #3 | Добавлено: 18.11.03 09:59 |
|
А где ты их рисуешь? |
||
|
Номер ответа: 4 Автор ответа: Павел ФроловВопросов: 1 Ответов: 2 |
Профиль | | #4 | Добавлено: 19.11.03 01:12 |
|
Я рисую на рабочем столе Excel или Word т.е. я использую колекцию Shapes MSoffice. и метод ADDLINE(#,#,#,#) Код такой ActiveSheet.Shapes.AddLine(225, 61.5, 237.75, 173.25).Select и мне эта координаты хотелосьбы вводить в см. а не в твипах и пунктах. |
||
Страница: 1 |