В настоящее время вы работаете в автономном режиме; ожидается повторное подключение к Интернету

Использование OLE-автоматизации в Visio

Поддержка Office 2003 завершена

8 апреля 2014 г. корпорация Майкрософт прекратила поддержку Office 2003. Это повлияло на обновления программного обеспечения и параметры безопасности. Узнайте, что это значит для вас и какие меры по безопасности можно предпринять.

ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.

Эта статья на английском языке:309603
ВВЕДЕНИЕ
Эта статья содержит сведения об использовании Microsoft Visual Basic или Microsoft Visual Basic для приложений (VBA) для автоматизации Microsoft Office Visio2from другой корпорации Майкрософт Программы Office.

Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации без гарантии или подразумеваемых. Это включает, но не ограничиваясь Чтобы подразумеваемые гарантии товарности или пригодности для определенной Цель. В данной статье предполагается, что вы знакомы с программированием язык, рассчитаны и с помощью средств, которые используются для создания и отладки. Сотрудники службы поддержки корпорации Майкрософт могут объяснить функциональные возможности конкретной процедуры, но они не изменит их Примеры расширения его функциональности или удовлетворения ваших особые требования. к началу статьи TOP

Общие сведения об автоматизации

(Также называемые автоматизации OLE-автоматизации) в Visual Basic — это процесс управления из одной программы другая программа или средство разработки внешних. Можно автоматизировать любой программы, содержит программу Visual Basic Объектная модель. Объектная модель имеет иерархическую структуру программы объекты, которые доступны или предоставляемые в Visual Basic.

Например модель объекта Microsoft Visio содержит объекты, например:
  • Приложения и глобального объекта
  • Объект документа
  • Объект страницы
  • Главный объект
  • Выделение объектов
  • Объект Shape
  • Объект окна
Каждый из этих объектов имеет уникальный набор методов и свойства, необходимые для работы с ними в Visual Basic. Например Объект Shape может представлять любой объект на странице документа Visio, вы можете Выберите с помощью указателя. Таким образом объект фигуры могут быть фигуры, группы руководство, элемент управления или объект из другого приложения, с которым связана, внедрен, или импортирован в рисунка Visio.

К началу к началу

Приступая к работе

Примеры кода в этой статье показано, как управлять Visio в Microsoft Office 2007, Microsoft Office 2003, Microsoft Office 2002, Microsoft Visual Basic 6.0, или из любой программы, включающей разработки Visual Basic средство. Для автоматизации Visio, выполните следующие четыре основных этапа:
  1. Добавьте ссылку на библиотеку типов Visio.
  2. Объявите переменную как тип объекта Visio (обычно Visio.Application или Visio.Documents).
  3. Метод GetObject или CreateObject назначения объекта Переменная, объявленная на шаге 2.
  4. С помощью свойства, методы и дочерних объектов Visio объекты автоматизации Visio.
Перейти к началу страницы

Шаг 1: Добавьте ссылку на библиотеку типов Visio

Чтобы добавить ссылку на библиотеку типов Visio с помощью Microsoft Приложения Office, например Microsoft Office XP или Office 2003, выполните следующие действия:
  1. В точке доступа, PowerPoint, Excel или Word, чтобы Макросы В меню Сервис меню, а затем нажмите кнопку Редактор Visual Basic.
  2. На Сервис меню, нажмите кнопку Ссылки.

    Примечание Чтобы добавить ссылку, с помощью Microsoft Visual Basic 6.0, нажмите кнопку Ссылки В меню Проект меню.
  3. В списке Доступные ссылки, выберите один из следующих флажков, в зависимости от Версия Visio с помощью:
    • Для Visio 2007 нажмите кнопку для выбора Библиотеки типов Microsoft Visio 12.0 флажок.
    • Для Visio 2003, установите Библиотеки типов Microsoft Visio 11.0 флажок.
    • Для Visio 2002, нажмите кнопку для выбора Библиотеки типов Microsoft Visio 2002 флажок.
При добавлении ссылки на библиотеку типов Microsoft Visio, на Программа может получить доступ к интерактивной справки Microsoft Visio и объектной модели Visio. Поскольку ссылки сохраняются в каждом проекте, необходимо добавить Visio Введите ссылку на библиотеку для каждого проекта Visual Basic или VBA, который требуется используется для автоматизации Visio.

к началу статьи TOP

Шаг 2: Объявление переменной объекта

Объявите переменную объекта Visio, как для переменной размерность конкретный тип объекта Visio, такие как Visio.Application, Visio.Documents, или Visio.Page.

Вызывается явного объявления типа объекта Раннее связывание Поскольку приложение подключается или Привязывает объект для приложения Visio во время компиляции вместо во время выполнения. Это обеспечивает доступ к Visio автоматически списков и с учетом контекста Справка и позволяет более эффективно выполнять код.

Для получения дополнительных сведений о связывании объекта щелкните следующий номер статьи базы Microsoft База знаний:
138138Позднее ID, раннее связывание типов возможно в VB приложений
Следующий аргумент Visual Basic пример объявляет Переменная AppVisio как создать объект типа Visio.Application:

   Dim AppVisio as Visio.Application				
Перейти к началу страницы

Шаг 3: Установка переменной

Следующие два метода Visual Basic можно использовать для активации Visio:
  • Функция CreateObject
  • GetObject
Основное различие заключается в том, что метод CreateObject создается новый экземпляр Visio и метод GetObject используется уже выполняется экземпляр Visio. Можно также использовать GetObject присвоено переменной объекта конкретный документ Visio.

Следующий пример задает аргумент AppVisio переменная для приложения Visio с помощью CreateObject функции:
   Dim AppVisio as Visio.Application   Set AppVisio = CreateObject("Visio.Application")				
В некоторых случаях может потребоваться использовать существующий экземпляр Visio Visio уже запущен, но Создание нового экземпляра, если Visio не выполняется. Для сделать это, создайте обработчик ошибок, метод CreateObject используется в событии что метод GetObject сбоя, как показано в этом примере кода:
   Dim AppVisio As Visio.Application   On Error Resume Next   Set AppVisio = GetObject(, "visio.application")   If AppVisio Is Nothing Then      Set AppVisio = CreateObject("visio.application")   End If				
Примечание Можно также использовать функции CreateObject для создания Visio экземпляр, который остается невидимым. Например:
Set AppVisio = CreateObject("Visio.InvisibleApp")				
Затем можно использовать свойство Visible объекта приложения для управления виден ли экземпляр.

Можно использовать объект InvisibleApp только функции CreateObject. При попытке его использовать с GetObject функция не удастся. Объект InvisibleApp не поддерживается в версиях Visio более ранней, чем Microsoft Visio 2000.

Перейти к началу страницы

Шаг 4: Использование объектов Visio, методы и свойства

После выполнения шагов 1-3 можно использовать Visio объектная переменная для автоматизации Visio.

Следующий пример макроса использует автоматизации для запуска Visio, создать новый документ (документ), основанные на базовом Шаблон схемы станет прямоугольник добавляется текст и сохраняет рисования и Выход из программы Visio.
Sub AutoVisio()      Dim AppVisio As Visio.Application  ' Declare an Instance of Visio.   Dim docsObj As Visio.Documents     ' Documents collection of instance.   Dim DocObj As Visio.Document       ' Document to work in.   Dim stnObj As Visio.Document       ' Stencil that contains master.   Dim mastObj As Visio.Master        ' Master to drop.   Dim pagsObj As Visio.Pages         ' Pages collection of document.   Dim pagObj As Visio.Page           ' Page to work in.   Dim shpObj As Visio.Shape          ' Instance of master on page.   ' Create an instance of Visio and create a document based on the   ' Basic Diagram template. It doesn't matter if an instance of   ' Visio is already running, CreateObject will run a new one.   Set AppVisio = CreateObject("visio.application")   Set docsObj = AppVisio.Documents   ' Create a document based on the Basic Diagram template that   ' automatically opens the Basic Shapes stencil.   Set DocObj = docsObj.Add("Basic Diagram.vst")   Set pagsObj = AppVisio.ActiveDocument.Pages   ' A new document always has at least one page, whose index in the   ' Pages collection is 1.   Set pagObj = pagsObj.Item(1)   Set stnObj = AppVisio.Documents("Basic Shapes.vss")   Set mastObj = stnObj.Masters("Rectangle")   ' Drop the rectangle in the approximate middle of the page.   ' Coordinates passed with the Drop method are always inches.   Set shpObj = pagObj.Drop(mastObj, 4.25, 5.5)   ' Set the text of the rectangle.   shpObj.Text = "This is some text."   ' Save the drawing and quit Visio. The message pauses the program   ' so you can see the Visio drawing before the instance closes.   DocObj.SaveAs "MyDrawing.vsd"   MsgBox "Drawing finished!", , "AutoVisio (OLE) Example"   ' Quit Visio.   AppVisio.Quit   ' Clear the variable from memory.   Set AppVisio = NothingEnd Sub				
Перейти к началу страницы
Ссылки

Microsoft Visio разработчиков веб-узлов

Дополнительные сведения об автоматизации Visio следующий веб-узел корпорации Майкрософт: Для получения дополнительных сведений о разработке Microsoft Visio решения, посетите следующий веб-узел корпорации Майкрософт:

Наборы средств разработки программного обеспечения Visio

Чтобы загрузить пакет средств разработки программного обеспечения Visio 2002, посетите следующий веб-узел корпорации Майкрософт:
Чтобы загрузить пакет средств разработки программного обеспечения Visio 2003, посетите следующий веб-узел корпорации Майкрософт:

Группы новостей

Следующие группы новостей для одноранговых помощь взаимодействие с другими пользователями Visual Basic для приложений.
Microsoft.Public.vb.OLE.Automation
Microsoft.Public.Visio.Developer.VBA

Справка по Visual Basic

Для получения дополнительных сведений об использовании Функция CreateObject щелкните функции, в редакторе Visual Basic Справка по Microsoft Visual Basic В меню Справка Тип меню функция CreateObject В диалоговом окне Поиск поле, а затем нажмите кнопку Поиск Чтобы просмотреть разделы, которые возвращаются.

Для получения дополнительных сведения об использовании GetObject щелкните функции, в редакторе Visual Basic Справка по Microsoft Visual Basic В меню Справка Тип меню функция GetObject В диалоговом окне Поиск поле, а затем нажмите кнопку Поиск Чтобы просмотреть разделы, которые возвращаются.

Перейти к началу страницы
макрос VB vba vbe OLE automation GetObject CreateObject Пример пример vso2002 vso2003 vso2007

Внимание! Эта статья переведена автоматически

Свойства

Номер статьи: 309603 — последний просмотр: 06/06/2011 09:42:00 — редакция: 4.0

Microsoft Office Visio Standard 2007, Microsoft Office Visio Professional 2007, Microsoft Office Visio Professional 2003, Microsoft Visio 2002 Standard Edition, Microsoft Visio 2002 Professional Edition

  • kbautomation kbprogramming kbvba kbhowto kbmt KB309603 KbMtru
Отзывы и предложения