Проверка существования листа диаграммы в рабочей книге Excel из кода VBA с помощью присвоения ссылки на лист диаграммы объектной переменной.
Проверка существования диаграммы
Пользовательская функция VBA Excel для проверки существования листа диаграммы в рабочей книге путем определения результата присвоения ссылки на него объектной переменной. Присвоение состоялось (ChartExist = True) – искомый лист диаграммы существует, произошла ошибка и присвоение не состоялось (ChartExist = False) – искомый лист диаграммы не существует.
|
1 2 3 4 5 6 |
Function ChartExist(WbName As String, ChName As String) As Boolean Dim myChart As Chart On Error Resume Next Set myChart = Workbooks(WbName).Charts(ChName) ChartExist = Not myChart Is Nothing End Function |
Аргументы функции ChartExist:
- WbName – имя открытой рабочей книги, в которой ищется диаграмма.
- ChName – имя искомого листа диаграммы.
Примеры с функцией ChartExist
Если функция ChartExist размещена в модуле VBA той же рабочей книги Excel:
|
1 2 3 4 5 6 7 |
Sub Primer1() If ChartExist(ThisWorkbook.Name, "Диаграмма1") Then MsgBox "Лист диаграммы существует" Else MsgBox "Лист диаграммы не существует" End If End Sub |
Если функция ChartExist размещена в личной книге макросов:
|
1 2 3 4 5 6 7 |
Sub Primer2() If Application.Run("PERSONAL.XLSB!Module1.ChartExist", ThisWorkbook.Name, "Диаграмма1") Then MsgBox "Лист диаграммы существует" Else MsgBox "Лист диаграммы не существует" End If End Sub |
Функции для проверки существования рабочего листа по его имени представлены в статье: VBA Excel. Проверка существования листа.