Для русскоязычных пользователей Visio. Начинающих и профессионалов. Где взять, как сделать, что купить и т.д.

VBA

Перечень литературы

06.11.2015 Simple Macros in Microsoft Visio with the Macro Recorder David Parker.

Ответы на вопросы

Как вызвать макрос из трафарета макросом из документа?

Сначала код был в документе (в шаблоне) и был связан с клавишами быстрого доступа. Потом я перенес его в трафарет, но не смог использовать клавиши. Постоянно вызывать макросы через меню слишком долго и раздражает.
Я пытался использовать CallThis, но не получилось.

Если в трафарете будет такой макрос:

Public Sub RunMe()
MsgBox ("test")
End Sub

то вы можете вызвать его из документа так:

Sub Run()
Dim nSencil As Integer
Dim i As Integer
For i = 1 To Application.Documents.Count
If Application.Documents(i).Name = "Stencil1" Then
nStencil = i
End If
Next i
Call Application.Documents(nStencil).RunMe
End Sub

Первоначально нужная программа находилась в модуле NewMacros и такой вызов давал ошибку 438. Я перенес код в ThisDocument трафарета и все заработало.
Можно ли вызвать макрос, находящийся в модуле трафарета?

Можно через ExcuteLine.

Call Application.Documents(nStencil).ExecuteLine("Module1.RunMe")

Клавиши быстрого вызова для макроса в трафарете

У меня есть макрос в трафарете. Он отлично запускается из редактора. Я назначил сочетание клавиш (Ctl + m). Но когда я нажимаю клавишу быстрого вызова, макрос не вызывается.
Любые идеи по поводу альтернатив приветствуются.

Скорее всего клавишами можно вызвать макрос только из активного документа. Но внешний трафарет не является активным документом.
Я использую такую комбинацию:
"Рабочий" код находится в трафарете с именем code.vss, который не содержит шейпов, только код и распространяется среди всех пользователей.
В шаблоне есть ссылка на этот трафарет в проекте VBA, поэтому код трафарета "известен" в шаблоне / чертеже. Этот трафарет не отображается в шаблоне. Он открыт только из-за ссылки в проекте VBA.
Код в шаблоне может быть запущен с помощью клавиш и ничего не делает кроме запуска "рабочего" кода в трафарете.
Таким образом, я могу вносить изменения в код в трафарете, и остается только распространять этот трафарет, чтобы сделать изменения доступными для всех пользователей.
Проблемы:
Если я хочу создать полностью новый макрос, я могу распространить его с помощью трафарета, чтобы он был доступен для всех, но не могу вызвать этот макрос из более старых чертежей, потому что пока нет доступных клавиш быстрого доступа. Клавиши имеются только в новом шаблоне / чертеже.
Так что способ помогает при изменении кода, но недостаточно хорош для нового кода.
(Источник - http://visguy.com/vgforum/index.php?topic=5424.0)

Внедрение VBA в существующий файл Visio

Injecting VBA into an existing Visio file
http://visguy.com/vgforum/index.php?topic=2349.msg10436#msg10436

Есть ли у вас примеры, которые могут вставлять или редактировать VBA в существующем файле Visio?
Допустим, у меня есть функция VBA, которую я хочу добавить в существующий файл Visio. Как это сделать? Неясно, как использовать объект VBProject, зависящий от объекта ActiveDocument.

Я только дошел до того, что экспортировал и импортировал модули / классы / формы VBA программно, но не создавал функции или вспомогательные модули на лету.
На мой взгляд, проблема состоит из двух частей:
1. Проект VBA нуждается в ссылке на MSVBA Extensibility, "Microsoft Visual Basic 6.0 Extensibility".
2. В Visio необходимо проверить: Tools > Macros > Security > Trusted Publishers Tab > Trust access to Visual Basic Project.
Эти две вещи могут облегчить некоторые проблемы безопасности, поскольку доступ к проектам Visio обычно отключен.
Вот код для программного экспорта модулей VBA:

' Need reference to MSVBA Extensibility
' Microsoft Visual Basic 6.0 Extensibility
' For Visio, need to check:
' Tools > Macros > Security > Trusted Publishers Tab
' "Trust access to Visual Basic Project"

Sub ExportComponents()
Dim v As VBIDE.VBProject
Dim c As VBIDE.VBComponent

Set v = ThisDocument.VBProject

v.VBComponents.Item(1).Export (ThisDocument.Path & "ThisDocument.cls")
Exit Sub

For Each c In v.VBComponents
' Classes:
' This is an ad-hoc filter for only exporting certain class modules
' that start with "CVis". You could just export all of them.
If left(c.Name, 4) = "CVis" Then
Call exportComponent(c)
End If

' Modules:
' Specifically export only these two modules. Again, we could
' have just called exportComponent(c) for everything.
If c.Name = "ShapeSheet" Then Call exportComponent(c)
If c.Name = "LocaleInfo" Then Call exportComponent(c)
Next
End Sub

Private Sub exportComponent(vbcomp As VBIDE.VBComponent)
Dim sName As String, sExt As String
' Set the extension based on component type. Exit sub
' if type not supported.
Select Case vbcomp.Type
Case vbext_ct_ClassModule
sExt = ".cls"
Case vbext_ct_StdModule
sExt = ".bas"
Case Else
Exit Sub
End Select

' Build the name:
sName = ThisDocument.Path & vbcomp.Name & sExt

' Save the file:
Call vbcomp.Export(sName)
End Sub

Внедрение строк кода выглядит примерно так (я не пробовал)

Dim doc As Visio.Document
Set doc = Visio.ActiveDocument

Dim v As VBIDE.VBProject
Dim c As VBIDE.VBComponent

' Get the project:
Set v = doc.VBProject

' Add a class:
Set c = v.VBComponents.Add(vbext_ct_ClassModule)
c.Name = "CBilly"

' Blast some lines of code into the class:
Call c.CodeModule.InsertLines( lngNumLines, sCode )

Однако, контрольная сумма вашего кода VBA исказится. (при условии, что вы подписали свой код, в противном случае вы должны отключить защиту макросов).
При следующем открытии файла код VBA будет отключен из-за неверной контрольной суммы или отсутствующего сертификата.
Очевидно, что если вы сможете снова подписать его на этом компьютере, это не проблема.