Создание диаграмм и спарклайнов

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание диаграмм и спарклайнов (Макросы/Sub)

Oh_Nick

Дата: Понедельник, 19.04.2021, 20:03 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

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

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

Excel 2019

Доброго времени суток!

Задача возникла следующая:

1) Есть форма, которая автоматически открывается при открытии файла. На этой форме есть два чека: спарклайны и диаграммы

Как сделать, чтобы при нажатии на спарклайны и кнопку Crate сделались спарклайны в ячейках C2:C13 (в зависимости от А2:B13)
Как сделать, чтобы при нажатии на диаграммы и кнопку Crate вывелась диаграмма на отдельный лист?

Заранее спасибо!

К сообщению приложен файл: 0288327.xlsm (23.9 Kb)

Ответить

psih

Дата: Вторник, 20.04.2021, 09:08 | Сообщение № 2

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

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

Сообщений: 5

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

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

[vba]

Код

Private Sub CommandButton1_Click()
If CheckBox1 = True Then
    Range("$C$2").SparklineGroups.Add Type:=xlSparkLine, SourceData:="B2:B13"
End If
If CheckBox2 = True Then
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("Данные!$A$1:$B$13")
    ActiveChart.Location Where:=xlLocationAsNewSheet
End If
End Sub

[/vba]