The clsPartitionAnalyzer InitializeDesign method checks the partition structure to ensure that clsPartitionAnalyzer can be run on it and initializes the objects necessary to perform the analysis.
dsoPartAnalyzer. InitializeDesign
Use the following code to create an object of ClassType clsPartitionAnalyzer and initialize its design.
Dim dsoServer         As DSO.Server
Dim dsoDB             As DSO.MDStore
Dim dsoCube           As DSO.MDStore
Dim dsoPart           As DSO.MDStore
Dim dsoAgg            As DSO.MDStore
Dim dsoPartAnalyzer   As DSO.PartitionAnalyzer
Dim strErr            As String
' Initialize server
' LocalHost defaults to = your Windows NT computer name
Set dsoServer = New DSO.Server
dsoServer.Connect("LocalHost")
Set dsoDB = Server.MDStores(1)  'Get first database on server
Debug.Print " Database Opened: " & dsoDB.Name
Set dsoCube = dsoDB.MDStores(1)  'Get first cube in database
Debug.Print "  Cube Opened: " & dsoCube.Name
Set dsoPart = dsoCube.MDStores(1)  'Get first partition in cube
Debug.Print "   Partition Opened: " & dsoPart.Name
Set dsoPartAnalyzer = dsoPart.Analyzer  'Instantiate an analyzer object
If dsoPartAnalyzer.InitializeDesign Then
    Debug.Print "InitializeDesign SUCCEEDED"
Else
    Debug.Print "InitializeDesign FAILED"
End If
| clsAggregation | clsPartitionAnalyzer | 
| clsPartition | Using Decision Support Objects |