У нас вы можете посмотреть бесплатно How to resize charts in excel using VBA или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса ClipSaver.ru
How to make a chart bigger or smaller with buttons in excel Sub chartbig() With ActiveSheet.Shapes("Chart1") .Top = Range("E2").Top .Left = Range("E2").Left .Width = Range("E2:L16").Width .Height = Range("E2:L16").Height End With ActiveSheet.Shapes("big").Visible = msoFalse ActiveSheet.Shapes("small").Visible = msoTrue ActiveSheet.Shapes("Chart2").ZOrder msoSendToBack End Sub Sub chartsmall() With ActiveSheet.Shapes("Chart1") .Top = Range("E2").Top .Left = Range("E2").Left .Width = Range("E2:I13").Width .Height = Range("E2:I13").Height End With ActiveSheet.Shapes("big").Visible = msoTrue ActiveSheet.Shapes("small").Visible = msoFalse End Sub Sub chartbig2() With ActiveSheet.Shapes("Chart2") .Top = Range("G2").Top .Left = Range("G2").Left .Width = Range("G2:N16").Width .Height = Range("G2:N16").Height End With ActiveSheet.Shapes("big2").Visible = msoFalse ActiveSheet.Shapes("small2").Visible = msoTrue ActiveSheet.Shapes("Chart1").ZOrder msoSendToBack End Sub Sub chartsmall2() With ActiveSheet.Shapes("Chart2") .Top = Range("J2").Top .Left = Range("J2").Left .Width = Range("J2:N13").Width .Height = Range("J2:N13").Height End With ActiveSheet.Shapes("big2").Visible = msoTrue ActiveSheet.Shapes("small2").Visible = msoFalse End Sub