Arial
Times New Roman
Wingdings
Monotype Sorts
Symbol
HP LaserJet 5M
MSUD7
winspool
\\TREVIS\ifgiprt4
Netzwerk
3Com
Blatt-1
hrungslinie
Guide
Gesture Format
Gestik-Format
Schwarz
Blau
Zyan
Gelb
Magenta
Grau
10% Grau
e Linie
30% Grau
Strichlinie lang
Dunkelblau
Dunkelzyan
Dunkelgr
Dunkelmagenta
Dunkelrot
Dunkelgelb
50% Grau
70% Grau
90% Grau
1-Pixel-Linie
3-Pixel-Linie
9-Pixel-Linie
Fadenlinie
Strichlinie kurz
Arial zentriert
Arial oben links
Arial oben
Times zentriert
Times oben
Times oben links
NE_grau gef
NE_8 oben zentriert
NE_8 oben links
NE_10 Mitte zentriert
NE_10 oben zentriert
NE_10 oben links
NE_12 oben zentriert
NE_12 oben links
NE_24 oben zentriert
NE_36 oben zentriert
NE_1Pxl. Linie dunkelgrau
NE_1Pxl. Linie grau
NE_1Pxl. Linie violett
NE_1Pxl. Linie wei
NE_5Pxl. Linie schwarz
NE_3Pxl. Linie schwarz
NE_3Pxl. Linie dunkelgrau
NE_1Pxl. Linie hellgrau
NE_3Pxl. gr
ne Linie
NE_5Pxl. Linie dunkelgrau
NE_1Pxl. Linie schwarz
NE_schwarz gef
NE_hellgrau gef
NE_Linie dunkelgrau gef
NE_Linie hellgrau gef
NE_Linie wei
gef
NE_rot gef
NE_wei
NE_blau gef
NE_gelb gef
NE_dunkelgrau gef
NE_Linie gr
n gef
NE_Linie rot gef
Visio
Win16
Win32
VBA6
Project3Com_Equipment`
stdole
MSFormsC
ThisDocument<
_Evaluate
bDatabase
bDiagram
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_
AddMenuItem
visMenuSetsObj
MenuSetsM
visMenuSetObj
MenuSet
visMenusObj
Menus!L
visMenuObj|
Menu
visMenuItemObjZ
MenuItemj
iItemCount
visMenuItemSep3
iMnuItems\>
strPathl
visUIobj3
UIObject
iMenucount
bNoTools
GetAddonNames
PopulateArrays;~
InPlace7
CustomMenus
Application
BuiltInMenus
Path2
SaveToFile
CustomMenusFile
Kill
ClearCustomMenusW
ItemAtID
visUIObjSetDrawing
Count0v
Item
Caption
MenuOK
AddAtCw
MenuItems
MiniHelp
AddOnName
AddOnArgs
SetCustomMenusl@
Document_DocumentCreatedQ
IVDocument
Document_DocumentOpened
iAddonCount
szarrAddonNames
Addons
GetNames
UCase5
iPosition
szAddon=
szFileJ7
szArgsk
Documentj
DocumentCreated
DocumentOpened
_B_var_LeftQ
_B_var_UCasea
Ne&tzwerk-Datenbank-Assistent
/eni
Netzwerk-Dia&gramm-Assistent
Netzwerk-Inventardaten e&xportieren...
Netzwerk-Datenbank-Assistent.EXE
Netzwerk-Diagramm-Assistent.EXE
Datenfeld-Berichts-Assistent.EXE
custUI.vsu
E&xtras
Ausf
hren
LocalizeBegin
LocalizeEnd
go check to see which of the needed addons are available
no addons available - do nothing
one addon available
bExport
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
Attribut
e VB_Nam
e = "Thi
sDocumen
|Global
Spac
dCreat
Pred
ecla
BExpo
Templ
ateDeriv
Bustomi
lic bD
As Boole
iag0ram
Dim var
MenuItem
Variant
0Args
ocalizeB
0Cons
&DDON_DA@TABASE
e&tzwerk
?enbank
-AssistC
IAGRAM
hSEPA
E XPORT
In"v
ard
rtier
C;C'0FILE
Qfeld-B
pchtsGE
8CUST_UI
*NAM
@UI.vsu
ENU_TOOL
+E&xtra"s
Aupsf
`2 Sub Adrd
SetsOb
jBUisio.
unbzInteg
strP
StriDngJ
'URI
bNoT
'go che
ck to se
e which
of the n
d add
avail#A
Bona
do nothF"
Exit
!-bBC
8The$
ll Popu
Arrays(0
, Aj`, 1E
nd If
5plus a
parato
s(1eCp
la0neP
w/out
h4 '1nt
Call P
opulateA
rrays(1,
ADDON_D
IAGRAM,
FILE
6EXPORT
ARG_
End Se0lect
heck if
Document
is in p
lace
This
f user h
as appli
ed a cus
tom UI f ile _
the tem
>te and/
specificA
.Men
us Is No
thingBB
Hcation.3b
ilt-
Set visU
Iobj =
InB6G2Els
'@sBi
'sav@4
UST_UI_
0NAME
EA.S
&!Rexist
'pGrab@+
sAd@6
newl
y cre
lear
t'Cb& B^
dow cont
ext- (Dr
A"Tools"1
ti`qa
bar%
it doe@s not
add
U_TOOLSl
AddAtA
iMnuA
P} mini
help
= RUN &
Lef`
izardNam
ofq7on
8run
dOnq
Args
eparat
Jaft
Jems$I
0Sep
Priv
nd(B
yVal
Opene
Fun/0k
Dim iB
yger
s`;rI
see whep*
t can bze
+`(o0ns p
bD ataba
iagram
Export
zUB0z
ATABAS
rAddonNa mes(i
unt) = U
Case(FIL
E_EXPORT
) Then b@Export
Next '
atab
9End F
unction
Priva
te Sub P
opul
Posi
As Inte
ger, sz
String
File
pvar
Wizar
Project3
Com_Equi@pment
9stdol
INNT40\S
ystem32\
STDOLE2.
TLB#
tomation#
Forms>
ED452EE1
608C4D0B
EDOWS\
SYSTEM\F
M20.DLL#
Microsof
Librar
B75D-08AW`0222F@
:\window
s\@5P\VBE
\DO.exd`7
DocuA
Project3Com_Equipment
ThisDocument
C:\WINNT40\System32\STDOLE2.TLB
C:\PROGRAMME\GEMEINSAME DATEIEN\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL
C:\PROGRAMME\VISIO\VISLIB32.DLL
C:\WINDOWS\SYSTEM\FM20.DLL
MSForms
e<T>j
c:\windows\TEMP\VBE\MSForms.exd
Document_DocumentCreated
PopulateArrays
VBE6.DLL
szAddon
szFile
szArgsR
ID="{03BC5ADD-4E07-11D0-885C-0020AF84D582}"
Document=ThisDocument/&H00000000
Name="Project3Com_Equipment"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="A2A06ACA08CE08CE08CE08CE"
DPB="44468CAC8C4F8D4F8D4F"
GC="E6E42E0E721215131513EA"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisDocument=66, 66, 336, 554ThisDocument