Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Нанесение фигуры на диаграмму происходит не правильно - со с - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Нанесение фигуры на диаграмму происходит не правильно - со с
kalakom Дата: Пятница, 08.02.2019, 13:55 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день.

Хочу дать пользователям выделения диапазонов на диаграмме.
Для этого решил использовать нанесения на диаграмму фигуры прямоугольника.
Положение прямоугольника определяю по координатам мыши, переданным Excel в обработчик MouseUp диаграммы.
Прямоугольник наносится на PlotArea.

Запустить пример можно из процедуры df() модуля Module1.
Для нанесения прямоугольника необходимо нажать комбинацию <ЛВК+Ctrl> в области построения диаграммы (PlotArea)
ЛВК - левая кнопка мыши.

Проблема в том, что начало прямоугольника наносится со смещением относительно координаты Х переданный Excel в обработчик MouseUp диаграммы.
Ожидалось, что начало прямоугольника будет точно совпадать с координатой Х. Откуда берется смещение?

Спасибо!
К сообщению приложен файл: 6982994.xlsm (27.1 Kb)
 
Ответить
СообщениеДобрый день.

Хочу дать пользователям выделения диапазонов на диаграмме.
Для этого решил использовать нанесения на диаграмму фигуры прямоугольника.
Положение прямоугольника определяю по координатам мыши, переданным Excel в обработчик MouseUp диаграммы.
Прямоугольник наносится на PlotArea.

Запустить пример можно из процедуры df() модуля Module1.
Для нанесения прямоугольника необходимо нажать комбинацию <ЛВК+Ctrl> в области построения диаграммы (PlotArea)
ЛВК - левая кнопка мыши.

Проблема в том, что начало прямоугольника наносится со смещением относительно координаты Х переданный Excel в обработчик MouseUp диаграммы.
Ожидалось, что начало прямоугольника будет точно совпадать с координатой Х. Откуда берется смещение?

Спасибо!

Автор - kalakom
Дата добавления - 08.02.2019 в 13:55
bmv98rus Дата: Пятница, 08.02.2019, 15:15 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4115
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
[vba]
Код
    Set НаносимоеВыделение = .Shapes.AddShape(msoShapeLineCallout2AccentBar, x / ActiveWindow.Zoom*75, .PlotArea.InsideTop, 10, .PlotArea.InsideHeight)
[/vba]
ZOOM вносит искажение 75 - опытным путем примерно подобран


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение[vba]
Код
    Set НаносимоеВыделение = .Shapes.AddShape(msoShapeLineCallout2AccentBar, x / ActiveWindow.Zoom*75, .PlotArea.InsideTop, 10, .PlotArea.InsideHeight)
[/vba]
ZOOM вносит искажение 75 - опытным путем примерно подобран

Автор - bmv98rus
Дата добавления - 08.02.2019 в 15:15
kalakom Дата: Пятница, 08.02.2019, 15:37 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо за подсказку.

Посмотрю в этом направлении.
 
Ответить
СообщениеСпасибо за подсказку.

Посмотрю в этом направлении.

Автор - kalakom
Дата добавления - 08.02.2019 в 15:37
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!