| Author |
 Topic  |
|
|
vis
47 Posts |
 Posted - 09/01/2009 : 18:56:42
|
Добрый день. Столкнулся с очередной проблемой при изучении великого Visio. Пытаюсь записать программно в раздел Actions функцию RUNMACRO.
Если ручками забивать в ShapeSheet, то проблем нет, а программно не знаю как. Попытался посмотреть какой код напишет сам Visio при записи макроса. Получилось вот это
Application.ActiveWindow.Shape.CellsSRC(visSectionAction, 0, visActionAction).FormulaU = RUNMACRO("Add_Row")
Application.ActiveWindow.Shape.CellsSRC(visSectionAction, 0, visActionMenu).FormulaU = "Добавить строку"
Решил применить полученный код. Рисую прямоугольник
Set FirstColumn = vsoPage.DrawRectangle(1, 1, 2, 2)
Далее
FirstColumn.CellsSRC(visSectionAction, 0, visActionAction).FormulaU = RUNMACRO("Add_Row")
Visio ругается на это
Sub or Function not defined
Самое интересное, что записав при помощи ЗАПИСИ МАКРОСА макрос, когда вручную забивал Actions в ShapeSheet Window, и впоследствии запустив этот макрос, получаю от Visio ту же самую ошибку. Но ведь это он создал код того, что я делал.
Помогите разобраться. |
|
|
vis
47 Posts |
Posted - 09/02/2009 : 14:06:19
|
Спасибо, сам разобрался....
Но если кто-то что-то умное посоветует - Буду очень рад
Сделал вот так
FirstColumn.CellsSRC(visSectionAction, 0, visActionAction).FormulaU = "=RUNMACRO(" & """ Add_Row """ & ")"
FirstColumn.CellsSRC(visSectionAction, 0, visActionMenu).FormulaU = """Добавить строку""" |
 |
|
| |
Topic |
|
|
|
All Forums
Вопрос по Actions