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