| Author |
 Topic  |
|
|
Kirill
4 Posts |
 Posted - 07/15/2005 : 16:45:10
|
Здраствуйте, уважаемые коллеги.
Извините за глупый вопрос, на который вам наверное приходилось довольно часто отвечать.
Если кто знает подскажите пожалуйста с изучения какой литературы и
где ее можно взять(желательно в электронном виде) для того чтобы
разобраться в Visio+Vba (именно в связке, с точки зрения программирования) с нуля. То есть нет опыта работы ни с Visio, ни с VBA. |
|
|
Digitall
Russia
389 Posts |
Posted - 07/15/2005 : 16:50:59
|
quote:
Originally posted by Kirill
Здраствуйте, уважаемые коллеги.
Извините за глупый вопрос, на который вам наверное приходилось довольно часто отвечать.
Если кто знает подскажите пожалуйста с изучения какой литературы и
где ее можно взять(желательно в электронном виде) для того чтобы
разобраться в Visio+Vba (именно в связке, с точки зрения программирования) с нуля. То есть нет опыта работы ни с Visio, ни с VBA.
По поводу литературы по Visio, то можно ознакомиться тут:
http://www.prodigitall.narod.ru/docs/books.html
Есть еще DVS. Developing Visio Solutions using Microsoft Visio 2000. В ней много примеров VBA. Были еще английские книги на форуме, но давно. |
 |
|
|
Kirill
4 Posts |
Posted - 07/15/2005 : 18:24:41
|
//Есть еще DVS. Developing Visio Solutions using Microsoft Visio 2000. В ней много примеров VBA.
Где ее взять? |
|
|
|
brace
Russia
358 Posts |
Posted - 07/18/2005 : 10:30:04
|
изучать VBA надо на конкретных примерах
вот простенький
в комментарии намисано что для чего
много примеров есть в VISIO HELP
Public Sub Shape_Example()
Dim vsoRectangle As Visio.Shape
Dim vsoOval As Visio.Shape
Dim vsoShapeFromCell As Visio.Shape
Dim vsoShapeFromCharacters As Visio.Shape
Dim vsoCell As Visio.Cell
Dim vsoCharacters As Visio.Characters
'Create 2 different shapes and add different text to each shape.
Set vsoRectangle = ActivePage.DrawRectangle(2, 3, 5, 4)
Set vsoOval = ActivePage.DrawOval(2, 5, 5, 7)
vsoRectangle.Text = "Rectangle Shape"
vsoOval.Text = "Oval Shape"
'Get a Cell object from the first shape.
Set vsoCell = vsoRectangle.Cells("Width")
'Get a Characters object from the second shape.
Set vsoCharacters = vsoOval.Characters
'Use the Shape property to get the Shape object.
Set vsoShapeFromCell = vsoCell.Shape
Set vsoShapeFromCharacters = vsoCharacters.Shape
'Use each shape's text to verify the proper Shape
'object was returned.
Debug.Print vsoShapeFromCell.Text
Debug.Print vsoShapeFromCharacters.Text
End Sub
|
|
|
|
Digitall
Russia
389 Posts |
Posted - 07/18/2005 : 10:40:51
|
quote:
Originally posted by Kirill
//Есть еще DVS. Developing Visio Solutions using Microsoft Visio 2000. В ней много примеров VBA.
Где ее взять?
http://sr2.mytempdir.com/87426 |
|
|
|
brace
Russia
358 Posts |
|
|
immortal
Russia
391 Posts |
Posted - 07/18/2005 : 15:12:40
|
ещё можно установить визио2003 и нажать "записать макрос" сделать необходимые действия и посмотреть код
визио 2003 форэвер
...а вобще-то я белый и пушистый. |
|
|
| |
Topic |
|
All Forums
литература