Увеличение диаграммы при наведение на нее

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Увеличение диаграммы при наведение на нее (Формулы/Formulas)

Mirror

Дата: Пятница, 03.04.2020, 10:48 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2019

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

Ответить

Nic70y

Дата: Пятница, 03.04.2020, 11:18 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 9122

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

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

Excel 2010

Цитата Mirror, 03.04.2020 в 10:48, в сообщении № 1 ()

при нажатие

[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]