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

Вход

Регистрация

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

 

= Мир MS Excel/Редактирование Цвета Оси Диаграммы (визуальное улучшение) - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Редактирование Цвета Оси Диаграммы (визуальное улучшение) (Макросы/Sub)
Редактирование Цвета Оси Диаграммы (визуальное улучшение)
rever27 Дата: Среда, 05.08.2015, 09:20 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 141
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Доброе Утро, Камрады.
Строю График по дополнительной Оси, но весь диапазон значений этой оси мне не нужен. Как можно скрыть часть неиспользуемых значений? (Из Приложения 1, сделать Приложение 2)
Заливка текста градиентом решила бы проблему, но не нашел этой настройки. Пользуюсь перекрытием значений дополнительным Shape Элементом - Квадратом Малевича :D
К сообщению приложен файл: 6573473.png (51.9 Kb) · 4898861.png (57.4 Kb)
 
Ответить
СообщениеДоброе Утро, Камрады.
Строю График по дополнительной Оси, но весь диапазон значений этой оси мне не нужен. Как можно скрыть часть неиспользуемых значений? (Из Приложения 1, сделать Приложение 2)
Заливка текста градиентом решила бы проблему, но не нашел этой настройки. Пользуюсь перекрытием значений дополнительным Shape Элементом - Квадратом Малевича :D
Автор - rever27
Дата добавления - 05.08.2015 в 09:20
_Boroda_ Дата: Среда, 05.08.2015, 09:28 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Можно так
Формат оси - Число - Все форматы - там что-то типа
[<0,16]0%;;;
К сообщению приложен файл: 161454984.xlsm (10.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеМожно так
Формат оси - Число - Все форматы - там что-то типа
[<0,16]0%;;;
Автор - _Boroda_
Дата добавления - 05.08.2015 в 09:28
rever27 Дата: Среда, 05.08.2015, 10:50 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 141
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
_Boroda_, Как всегда - Отлично работает, спасибо )
А можно как то число 0,16 заменить на Формулу или Ячейку со значением? Мое максимально видимое значение должно быть по формуле Application.Max(Columns(2))
 
Ответить
Сообщение_Boroda_, Как всегда - Отлично работает, спасибо )
А можно как то число 0,16 заменить на Формулу или Ячейку со значением? Мое максимально видимое значение должно быть по формуле Application.Max(Columns(2))
Автор - rever27
Дата добавления - 05.08.2015 в 10:50
_Boroda_ Дата: Среда, 05.08.2015, 10:55 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Ну Вы же макросом всё это делаете, правильно? Вот макросом и ставьте формат оси
[vba]
Код
"[<=" & Application.Max(Columns(2)) & "]0%;;;"
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНу Вы же макросом всё это делаете, правильно? Вот макросом и ставьте формат оси
[vba]
Код
"[<=" & Application.Max(Columns(2)) & "]0%;;;"
[/vba]
Автор - _Boroda_
Дата добавления - 05.08.2015 в 10:55
rever27 Дата: Среда, 05.08.2015, 11:27 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 141
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
_Boroda_, Пол часа мучился, не понимал, почему не работает )
Формат данных не воспринимает точку(.), которая стоит у меня в настройках вместо запятой.
Такой вариант работает. Спасибо )))

[vba]
Код
"[<=" & Replace(Application.Max(Columns(5)), ",", Application.DecimalSeparator) & "]0%;;;"
[/vba]
 
Ответить
Сообщение_Boroda_, Пол часа мучился, не понимал, почему не работает )
Формат данных не воспринимает точку(.), которая стоит у меня в настройках вместо запятой.
Такой вариант работает. Спасибо )))

[vba]
Код
"[<=" & Replace(Application.Max(Columns(5)), ",", Application.DecimalSeparator) & "]0%;;;"
[/vba]
Автор - rever27
Дата добавления - 05.08.2015 в 11:27
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Редактирование Цвета Оси Диаграммы (визуальное улучшение) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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