[МишаИнженер]

Посмотрите файл EXCEL для черчения на форме UserForm в VBA Excel.
Использую код VBA для смены режима черчения:

Код:

[Выделить все]

Private Sub CommandButton1_Click()
   I = I + 1
   SetMapMode hdc, I 'сменим режим черчения на следующий согласно таблице 4
   J = GetMapMode(hdc) 'получим текущий режим черчения
   MsgBox "Текущий режим черчения GDIMap= " & J
   DrawLine 100, 100
   DrawCircle 60, 60, 100, 100
   DrawRectangle 160, 60, 260, 100
End Sub

Объясните пожалуйста, почему не работает метод MoveToEx и все линии чертятся из начальной точки 0,0 находящейся в левом верхнем углу UserForm?
При нажатии на кнопку "Чертить" режим координат окна UserForm должен меняться согласно таблице:

Таблица 4. Возможные значения параметра fnMapMode функции SetMapMode ЗНАЧЕНИЕ ОПИСАНИЕ MM_TEXT Логические координаты совпадают с физическими координатами устройства. В качестве единиц измерения используются пиксели. Левый верхний угол экрана имеет координаты (0, 0); ось Х направлена вправо, а ось Y - вниз. Этот режим отображения принят по умолчанию. MM_HIMETRIC Каждая единица логических координат соответствует 0,01 мм. Левый нижний угол имеет координаты (0, 0). Ось Х направлена вправо. Ось Y направлена вверх. MM_HIENGLISH Каждая единица логических координат соответствует 0,001 дюйма. Левый нижний угол имеет координаты (0, 0). Ось Х направлена вправо. Ось Y направлена вверх. MM_LOENGLISH Каждая единица логических координат соответствует 0,01 дюйма. Левый нижний угол имеет координаты (0, 0). Ось Х направлена вправо. Ось Y направлена вверх. MM_TWIPS Каждая единица логических координат соответствует 1/1440 дюйма. Левый нижний угол имеет координаты (0, 0). Ось Х направлена вправо. Ось Y направлена вверх. MM_ANISOTROPIC Каждая единица логических координат может соответствовать произвольному количеству точек устройства, которое независимо масштабируется по каждой из осей. Задавать поведение этого режима можно при помощи функций SetWindowExtEx и SetViewportExtEx. MM_ISOTROPIC Каждая единица логических координат может соответствовать произвольному количеству точек устройства, которое одинаково масштабируется по осям. Задавать поведение этого режима можно при помощи функций SetWindowExtEx и SetViewportExtEx.

Эта таблица взята отсюда: http://igrocoder.ru/tiki-index... ие+объекты

[Сергей812]

если что-то работает, но не так как ожидалось - пошагово просматривайте в отладчике значения переменных.