Arial
Times New Roman
Wingdings
Monotype Sorts
Symbol
HP LaserJet IIP
Letter
DINU"
winspool
LPT1:
Network
Represents a city or a wide area network (WAN) node. Right-click to enter property information.
xV4R
Shape.hlp!#11030 `9Copyright © 1997 Visio Corporation. All rights reserved.
Reposition Text
%Properties `+Set properties for this piece of equipment.
Enter inventory ID number.
Location Enter equipment location.
Manufacturer Enter manufacturer name.
Product Name Enter product name.
Model Number Enter product model number.
Description Enter equipment description.
1
2
3
4
5
6
Notations
Adjust height to get 1-5 lines. Use for parts lists, title blocks, bill of materials, etc.
e blocks, bill of materials, etc.
ck sections, etc.
s, etc. Control handle changes line spacing size.
`9Copyright © 1997 Visio Corporation. All rights reserved. annotate.hlp!#2842
Adjust Line Spacing
Network Template
Copyright
1994 Shapeware Corporation. All rights reserved.
A VISIO template for creating network diagrams using the shapes in the network stencil, network.vss.
D:\Program Files\Visio\Solutions\Network Diagram\Basic Network Shapes.vss
?UUUUU
PBrush PBrush PBrush ss{ss{ss{ss{ss{s{ss{ss{s{
BBJ!!!!!)!!!!!!)))!!!!!)!!)B9J RRRRRRJRRJRJJRJJRJJRJBJJJRRBRRBRRBRRBRRBRRBRJBRJJZZJZRJRRBRJBRJBRJJRRJRRJRRJRRJZRJZRJZRJZRJRRJRRRcZRcZRcZRcZRcZRcZRcZRcZRcZRcZRcZRcZRcZRcZRcZRcZRccRccRccRccRccRccRccRccZkkZkkZkkZkkZkkRkkRckRckZkkRckRkkcsscsscsscsscs{RccJZZBRZBRR9JJ9JJ9JJ9JJ9JR9JRJZZRcccssk c{sc{sc{sc{sc{sc{sc{sc{sRckRckRckRccJccJccJccJccJccBRZ9JJ9JJ1JJ)9B)9B1BJ1JJ)BB)99!99!91!11
{B{{J{{J{{J{ J{{B{{B{{J{{Bks9{ŒJs„Bs{Bs{Bs{Bs{Bs{9s{9s„9s„9{„Bk{BckBksR Bs{9ss1{{B„„Bs{9s„9k„9s„9{„9{„9s„9{„1{Œ1s„)s„)sŒ9k{1cs9ksJ Bs{B{{R{{c JssJ sss9 1s{BksJ {ssJssJss9{sB{k9{kB{kBskBsk9ss9ss1ss1ks9ks9ks9ks9ks9ks9ks9ks9ks9ks9ss9ss9ss9ss9ssBss9{{B{{9{{9{{B{{B{{B{{B{sBssBskBssJskJskJskBskBkkBkkJkkJksBksBssBssBssBssBssB{{Bs{9ks9ksJkkR
cckRZcZckZckZckZckcckcckcckcckkcskcskkskkskkskkskkskkkkssksskssksskssks{ks{ks{s{ ss{ss{ss{ss{ksskkskkscksckscksckkckkZkkZckZccZccRZZRZcRZcZZkZZkRZcJZZJRRZccJRZJJZJJRJJZkkk cckJRRJJRBJRJJRJRZRRZRZcZZcZZcZZcJJZJRZJRZRRZRRZRRcRZcRZcZZkZZcZZcZZcZZcZZkZckZckZckZckZckcckcckcckcckcckkkskkskkskkskkskkskkskksks{ss{ss{ss{ks{ks{ks{ss{{{ ss{ss{ks{ks{kk{kkskkskkscckccsckscksckscckcckcckZZkZZkZckZckZckZckcckcckZZcZZcZZcZZkZZkZZkZckZckZZkZckcckcckZZkZZkZckcckZZkZckcckcckcckccscckcckcckcckcckcckcckcckccsccscckcckcckcckcckcckcckcckcksckskkskkskkskkskkskk{cksck{ks{kk{kks {{{RZZJRZRZcRZcRZcZZcZZccckcckckkcckcckcckcckcckcckcckccks{„s{„s{„ss„ss„ss{ss{ss{{{ ks{ks{ks{ks{ks{ks{ks{ks{kk{kk{kk{kk{ks{ks{kk{kk{kk{ck{ZcsZckkks kkskkskkskkskksckkckkckkcckcckZckZccZccZZcZZcZZcRZcRZcRZcRZcRZcRZcRZcRZcJRZJRZJRZJJZJJZJJRBJRBBRJRZJRZJRZJRZJRZJRZJRZJRZRZkRZcRZkRZcRZkRZcRZkRZcZcsZckZcsZckZcsZckZcsZckckscksckscksckscksckscksks{ks{ks{ks{ks{ks{ks{ks{kk{kk{kk{s{
PBrush PBrush PBrush cks{ s{{kssksssssssskssksssssssskkk{{{ JZccs{„”œ{Œ”k„„cs{Zkscs{k{{k{{k{{k{{cs{cs{css1BB)BB1BB)BB)BB1BB1BB)BB)991BB9JBZkkksss 11)BB9RR1BJ1JJ)BB1BJ)BB)BB)BB)BB)BB)9B)9B)99!99!91!99!91!11!11!11!11)BB)BB 111BB1BBBRJ
ks{ks{ks{ks{ks{ks{ks{ks{ZckZckZkkks{s{{kss kk{ccsZckkk{ss„ks{ks{ks{ks{ks{ks{ks{ss{ss{ss{s{{s{{s{{s{ ck{RZkJRcRRcZZkZckRZcRZcZZkRZcRZcRZcRZcZZkRZcRZcZckZckZckZZkRZcRZcZckRZccksRZccks ks{s{ JRZ11B19J19B19JBBR9BJ9BJBBRBJRBJRBJRJJZJJZ9BR9BJ9BR9BJ9BJ19J19B19B19JBJRBJZJRZkk{cks9BR
Black fill
White fill
Blue fill
Red fill
Green fill
Cyan fill
Yellow fill
Magenta fill
Gray fill
10% Gray fill
White line
30% Gray fill
Long dashed line
Blue dark fill
Cyan dark fill
Green dark fill
Magenta dark fill
Red dark fill
Yellow dark fill
50% Gray fill
70% Gray fill
90% Gray fill
1pxl line
3pxl line
9pxl line
Hairline
Short dashed line
Arial centered
Arial top left
Arial top
Times centered
Times top
Times top left
Net-Normal
Net-Thick line
Net-Thin line
Net-Opaque back
Net-Vert. lines
White 3pxl line
White 1pxl line
Connector
Net-Connector
City
Location
Manufacturer
ProductName
ModelNumber
Description
5 ruled column
AntiScale
City.12
Reston VA
Guide
Gesture Format
Basic_Ne@twork
rstdol
0#C:\WIN
NT40\Sys
tem32\ST
DOLE2.TL
Auto
mation
MSFo@rms>
452EE1-E
8C4D0BB4
DFM20.D
LL#Micro
soft
Object
Library/
11-6FCA9@941ED4
OCUME~1\
sdelahun
\LOCALS@
Temp\VBE
T.exd <
This
Document
i@kD
Basic_Network
ThisDocument
C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL
D:\Program Files\Visio\VISLIB32.dll
Visio
C:\WINNT40\System32\STDOLE2.TLB
stdole
C:\WINNT\System32\FM20.DLL
MSForms
C:\DOCUME~1\sdelahun\LOCALS~1\Temp\VBE\MSForms.exd
AddMenuItem
Document_DocumentCreated
Document_DocumentOpened
GetAddonNames
PopulateArrays
VBE6.DLL
bDatabase
bDiagram
bExport
iPosition
szAddon
szFile
szArgsR
&Network Database Wizard6
/eni
k Di
.vsu
labli
don i
Networ&k Diagram Wizard
Export Network In&ventory...
Network Database Wizard.exe
Network Diagram Wizard.exe
Property Reporting Wizard.exe
custUI.vsu
&Tools
Run
LocalizeBegin
&Network Database Wizard
LocalizeEnd
go check to see which of the needed addons are available
no addons available - do nothing
one addon available
two addons plus a separator
just the two network addons w/out separator
all three addons plus a separator
Check if Document is in place
This checks if user has applied a custom UI file to the template and/or if a custom UI that is specific to Visio has been applied.
Check if there are file custom menus
Check if there are Visio custom menus
Use the Built-in menus
use the Visio custom menus
save to a file
Set the existing custom UI for the document
Grab this document's UI object
Delete the newly created temp file
Use the file custom menus
Create menuset object for specified window context- (Drawing window menus)
Get the "Tools" menu from the Active Toolbar & if it does not exist, add it for this document.
Add menu items in menu
Set the caption and mini help text
set the name of addon to run
Add the separator bar to menu(if Tools menu exists) after added Menu items.
Set the new custom UI for the document
Check each wizard first to see whether it can be found in the addons path
iAddonCount
Attribut
e VB_Nam
e = "Thi
sDocumen
|Global
Spac
dCreat
Pred
ecla
BExpo
Templ
ateDeriv
Bustomi
lic bD
As Boole
iag0ram
Dim var
MenuItem
Caption
Variant
0Args
ocalizeB
0Cons
&DDON_DA@TABASE
RAMA
XPORTA
In&v
ory8...
0.ex~e
roperty
Reportin
+ARGB_G
UST_UI_
((NAM
U_TOOLSAP
RUNa
h Sub Adrd
SetsOb
jbPisio.
uInteg
Mcz"q
strP
b<No
o check
to see w
hich of @the ne@
dP add
`availa
S$el
- do pnothF"A
Exxit
1 'one
!-bBc
Cal@l Popu
rrays(0,d A
d If
5p lus a
rato
s(1eC
mw/out
FILE_DI
AGRAM, " ")
ll Popul
ateArray
s(2, ADD
ON_SE
lEXPORT
ARG_
End S`elect
Check if
Documen
t is in place
#If This
$f user
has appl
ied a cu
stom UI @file _
o the te
>te and
Qspecifi
nus Is N
othingBB
Hcationf.b
uilt-
Set vis
UIobj = 3
InB6G2El
'@sBi
'sav
str0Path
CUST_UI_a
NAME
'AMA
exis
'Grab@+
'sAd@6
new@ly cre`
BnBq
lear
'Cb& B^
ndow con
text- (D
A"Toolsb"
cti`qa
it do
es not
, add
NU_TOOLS
5iFN
AddAtA
iMnuA
FTcD
P} min@i help
= RUN &
Lef`
izardNam
ofq7on
8run
dOnq
Args
eparat
Jaft
Jems$I
0Sep
vq5G
Priv
nd(By
pene
Fun0k
Dim iB
yger
s`;rI
eachG@|a>`
ee whep*0
t can be=
taba
iagram
ExportK
zUB0zd
ATABASEz)
XPORT) T
hen bExp
ort = Tr`ue
ext 'iAd
donCount#
bDat
abase +
rEnd F
unction
Priva
te Sub P
opul
ays(iPos
' As In
teger, s
StrinBg
File
Ahrgs
arMenuIt`emCap
Wiza
Win16
Win32
VBA6
Basic_Network~n
MSFormsC
ThisDocument<
_Evaluate
bExportX$
varMenuItemCaption
varWizardNameW
varWizardArgs
ADDON_DATABASEv
ADDON_DIAGRAMQ
ADDON_SEP
ADDON_EXPORT
FILE_DATABASEo
FILE_DIAGRAMX
FILE_EXPORT
ARG_EXPORT
CUST_UI_FILENAME
MENU_TOOLS}
RUN_
visMenuSetsObj
MenuSetsM
visMenuSetObj
MenuSet
visMenusObj
Menus!L
visMenuObj|
Menu
visMenuItemObjZ
MenuItemj
iItemCount
visMenuItemSep3
iMnuItems\>
strPathl
visUIobj3
UIObject
iMenucount
bNoTools
PopulateArrays;~
InPlace7
CustomMenus
Application
BuiltInMenus
Path2
SaveToFile
CustomMenusFile
Kill
ClearCustomMenusW
ItemAtID
visUIObjSetDrawing
Count0v
Item
MenuOK
AddAtCw
MenuItems
MiniHelp
AddOnName
AddOnArgs
SetCustomMenusl@
Document_DocumentCreatedQ
IVDocument
szarrAddonNames
Addons
GetNames
UCase5
szAddon=
szFileJ7
szArgsk
Documentj
DocumentCreated
DocumentOpened
_B_var_LeftQ
_B_var_UCasea
ID="{03BC5AE2-4E07-11D0-885C-0020AF84D582}"
Document=ThisDocument/&H00000000
Name="Basic_Network"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="212396DE9ADE9ADE9ADE9A"
DPB="5A58ED362737273727"
GC="939124715C725C72A3"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisDocument=88, 88, 358, 576, Z