Arial
Monotype Sorts
Wingdings
Symbol
winspool
\\lonprintsrv01\prn-homer
prn-homer
Arrow with a 45-degree arrowhead.
45-degree arrowhead.
`7Copyright 1999 Visio Corporation. All rights reserved. Vis_Sba.chm!#22435
Connect two objects together. Connector can be either a curve or a straight line.
shape of curve.
Vis_Sba.chm!#22447 `7Copyright 1999 Visio Corporation. All rights reserved.
Change Arrowhead... `7Change the arrowhead size and style for this connector.
_Set As Straight Line `"Set connector line to be straight. Controls.X1 Width/2 Controls.Y1
Modify Curvature
_Set As Straight Line
C:\Program Files\Visio\Solutions\Block Diagram\Basic Shapes.vss
C:\Program Files\Visio\Solutions\Visio Extras\Borders and Titles.vss
Black & White
Color Schemes... `'Set the color scheme for this document. Color Schemes
Letter
HP LaserJet 4000 Series PCL 6
Page-1
Guide
Gesture Format
Visio 00
45 degree single
Visio 90
Line-curve connector
Yellow fill
ScaleFactor
Connector
Visio 00 Face
Visio 01 Highlight
Visio 02 Shadow
Visio 03 Graduated
Visio 10 Face2
Visio 11 Highlight2
Visio 12 Shadow2
Visio 13 Graduated2
Visio 20 Face3
Visio 21 Highlight3
Visio 22 Shadow3
Visio 23 Graduated3
Visio 50 Bkgnd Face
Visio 51 Bkgnd Highlight
Visio 52 Bkgnd Shadow
Visio 53 Bkgnd Graduated
Visio 70 Border
Visio 80 Marker
SchemeName
Basic
Basic Shadow
Visio
Win16
Win32
VBA6
Basic_Diagram
stdole
MSFormsC
ThisDocument<
_Evaluate
AddMenuItem
visMenuSetsObj
MenuSetsM
visMenuSetObj
MenuSet
visMenusObj
Menus!L
visMenuObj|
Menu
visMenuItemObjZ
MenuItemj
iItemCount
visMenuItemSep3
iMnuItems\>
varMenuItemCaption
varWizardNameW
varWizardArgs
strPathl
visUIobj3
UIObject
iMenucount
bNoTools
iAddonCount
bColorSchemes
szarrAddonNames
ADDON_COLORSCHEMESC
FILE_COLORSCHEMES
CUST_UI_FILENAME
MENU_TOOLS}
RUN_
EXIT_ON_ERRORj
Application
Addons
GetNames
InPlace7
CustomMenus
BuiltInMenus
Path2
SaveToFile
CustomMenusFile
Kill
ClearCustomMenusW
ItemAtID
visUIObjSetDrawing
Count0v
Item
Caption
MenuOK
AddAtCw
MenuItems
MiniHelp
AddOnName
SetCustomMenusl@
Document_DocumentCreatedQ
IVDo
LocalizeBegin
Color Schemes...
Color Schemes
custUI.vsu
&Tools
Run
LocalizeEnd
Check each wizard first to see whether it can be found on the computer
Populate the arrays
Number of menu items to be added\
addon is not available
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 menusC
Check if there are Visio custom menus
Use the Built-in menusn
use the Visio custom menus
save to a fileb
Set the existing custom UI for the document
Grab this document's UI objectf
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
QsQQ9\7M
custUI.vsut
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
Powerpointize
Attribut
e VB_Nam
e = "Thi
sDocumen
|Global
Spac
dCreat
Pred
ecla
BExpo
Templ
ateDeriv
Bustomi
2Optio
/licit`
Sub AddM
enuItem(0)
Di m vis
tsObj As
Visio.
untA/Inte
Karia
SarW
strPatJh
ngJ3U$Io
DbNoPTool
onWS
bColorSc
hemeS
'Loca
lizeBegi!D!Cons 9DD
ON_COLOR
SCHEMES
FILE
CUST
_UI_A
mUI.v
MENU_
TOOL
RUNA
Run c
End#
xrror G@4@ EXIT_
RROR
'Check @each wbP
)to s
ee wheth
er it ca@n be f
comp
s.Get
To UB
?The
Next '
'Popu
A& ]ay
'Numb
2ems
2adde
= Arra
His not `avail
E>x`N@
0if E
in 0vcpy!
.InPl
cks
`has aq0
Bom UI
and/
that1
cific
s Is Not
hing +,
ilt-
save
ThoFi
existq
'pGrab
'Dele
newly
%E.Clear
hset
window
xt- (Dra
AtID
3vfr
YQ"Act
olbar
uOK:
'Add men
u items
pFor
\Count
iMnu
Set vis
FObj
Kthe c
aption a
ini he
lp text
2= va~r
5= RUN
& Left(
(WizardN
( of a
wto ru
qAddOn
Ne|xt
A"s@eparat
ists) _
after
If bNoTo
False Th
_Sep,
custom 0UI f@>
ThisjDD
UIobjA
XIT_ON_E
Pr@ivate
(ByVal
As Visi0o.IV
Inte
ons.
Powerpoi
ntize"
h":"Opene
Next
* nt/&H00000000
Name="Basic_Diagram"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="9391757B857F857F857F857F"
DPB="9F9D798F89979498949894"
GC="ABA94D8358845884A7"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisDocument=88, 88, 775, 594, C
cument
Document_DocumentOpened
Documentj
DocumentCreated
DocumentOpened
_B_var_LeftQ
Basic_Di@agram
rstdol
0#C:\WIN
NT\Syste
m32\StdO
le2.tlb#
OLE Auto
mation
MSFo@rms>
452EE1-E
8C4D0BB4
DFM20.
DLL#Micr@osoft
\ Object
Library
B1-D32A-
4B70-BAE
9-E4C390@8EE8D3
OCUME~1\
ArwelH\L OCALS
mp\VBE\
Sp.exd
ThisDo
cumentG
j"D@mc
u@le
ThisDocument
C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL
C:\Program Files\Visio\VISLIB32.dll
C:\WINNT\System32\StdOle2.tlb
C:\WINNT\system32\FM20.DLL
MSForms
C:\DOCUME~1\ArwelH\LOCALS~1\Temp\VBE\MSForms.exd
Document
Document_DocumentCreated
VBE6.DLL
docj
Color2F
ID="{07F88EE4-1FEA-11D2-8A0F-006008A88CA8}"
Document=ThisDocume
Document=ThisDocument/&H00000000
CMG="292BCF15D315D315D315D3"
DPB="5250B41FDC20DC20DC"
GC="7B799D76C777C77738"