Arial
Wingdings
Monotype Sorts
Symbol
DrawingA
nalyzer
9std
ole>
\WINDOWS
\system3
e2.tlb
#OLE Aut
omation
EOffic
E2DF
8D04C-5B
FA-101B-
BDE5
EProg
ram File
s\Common
Microso
ft Share
d\OFFICE
12\MSO.D
Object
Library
ThisD
ocumentG
1BxS-
ryjk
DrawingAnalyzer
ThisDocument
C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL
C:\Program Files\Microsoft Office\Office12\VISLIB.DLL
Visio
C:\WINDOWS\system32\stdole2.tlb
stdole
C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL
Office
Document
GetDrawingStats
DeleteUnusedMasters
ScanDrawing
CountShapes
MakeReport
Shapes
bCheckForMasterInstance
nNestingDepth]
Initialize collections
Get the drawing document
Iterate through the masters, patterns and styles and make a list of names
Iterate through the shapes on each page
Recheck masters and patterns
Check nesting depth
Iterate through shapes
Check for master
Remove name from master or pattern list
Check for group
Drawing Stats for file:
Total Pages:
Total Shapes:
Top Level Shapes:
Group Shapes:
Max Nesting Depth:
Total Masters:
Unused Masters:
Shapes w/o Masters:
Total Patterns:
Unused Patterns:
Total Styles:
Attribut
e VB_Nam
e = "Thi
sDocumen
|Global
Spac
dCreat
Pred
ecla
BExpo
Templ
ateDeriv
Bustomi6z
_nTotalS
hapes As
Long
pLeve
!MaxN
estingDe
CMas
CUnu
less
!Pat
TPag
Ucol
+Cou
Colle
ction
sFilve
blic Sub
GetDraw
kStats()
Make@Report
Delete
Dim i
nteger
LS.B
.A ,ve
s(m_l
NexR
sio.%
iBkA
' Init
ialize
@\ thed d
.Fu~l"
tRh
a@hs#
m`l a lis
t of n
New
!rEach ?#6@0b!
FlagA
0 The@
.Add
4sAFs o
2AFs
Inr-
' Rec
heck
D AC
Inst
Bool
Is Noth
Q<moveA
} from
On E
$?ReR
GoTo 0
End If
d' Che
ck for g
roup
hIf
Shape.Ty
pe = vis
J Thenc
0CoXunt
ForM
asterIns
tanc
Tru(e A
False),
nNestin
gDepth
Next
Private
MakeRe@port()
im nTab
As Integ4er
ebug
3nt "Dr
U Stat
file:
" & m_sF!
Name
St"r
"Tota
l Pages:(";
p Leve6l
I`e i
m0_col
auDiO
Win16
Win32
VBA6
DrawingAnalyzerP-
ThisDocument<
_Evaluate
m_nTotalShapes
m_nTopLevelShapes
m_nGroupShapesb_
m_nMaxNestingDepth
m_nTotalMasters
m_nUnusedMasters
m_nMasterlessShapes
m_nTotalStyles
m_nTotalPatterns
m_nUnusedPatterns
m_nTotalPages
m_colMasterCounts
Collection
m_colStyleCounts
m_colPatternCounts
m_sFileName
ScanDrawing9
Count0v
Application
ActiveDocument
Masters
Documentj
PageN}
Master
Style
Shape
nPageCount
iPageY;
iShapeU
nTopShapeCount{
nTotalShapeCount
nMasterlessShapes
nMasterCount
nStyleCount3
FullName
PatternFlags
Styles
Pages
nNestingDepth
bShapeIsMasterInstance
Remove
visTypeGroup
nTab
ID="{1900F652-EB81-493C-826A-7810DD7A6A80}"
Document=ThisDocument/&H00000000
Name="DrawingAnalyzer"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="1416A8C6A8DEACDEACDEACDEAC"
DPB="282A94E795E795E7"
GC="3C3E80EE8003810381FC"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisDocument=22, 22, 826, 659, Z
Guide
TheDoc
Page-1
Gesture Format