Свойство Action используется в программе Visual Basic для указания операции, выполняемой над объектом OLE.

Значения

Свойство Action может иметь следующие значения.

Константа Описание
acOLECreateEmbed Создает внедренный объект. Для применения данного значения следует предварительно задать для свойства элемента управления OLETypeAllowed значение acOLEEmbedded или acOLEEither. В свойстве Класс (Class) следует указать тип создаваемого объекта OLE. Свойство Документ-источник (SourceDoc) позволяет использовать существующий файл в качестве образца объекта.
AcOLECreateLink Создает связанный объект OLE, в котором выводится содержимое файла. Для применения данного значения необходимо предварительно определить значения свойств Допустимый тип OLE (OLETypeAllowed) и Документ-источник (SourceDoc).Для свойства Допустимый тип OLE (OLETypeAllowed) следует указать значение acOLELinked или acOLEEither. Свойство Документ-источник (SourceDoc) позволяет указать файл, используемый для создания объекта OLE. Кроме того, в свойстве Источник данных (SourceItem) можно определить связываемый фрагмент файла (например, для указания диапазона ячеек, если создаваемый объект является электронной таблицей Microsoft Excel). При создании объекта OLE с помощью данного значения свойства в элементе управления выводится графическое изображение (в формате метафайла файла, указанного в свойстве Документ-источник (SourceDoc) элемента управления. При сохранении объекта OLE в действительности сохраняется только описание связи (имя приложения, в котором был создан объект, и имя связанного файла), поскольку элемент управления содержит изображение данных, но не содержит самих исходных данных.
acOLECopy Копирует объект в буфер обмена. При копировании объекта OLE в буфер обмена помещаются все данные и сведения о связи, относящиеся к данному объекту. Допускается копирование в буфер обмена как связанных, так и внедренных объектов. Использование данного значения эквивалентно выполнению команды Копировать в меню Правка.
acOLEPaste Копирует данные из буфера обмена в элемент управления. Если операция вставки прошла успешно, то свойство элемента управления Тип OLE (OLEType) получает значение acOLELinked или acOLEEmbedded. Если операцию вставки выполнить не удалось, то свойство Тип OLE (OLEType) будет иметь значение acOLENone. Использование значения acOLEPaste эквивалентно выполнению команды Вставить из меню Правка.
acOLEUpdate Загружает текущие данные объекта OLE из приложения, в котором был создан объект, и выводит графическое изображение этих данных в элементе управления.
acOLEActivate Открывает объект OLE для выполнения действий, например, для редактирования. Для применения данного значения необходимо предварительно задать значение свойства Команда (Verb). Свойство Команда (Verb) определяет операцию, которая будет выполнена при запуске объекта OLE.
acOLEClose Закрывает объект OLE и заканчивает сеанс подключения к приложению, в котором был создан объект. Данное значение относится только к внедренным объектам, а его использование эквивалентно выбору команды Закрыть в оконном меню объекта.
acOLEDelete Удаляет указанный объект OLE и освобождает занимаемую объектом область памяти. Данное значение позволяет явно удалить объект OLE. Объекты OLE удаляются автоматически при закрытии формы или при замене объекта на новый объект. Не допускается использование свойства Action для удаления присоединенного объекта OLE из базовой таблицы или запроса.
acOLEInsertObjDlg Открывает диалоговое окно Вставка объекта. В режиме формы или в режиме таблицы разработчик выводит данное окно диалога, чтобы позволить пользователю создать новый объект или связать или внедрить существующий. Свойство элемента управления Допустимый тип OLE (OLETypeAllowed) позволяет при этом определить (с помощью констант acOLELinked, acOLEEmbedded или acOLEEither) тип объекта, который пользователю разрешено вставить в этом окне диалога.
acOLEPasteSpecialDlg Открывает окно диалога Специальная вставка. В режимах формы или таблицы разработчик выводит данное окна диалога, чтобы позволить пользователю вставить объект из буфера обмена. Параметры окна диалога предоставляют выбор нескольких возможностей, в том числе связывание или внедрение объекта. Свойство элемента управления Допустимый тип OLE (OLETypeAllowed) позволяет при этом определить (с помощью констант acOLELinked, acOLEEmbedded или acOLEEither) тип объекта, который пользователю разрешено вставить в этом окне диалога.
acOLEFetchVerbs Обновляет список команд, поддерживаемых объектом OLE. Вывести список команд позволяют свойства ObjectVerbs и ObjectVerbsCount.
Значение свойства Action задается только в программе Visual Basic. Значение свойства Action принадлежит к типу данных Integer.
Свойство Action недоступно в режиме конструктора, но может быть считано или задано в других режимах.

Дополнительные сведения

Если в свойстве Доступ (Enabled) установлено значение Нет или в свойстве Блокировка (Locked) установлено значение Да, то применение некоторых значений свойства Action становится невозможным. В следующей таблице показано, какие значения допускается или не допускается использовать в этих случаях.

Значения Доступ (Enabled) = Нет Блокировка (Locked) = Да
acOLECreateEmbed Не допускается Не допускается
acOLECreateLink Не допускается Не допускается
acOLECopy Допускается Допускается
acOLEPaste Не допускается Не допускается
acOLEUpdate Не допускается Не допускается
acOLEActivate Допускается Допускается
acOLEClose Не допускается Допускается
acOLEDelete Не допускается Не допускается
acOLEInsertObjDlg Не допускается Не допускается
acOLEPasteSpecialDlg Не допускается Не допускается
acOLEFetchVerbs Не допускается Допускается

Пример использования:

Следующая процедура, определенная для кнопки, создает при нажатии кнопки связанный объект OLE и задает изменяемые размеры объекта, позволяющие полностью отобразить его содержимое в элементе управления.

Sub Кнопка1_Click
OLE1.Class = "Excel.Sheet" ' Задает имя класса.
OLE1.OLETypeAllowed = acOLELinked ' Задает тип объекта.
OLE1.SourceDoc = "C:\Excel\Oletext.xls" ' Задает файл-источник.
OLE1.SourceItem = "R1C1:R5C5" ' Задает связываемый фрагмент.
OLE1.Action = acOLECreateLink ' Создает связанный объект.
OLE1.SizeMode = acOLESizeZoom ' Задает изменяемые размеры элемента управления.
End Sub