Автозаголовки (AutoCaptions)
Коллекция объектов AutoCaptions (AutoCaption) представляет заголовки, которые могут быть автоматически добавлены при вставке в документ OLE-объектов. В эту коллекцию, конечно же, ни добавлять, ни удалять элементы не разрешается, но можно включить или отключить автоматическое добавление заголовка при вставке того или иного OLE-объекта. Работа вручную идет в уже упомянутом диалоговом окне, открываемом по команде Caption. Программно это можно делать так:
Public Sub >WorkWithAutoLabels() 'Работа с коллекцией автозаголовков Dim Item As AutoCaption
Debug.Print AutoCaptions.Count For Each Item In AutoCaptions 'Включение автоматической вставки заголовка item.AutoInsert = True Debug.Print Item .Name Next Item
End Sub
Листинг 1.7.
(html, txt)
Процедура WorkWithAutoLabels включает все автозаголовки и распечатывает их имена. Приведем первую семерку имен OLE-объектов из 28 объектов, которые можно добавить в текущий момент у меня на компьютере:
Листинг 1.8.
(html, txt)
