Эскиз надстройки для осей графика

Дата: Среда, 20.07.2011, 11:42 | Сообщение № 1

Группа: Друзья

Ранг: Форумчанин

Сообщений: 116

Репутация: 41 ±

Замечаний: 0% ±

10

Всем привет,
С Вашего разрешения продублирую тему, которую выложил на планете. Там очень быстро "закопают", поэтому решил повторить здесь.

Ранее была тема, где один пользователь очень посетовал, что нет возможности прочитать курсором промежуточные значения графика. Почему нет. Дальше больше. В результате выкладываю на Ваш суд и тестирование проект надстройки осей на графике. К сожалению в Excel 2003 она работает не корректно, у меня нет возможности отладить ее в Excel 2003. Все писалось и отлаживалось в Excel2007.

Работает просто во вкладке Надстройки команда "Оси на графике Вкл/Выкл" (на горячую клавишу не вешал), на листе 1 можно нажать кнопочку. Курсор распознает диаграмму и рисует оси. Для дискретных графиков ось данных перемещается дискретно, для XY зависимостей плавно. Правый клик на XY графиках вызавает меню с предложением фиксации значений. Левый клик на дискретных меняет значение, на XY копирует значение в буфер обмена.

Просьба Всем, кому эта тема интересна. Фантазия кончилась. Какую функциональность можно добавить? Рад буду Вашим откликам.

Владимир.

К сообщению приложен файл: __V6.zip (99.3 Kb)

Всем удачи. У нас все получится.
С уважением, Владимир.

Сообщение
Всем привет,
С Вашего разрешения продублирую тему, которую выложил на планете. Там очень быстро "закопают", поэтому решил повторить здесь.

Ранее была тема, где один пользователь очень посетовал, что нет возможности прочитать курсором промежуточные значения графика. Почему нет. Дальше больше. В результате выкладываю на Ваш суд и тестирование проект надстройки осей на графике. К сожалению в Excel 2003 она работает не корректно, у меня нет возможности отладить ее в Excel 2003. Все писалось и отлаживалось в Excel2007.

Работает просто во вкладке Надстройки команда "Оси на графике Вкл/Выкл" (на горячую клавишу не вешал), на листе 1 можно нажать кнопочку. Курсор распознает диаграмму и рисует оси. Для дискретных графиков ось данных перемещается дискретно, для XY зависимостей плавно. Правый клик на XY графиках вызавает меню с предложением фиксации значений. Левый клик на дискретных меняет значение, на XY копирует значение в буфер обмена.

Просьба Всем, кому эта тема интересна. Фантазия кончилась. Какую функциональность можно добавить? Рад буду Вашим откликам.

Владимир.

Автор - VovaK
Дата добавления - 20.07.2011 в 11:42

Дата: Среда, 20.07.2011, 13:50 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Привет.

На работе 2010 - при запуске появляется ошибка на строке:

Code

If TypeName(obj.Parent.DrawingObjects(NewValue)) = "ChartObject" Then RedrawLine (NewValue)

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 20.07.2011, 15:20 | Сообщение № 3

Группа: Друзья

Ранг: Форумчанин

Сообщений: 116

Репутация: 41 ±

Замечаний: 0% ±

10

Serge_007,
Проверьте пожалуйста работает ли, если заменить

If TypeName(obj.Parent.DrawingObjects(NewValue)) = "ChartObject" Then RedrawLine (NewValue)

на две строки:

On Error Resume Next
If obj.Type = msoChart Then RedrawLine (NewValue)

Всем удачи. У нас все получится.
С уважением, Владимир.

Дата: Среда, 20.07.2011, 15:25 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (VovaK)

работает ли, если заменить?

Да.

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 20.07.2011, 15:53 | Сообщение № 5

Группа: Друзья

Ранг: Форумчанин

Сообщений: 116

Репутация: 41 ±

Замечаний: 0% ±

10

Serge_007,
Спасибо.

Всем удачи. У нас все получится.
С уважением, Владимир.

Дата: Понедельник, 25.07.2011, 20:42 | Сообщение № 6

Группа: Друзья

Ранг: Форумчанин

Сообщений: 116

Репутация: 41 ±

Замечаний: 0% ±

10

Продолжим рассмотрение...
В этой версии добавил значения на осях, ввод значения через меню, кросс-курсор, выключение из меню по правому клику...

К сообщению приложен файл: __V6.rar (97.3 Kb)

Всем удачи. У нас все получится.
С уважением, Владимир.

Дата: Понедельник, 25.07.2011, 20:47 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

У меня всё работает.

ЮMoney:41001419691823 | WMR:126292472390

Дата: Вторник, 26.07.2011, 10:07 | Сообщение № 8

Группа: Друзья

Ранг: Форумчанин

Сообщений: 116

Репутация: 41 ±

Замечаний: 0% ±

10

Спасибо Сергей,

На Ваш взгляд достаточно функциональности?

Всем удачи. У нас все получится.
С уважением, Владимир.

Дата: Вторник, 26.07.2011, 10:16 | Сообщение № 9

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (VovaK)

На Ваш взгляд достаточно функциональности?

Более чем.
Я бы даже немного убрал smile

Метки при наведении курсора остаются и дополнительные линии на графиках спустя некоторое время покрывают его густой сеткой. Я бы сделал кнопку "Очистить". Или прорисовку линий не просто при наведении курсора, а при наведении курсора и нажатии кнопки мыши.

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 05.10.2011, 13:17 | Сообщение № 10

Группа: Друзья

Ранг: Форумчанин

Сообщений: 116

Репутация: 41 ±

Замечаний: 0% ±

10

Добавил выбор рядов, устранил несколько ошибок...

К сообщению приложен файл: __V6_.zip (98.2 Kb)

Всем удачи. У нас все получится.
С уважением, Владимир.