Леонтьев Б.К. Я изучаю Microsoft Office Visio 2003 (PDF). Удк 004. 738. 5 Ббк 32. 973. 26 018. 2
 Скачать 0.88 Mb.
|
|
1. Выберите View ➪ ➪ Object Browser. 2. Для того, чтобы просмотреть или найти объект, свойство, ме тод, событие или константу Microsoft Office Visio, введите ее имя в текс товом поле Search или нажмите по любому члену в списке Members Of. Настройка ссылок на типовые библиотеки Приложения, поддерживающие Автоматизацию, поставляют типо вую библиотеку для описания объектов. В случае, если вы хотите получить доступ к объектам другого приложения из вашего решения Microsoft Office Visio, то выберите Tools ➪ ➪ References и укажите типовую библиотеку, кото рую вы ищите в списке доступных ссылок Available References. Кроме того, вы можете использовать эту процедуру, чтобы настроить ссылку на прило жение Microsoft Office Visio из любого другого приложения, которое под держивает Автоматизацию. Например, вы можете настроить ссылку на приложение Microsoft Office Visio из приложения Microsoft Word и далее использовать объекты Microsoft Office Visio в вашем приложении Word. Использование редактора Visual Basic 243 244 Использование редактора Visual Basic Любая типовая библиотека, отмеченная в списке доступных ссы лок Available References появляется в окне Project/Library вашего проекта. Вы можете настроить ссылку на любой открытый документ Microsoft Office Visio или просмотреть любой неоткрытый документ Microsoft Office Visio в диалоговом окне ссылок References. Важно: Для того, чтобы просмотреть только класс и члены в типо вой библиотеке Microsoft Office Visio, выберите в окне Project/Library по ле Microsoft Office Visio. Использование объектных типов Microsoft Office Visio Вы можете использовать преимущества типовой библиотеки Microsoft Office Visio и писать более эффективный код. При использова нии объектных типов Microsoft Office Visio, объявленных в типовой биб лиотеке Microsoft Office Visio, вы можете объявить переменные в виде особых типов (к примеру, Microsoft Office Visio.Page): Dim pagObj as Microsoft Office Visio.Page Использование объектного типа Microsoft Office Visio (к примеру, Microsoft Office Visio.Page) позволяет вашей программе указывать тип объекта, на который она ссылается в типовой библиотеке Microsoft Office Visio в расчетное время. Это называется ранним сращиванием. Этот при мер использует Microsoft Office Visio, чтобы информировать программу о том, что она ссылается на объектные типы Microsoft Office Visio в типо вой библиотеке Microsoft Office Visio, и этот пример использует Page, чтобы информировать программу том, что переменная pagObj является объектом Page. Вот несколько обычных объектных типов: Dim docsObj As Microsoft Office Visio.Documents'A Documents col lection Dim docObj As Microsoft Office Visio.Document 'A Document object Dim shpsObj As Microsoft Office Visio.Shapes 'A Shapes collection Dim shpObj As Microsoft Office Visio Shape 'A Shape object Когда вы печатаете пропуск после объекта или библиотечного ти па, список доступных объектных типов, свойств и методов для предше ствующего типа объекта или переменной появляются автоматически. Для того, чтобы вставить в ваш код объектный тип из списка, дважды на жмите на типе в списке. Важно: В случае, если вы при работе с кодовым окном не видите окна Auto List, то выберите Tools ➪ ➪ Options ➪ ➪ Editor и укажите параметр Auto List Members. В этом примере соответствующим объектным типом является Page. Использование всеобщих (global) объектов и объектов ThisDocument В отличие от самостоятельной программы, которая нуждается в приобретении ссылки на объект Приложение (Application) Microsoft Office Visio с помощью создания или получения его, код в проекте Microsoft Visual Basic for Applications (VBA) выполняется при запуске примера Microsoft Office Visio, поэтому вам не нужно приобретать ссылку на объ ект Application. Инструментальный набор Microsoft Office Visio поставляет global объект, который ссылается на пример Microsoft Office Visio. Дви жок Microsoft Office Visio также поставляет объект ThisDocument, который изображает документ Microsoft Office Visio, связанный с вашим проектом. Использование всеобщего объекта Microsoft Office Visio Всеобщий объект изображает пример и предоставляет более пря мой доступ к некоторым свойствам. Свойства всеобщего объекта Microsoft Office Visio не имеют при ставки (префикса) с ссылкой на объект. Всеобщий объект Microsoft Office Visio и его свой ства Объект Application является свойством всеобщего объекта Microsoft Office Visio, поэтому вы можете получить доступ к любому свойству объекта Application через прямую ссылку на свойство Application всеобщего объекта Microsoft Office Visio. Перед вами три примера кода, с помощью которого приобретается первый документ в наборе Documents — все три используют разный синтаксис. Пример1 создает объект Application. Этот код обычно используется при написании внешней про граммы: Dim appMicrosoft Office Visio As Microsoft Office Visio.Application Dim docsObj As Microsoft Office Visio.Documents Dim docObj As Microsoft Office Visio.Document Set appMicrosoft Office Visio = CreateObject("visio.application") Set docsObj = appMicrosoft Office Visio.Documents Set docObj = docsObj.Item(1) Application ActiveDocument Document Documents Window Использование редактора Visual Basic 245 246 Использование редактора Visual Basic Windows ActivePage ActiveWindow Addon Addons VBE Documents Пример 2 использует свойство Application всеобщего объекта Microsoft Office Visio: Dim docsObj As Microsoft Office Visio.Documents Dim docObj As Microsoft Office Visio.Document Set docsObj = Application.Documents Set docObj = docsObj.Item(1) Пример 3 имеет непосредственный доступ к свойству Documents всеобщего объекта Microsoft Office Visio: Dim docObj As Microsoft Office Visio.Document Set docObj = Documents.Item(1) Обратите внимание, что в примерах 2 и 3 Application и Documents не предшествует объект. Когда вы ссылаетесь на любое свойство или ме тод всеобщего объекта Microsoft Office Visio, вам не нужно объявлять пе ременную для всеобщего объекта или ссылаться на него, как на предше ствующий объект свойства — всеобщий объект это уже подразумевает. Третий пример имеет более прямой метод доступа к набору Documents из проекта VBA. Предлагаем вам пару примеров кода для наиболее используемых свойств всеобщего объекта Microsoft Office Visio: Set docObj = ActiveDocument Set pagObj = ActivePage Set winObj = ActiveWindow Важно: Всеобщий объект Microsoft Office Visio доступен только при написании кода в проекте VBA для документа Microsoft Office Visio. Использование объекта ThisDocument Любой проект VBA в вашем приложении Microsoft Office Visio со держит модуль класса для режима умолчания, называемый ThisDocument. Этот модуль класса изображает свойства, методы и события доку мента, связанного с проектом. Как и в случае с любым модулем класса, другие программы могут иметь доступ к ThisDocument во время запуска программы. Документы и связанные объекты более высокого порядка В случае, если вы хотите манипулировать документом, но доку мент не должен быть связан с вашим проектом VBA, то приобретите объ ект Document из набора Documents. В случае, если вы хотите манипулиро вать документом, связанным с вашим проектом VBA, то используйте объект ThisDocument. Например, чтобы сослаться на первую страницу чертежа Hello.vsd, вы должны получить объект Document из набора Docu ments всеобщего объекта. Следующий пример получает первую страницу Hello.vsd из набора Pages документа. Set docObj = Documents.Item("hello.vsd") Set pagObj = docObj.Pages.Item(1) В случае, если Hello.vsd является документом, связанным с вашим проектом VBA, то вы можете просто использовать объект ThisDocument, как это показано на следующем примере: Set pagObj = ThisDocument.Pages.Item(1) При ссылке на объект Document вы возвращаете себе другие объ екты Microsoft Office Visio с помощью приобретения свойств объекта Document и далее из других объектов в объектной иерархии. Вы можете добавить свойства и методы к объекту ThisDocument, так как он является растяжимым объектом, то есть объектом, чью функциональность вы мо жете расширить. Объект ThisDocument является единственным растяжи мым объектом, который поставляется инструментальным набором Microsoft Office Visio. Вы можете указать ThisDocument в окне Project Explorer и изменить его свойства (к примеру, страничные настройки и стиль в режиме по умолчанию); кроме того, в окне Properties вы можете изменить свойства документа. Запуск кода VBA из приложения Microsoft Office Visio Вы можете запустить в действие ваш код Microsoft Visual Basic for Applications (VBA) в программе Visual Basic Editor, чтобы проверить и ис править ее в ходе разработки. Пользователь может запустить в действие ваш законченный макрос в пользовательском интерфейсе Microsoft Office Visio, выбрав его из подменю Macros в меню Инструменты (Tools). Макрос — это процедура VBA, которая не требует аргументов. Процеду ры, требующие аргументов, не появляются в подменю Macros. Кроме того, программа может запускаться в действие в ответ на события или другими способами, которые вы разработали для нее. Использование редактора Visual Basic 247 248 Использование редактора Visual Basic Как запустить в действие макрос из редактора Visual Basic 1. Выберите Tools ➪ ➪ Macros. 2. В списке Macros укажите нужный вам макрос и нажмите на Run. В случае, если нужный вам макрос отсутствует в списке, то убеди тесь, что вы выбрали правильный проект, модуль или чертеж в окне Macros In. Личные процедуры не появляются ни в каких либо меню, ни в ка ких либо диалоговых окнах. Другой способ: 1. В окне Project Explorer откройте модуль, который содержит ма крос. 2. В окне кода нажмите на месте вставки макроса. 3. Выберите Run ➪ ➪ Run Sub/UserForm. Макрос, содержащий точку вставки, запустится в действие. Как запустить макрос из диалогового окна Microsoft Office Visio Macros 1. В приложении Microsoft Office Visio выберите Tools ➪ ➪ Macros. 2. В списке Macros укажите вашу программу и нажмите на Run. Важно: С точки зрения пользователя неважно, если программа, запускаемая пользователем, является дополнением или макросом, по этому приложение Microsoft Office Visio объединяет эти программы в ди алоговых окнах. Например, вы можете запустить в действие дополнение или макрос из диалогового окна Macros или из меню Macros. Как «снабдить» описанием ваш макрос, который появляется в диалоговом окне Macros 1. В Visual Basic Editor откройте Object Browser. 2. Выберите проект, который содержит макрос в окне Project/Lib rary. 3. В списке Class укажите модуль, который содержит макрос, и на жмите правой кнопкой на макросе в списке Members Of, а затем выбери те Properties. 4. Введите описание в поле Description. Как запустить в действие ваш макрос из меню Microsoft Office Visio Macros 1. Выберите Tools ➪ ➪ Macros. 2. В меню Macros выберите проект, который содержит ваши мак росы, и выберите нужный макрос. В случае, если вы хотите, чтобы ваши макросы появлялись в меню Macros, а не в модуле, который содержит ваши макросы, дайте имя мо дулю так: ShowInMenu. Модуль ShowInMenu не появляется в меню Microsoft Office Visio Macros, но его макросы появляются. Глава 6. Ошибки В случае, если во время выполнения программы происходит ка кая то ошибка, то Microsoft Visual Basic for Applications (VBA) генерирует сообщение об ошибке и останавливает выполнение. Вы можете предотв ратить множество ошибок, проверив допущения перед выполнением ко да, которое окажется неудачным, если допущения будут неверны. Вы мо жете «вылавливать» и исправлять ошибки, используя в вашей программе выражение On Error. Запуск программы в правильном контексте Решив, в каком контексте запускать программу, вы можете сде лать некоторые допущения относительно программного окружения. На пример, если вы пишите программу VBA для управления поведения двойного щелчка, то вы можете допустить, что документ открыт и что двойным щелчком выбирается образ в активном окне. Однако это огра ничивает способность программы контролировать действия пользовате ля. Например, ничто не остановит пользователя от попытки запустить программу VBA, разработанную для управления событием двойного щелчка, из диалогового окна Macros, вместо того, чтобы дважды щелк нуть на образе. В случае, если вашей программе требуется выбранный образ, ука жите свойство Selection активного окна, чтобы убедиться в том, что оно содержит хотя бы один объект. Dim selectObj As Microsoft Office Visio.Selection Set selectObj = ActiveWindow.Selection If selectObj.Count = 0 Then MsgBox "You must select a shape first." , , "Select shape" Else Использование редактора Visual Basic 249 250 Использование редактора Visual Basic ' Continue processing End If Проверка: Объекты и получаемые значения существуют Перед попыткой доступа к объектам убедитесь в том, что они име ются в наборе. Следующий пример проверяет наличие шаблонов в документе пе ред попыткой повторения всего набора Masters, что обязательно вызовет ошибку, если набор окажется пустой. If ThisDocument.Masters.Count = 0 Then MsgBox "Document has no masters." 'Go to an error handler End If В случае, если свойство или метод должны что то предоставлять, то неплохо было бы убедиться в том, что они действительно это делают. Например, если ваша программа форматирует текст образа, то вы долж ны убедиться в том, образ Shape содержит текст: Dim shpObj As Microsoft Office Visio.Shape Dim strText As String Set shpObj = ActivePage.Shapes.Items(1) strText = shpObj.Text If strText = "" Then MsgBox "The selected shape has no text to format." , , "Format Shape Text" Else 'Continue processing End If Проверка значений на ошибки VBA имеет функцию Ошибка (Error), которая выдает в ответ стро ку. Когда в приложении Microsoft Office Visio возникает ошибка, она вы дает код ошибки и строку, которая описывает ошибку. Используйте функцию Error, чтобы получить строку, связанную с кодом ошибки, ко торый выдается приложением Microsoft Office Visio. Объект Microsoft Office Visio Cell имеет свойство Error, которое указывает, произошла ли при выполнении формулы ячейки какая либо ошибка. В случае, если ваша программа меняет формулы ShapeSheet, проверьте это свойство и убедитесь в том, что формула работает ожидае мым образом. Глава 7. Управление проектом VBA Для эффективной работы и последующей минимизации задач на поддержание функциональности используйте ниже приводимые при емы управления проектом. Удаляйте предметы проекта, которые вам больше не нужны. Это уменьшит размер файла и упростит обслужива ние проекта. При необходимости защищайте ваш код от просмотра и видоиз менения со стороны пользователей. Разрабатывайте модули, модули класса и пользовательские формы для многократного использования. Это сэкономит время на написание кода. Кроме того, Microsoft Visual Basic for Applications (VBA) 6.0 позво ляет вам запускать в действие дополнения, с которыми могут работать и другие приложения. Перемещение предметов проекта При перемещении предмета вы удаляете его из списка проекта, так как нельзя аннулировать действие Remove. Убедитесь в том, что ос тавшийся код в других модулях и пользовательских формах не ссылается на код в удаленном предмете. Как удалить предмет проекта 1. Укажите предмет в окне Project Explorer. 2. Выберите File ➪ ➪ Remove 3. Программа спросит вас, хотите ли вы экспортировать предмет перед его удалением. Нажмите на Yes, чтобы открыть диалоговое окно Export File или нажмите на No, чтобы удалить предмет. Защита вашего кода Для того, чтобы защитить ваш код от просмотра и видоизменения со стороны пользователей, просто заблокируйте проект. Это означает, что вам необходимо указать пароль, который нужно будет вводить перед просмотром проекта в окне Project Explorer. Для того, чтобы блокировать ваш проект VBA от просмотра: 1. Выберите Tools ➪ ➪ Drawing Name Properties. 2. Нажмите на Protection и укажите параметр Lock Project For Viewing. 3. Введите пароль и подтвердите его. Использование редактора Visual Basic 251 252 Использование редактора Visual Basic 4. Сохраните ваш файл Microsoft Office Visio и закройте его. При следующем открытии вашего файла Microsoft Office Visio проект будет блокирован. В случае, если пользователь захочет просмотреть или отре дактировать проект, ему придется ввести пароль. Использование встроенного диспетчера Add in Manager В редакторе Visual Basic вы можете использовать встроенный дис петчер для управления дополнительными программами, которые расши ряют среду разработки VBA. Эти позволяют разработчику использовать конкретную дополнительную программу для того, чтобы добавлять ее функциональность к любому приложению VBA 6.0, включая приложе ние Microsoft Office Visio. Для того, чтобы вывести встроенный диспетчер на экран из редак тора |