| Author |
 Topic  |
|
|
Arsenyi
Rwanda
4 Posts |
 Posted - 05/20/2005 : 14:32:24
|
Пишу проект по отображению объектов сети в Visio и меня есть функкция для создания узла
Public Function BuildShape(ByVal Master As Visio.Document, ByVal NameMaster As String, ByVal TextCaption As String,
ByVal X As Double, ByVal Y As Double) As Visio.Shape
Set mastObj = Master.Masters(NameMaster)
Set shpObj = pagObj.Drop(mastObj, X, Y)
shpObj.CellsSRC(visSectionCharacter, 0, visCharacterSize).FormulaU = "10 pt"
shpObj.Text = TextCaption
Set BuildNodeShapeRouter = shpObj
End Function
но почему-то она не возвращает объект для дальнейшей работы с ним.
В строчке Set BuildNodeShapeRouter = shpObj выдает ошибку
run-time error 91 Object variable or with block variable not set |
|
|
TuzhibaevTA
Russia
85 Posts |
Posted - 05/20/2005 : 14:40:18
|
хе. дык pagObj надо объявить и чтото назначить перед строкой
Set shpObj = pagObj.Drop(mastObj, X, Y)
Например:
Dim pagobj As Page
Set pagobj = ActivePage
Тужибаев Тимур |
Edited by - TuzhibaevTA on 05/20/2005 14:44:14 |
 |
|
| |
Topic |
|
|
|
All Forums
Очень нужна помощь