Sub Example_RunMacro()
' Этот пример загружает DVB файл и выполняет макрокоманду,
' содержавшуюся в файле, используя RunMacro метод.
'
' Этот пример использует DVB файл drawline.dvb.
' Вы должны изменить пример, чтобы использовать файл на вашем компьютере.
'
' * Примечание: Если Вы открываете DVB файл и затем выполняете пример,
' чтобы загрузить его, будет ошибка, при попытке выгрузить файл.
Dim FileName As String
FileName = "c:\drawline.dvb"
' Загрузить VBA DVB файл
LoadDVB FileName
' Выполнить drawline макроc
RunMacro "Module1.Drawline"
' Выгрузитесь drawline VBA DVB файл после выполнения
UnloadDVB FileName
MsgBox "DVB файл был выполнен! "
End Sub