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

Вход

Регистрация

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

 

= Мир MS Excel/Увеличение диаграммы при наведение на нее - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Увеличение диаграммы при наведение на нее (Формулы/Formulas)
Увеличение диаграммы при наведение на нее
Mirror Дата: Пятница, 03.04.2020, 10:48 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте, подскажите, есть ли возможность в excel при наведение на диаграмму курсором автоматическое увеличение её или при нажатие на нее?
 
Ответить
СообщениеЗдравствуйте, подскажите, есть ли возможность в excel при наведение на диаграмму курсором автоматическое увеличение её или при нажатие на нее?

Автор - Mirror
Дата добавления - 03.04.2020 в 10:48
Nic70y Дата: Пятница, 03.04.2020, 11:18 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8708
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
при нажатие

[vba]
Код
Sub U_709()
    u_1 = ActiveSheet.Shapes("Диаграмма 1").Width   '360 ширина
    'u_2 = ActiveSheet.Shapes("Диаграмма 1").Height  '216 высота
    If u_1 = 360 Then
        ActiveSheet.Shapes("Диаграмма 1").Width = 432.75
        ActiveSheet.Shapes("Диаграмма 1").Height = 294.375
    Else
        ActiveSheet.Shapes("Диаграмма 1").Width = 360
        ActiveSheet.Shapes("Диаграмма 1").Height = 216
    End If
End Sub
[/vba]
К сообщению приложен файл: 0046796.xlsm (18.6 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщение
при нажатие

[vba]
Код
Sub U_709()
    u_1 = ActiveSheet.Shapes("Диаграмма 1").Width   '360 ширина
    'u_2 = ActiveSheet.Shapes("Диаграмма 1").Height  '216 высота
    If u_1 = 360 Then
        ActiveSheet.Shapes("Диаграмма 1").Width = 432.75
        ActiveSheet.Shapes("Диаграмма 1").Height = 294.375
    Else
        ActiveSheet.Shapes("Диаграмма 1").Width = 360
        ActiveSheet.Shapes("Диаграмма 1").Height = 216
    End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 03.04.2020 в 11:18
Mirror Дата: Пятница, 03.04.2020, 12:12 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Спасибо, то что надо
 
Ответить
СообщениеСпасибо, то что надо

Автор - Mirror
Дата добавления - 03.04.2020 в 12:12
Mirror Дата: Пятница, 03.04.2020, 12:23 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
при нажатие


при копирование кода в свой файл при нажатие на диаграмму не реагирует (код не срабатывает), только если активировать код вручную, срабатывает
 
Ответить
Сообщение
при нажатие


при копирование кода в свой файл при нажатие на диаграмму не реагирует (код не срабатывает), только если активировать код вручную, срабатывает

Автор - Mirror
Дата добавления - 03.04.2020 в 12:23
Nic70y Дата: Пятница, 03.04.2020, 12:25 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8708
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
Правой кнопкой мыши по диаграмме - назначить макрос


ЮMoney 41001841029809
 
Ответить
СообщениеПравой кнопкой мыши по диаграмме - назначить макрос

Автор - Nic70y
Дата добавления - 03.04.2020 в 12:25
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Увеличение диаграммы при наведение на нее (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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