Calibri
Wingdings
Monotype Sorts
Symbol
Drawing1
rst dole>
:\Window
s\SysWOW
e2.tl
b#OLE Au
tomation
EOffic
F8D04C-5
BFA-101B -BDE5
EPro
gram Fil
es (x86)
\Common
\Microso
ft Share
d\OFFICE
14\MSO.D
.0 Objec
t Librar
sDocumenPtG
NewM
O #b$O
ThisDocument
NewMacros
C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL
C:\Program Files (x86)\Microsoft Office\Office14\VISLIB.DLL
Visio
C:\Windows\SysWOW64\stdole2.tlb
stdole
C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLL
Office
Document
settext
gettext
VBE7.DLL
Enable diagram services
"yes"
Shape Data
"ololo"
number
"ogo"
Behavior Properties
OPENGROUPWIN()
Define Shape Data
Number
"Number"
Fill Properties
RGB(255,255,255)
RGB(240,240,240)
Shadow Color
Prop.number
k'JB"
Size Object
Attribut
e VB_Nam
e = "New
Macros"
Sub
Enable d
iagram s
ervices
Dim D
As Inte8ger
ActiveDo
cument.
`Version
ApplPicat
indow.Pa
ge.Shape
s.ItemFr
omID(1).
OpenShee
".Cel
lsSRC(
onProp,
Cust
sValue)
.Formula
""yes"
YClos
eSco peID1
Lo<ng
)BeHgin
Data"@~
U'CK
inB4Ro
}Set G
_Lang
Rvol@
hEnd
Tru
Xnumbe>r@(
awRect
,c"2?cow4
Desel
teEx
ConvertT
oGroup
IBeha`vior
onObj`5B
DblClick
tOPENGRO
UPWIN()Pa
Charact
Text
eID8
efine Ba
3.Add
Last
ault
Label
visCust
PropsCal
endar).F
ormulaU
vsoShape
3.CellsS
Sect
Row9,
mptN
Valu"e
So rtKey
XAp plica
ndUndoSc
ope
, True
veWi
w.Page.
s.ItemF
romID(5)
.OpenShe
$Closa
7Draw
&B)a"tF
As Long'
ertipes")
Obj@
egnd
HP@attern
.dow
Color
8"Shdw
"D@efine BR pDataE#!/e
VisioC"Cn
eger
.Delete@s
@.numbe
C harac \s1
iewR
|Oval
~eID15
QctAll4#
TZE,x !
AlignAkHHorz
Midd
le, Fal
ndow.Pag
e.Shapes
.ItemFro
mID(4),
visSelec
lication
.ActiveW.i
\te0Ex (
rmal)
pDes
_All[
Ungrou
Dim U
ScopeID1
6 As Lon
("Siz
e Obj@}"
6).Ce@llsSRC
RowXbF
P inX).
58?"-DWidtbhK"8.1
!H`eight
R, Tr|ue
Align!
Cent
Vertb
Middle,
Fals?%
Define
` Datae
Prop
"I 6ger
.Add
).Name2W
sLabel[C
Type
LangID
Calendar?
SortK|ey
Prop.Number (
e = "Thi
sDocumen
|Global
Spac
dCreat
Pred
ecla
BExpo
Templ
ateDeriv
Bustomi
2Sub s
ettext()
Dim sh
p As Sha"p
BSet
.Page
s.Item
FromID(2_
Cell
sSRC(vis
3onPro@p, 0,
sValue
).Formul`aU, "
.Number
@/End
MtLxt
ebug.P rint
integer
Win16
Win32
Win64F
VBA6
VBA7
Project1
ThisDocument<
_Evaluate
ooow
Documentj
_B_var_Sub
Shape
_B_var_Set
ActivePage\
Shapes
ItemFromID
deb%
Module1b
Macro1
DiagramServices8
ActiveDocume
DiagramServicesEnabled
visServiceVersion140
Application
ActiveWindowzB0
PageN}0
OpenSheetWindow^
CellsSRC
visSectionProp9
visCustPropsValue
FormulaU
Replacef
UndoScopeID1
BeginUndoScope
vsoShape1
intPropRow2
visCustPropsLangID%W0
EndUndoScope
RowNameU
DrawRectangle
UndoScopeID3
vsoShape2
intPropRow4
DeselectAll
visSelectC
SelectionZ
DeleteExYy0
visDeleteNormal
ConvertToGroup
Ungroup
Group
UndoScopeID5
visSectionObjecti
visRowEvent
visEvtCellDblClick
OpenDrawWindow
Activate
vsoCharacters6I
Charactersrg0
Begin
Delete
vsoCharacters7J
UndoScopeID8
vsoShape3
intPropRow9
AddRow8
visRowLast;
visTagDefault
Section
NameU
visCustPropsLabelPS0
visCustPropsType
visCustPropsFormat
visCustPropsCalendar
visCustPropsPrompt+I0
visCustPropsSortKeyY
_B_var_sh
UndoScopeID10Qk0
visRowFill
visFillForegnd
FormulaForceU
visFillBkgnd
visFillPatternCl0
UndoScopeID11Rk0
visFillShdwPatternZ
UndoScopeID12Sk0
vsoShape4
intPropRow13
DeleteRow
CellsU\
vsoCharacters14
SetViewRectKS0
DrawOval
UndoScopeID15Vk0
AlignF
visHorzAlignCenter
visVertAlignMiddle
UndoScopeID16Wk0
visRowXFormOut
visXFormPinXR
visXFormPinYS
visXFormWidth
visXFormHeight
UndoScopeID17Xk0
vsoShape5
intPropRow18!10
ID="{C2986B1C-1455-412F-B4F6-CF3EC8F5AC24}"
Document=ThisDocument/&H00000000
Module=NewMacros
Name="Drawing1"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="282AD523D923D923D923D9"
DPB="5052AD4EAE4EAE4E"
GC="787A857686768689"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisDocument=22, 22, 1182, 553, Z
NewMacros=66, 66, 1270, 504,
C:\Program Files (x86)\Microsoft Office\Office14\visio content\1049\BASFLO_M.VSS
C:\Program Files (x86)\Microsoft Office\Office14\visio content\1049\XFUNC_M.VSS
TheDoc
Gesture Format
Guide
Flow Normal
Connector
msvNoAutoConnect
Page-1
msvThemeColors
msvThemeEffects
msvThemeOrder
author
control
QueueMarkerEvent
soln=BASFLO /cmd=DocCreated
soln=BASFLO /cmd=DocOpened