Dim Item As CaptionLabel With
|
Public Sub AddCaptions() 'Работа с коллекцией заголовков Dim Item As CaptionLabel With CaptionLabels Debug.Print .Count 'Добавление трех заголовков .Add "Мой Рисунок" .Add "Диаграмма Excel" .Add "Мой Пример" Debug.Print .Count For Each Item In CaptionLabels Debug.Print Item .Name Next Item 'Удаление последнего заголовка .item(.Count).Delete End With End Sub |
| Листинг 1.3. |
| Закрыть окно |
