WorkbookItem.Path

Option Explicit
Option Base 1
Sub Main

    Dim newanalysis As Analysis
    Set newanalysis = Analysis (scBasicStatistics, Application.Open(Application.Path & "\Examples\Datasets\Cat Clinic.sta"))

    With newanalysis.Dialog
        .Statistics = scBasDescriptives
    End With

    newanalysis.Run

    With newanalysis.Dialog
        .Variables = "3 6 9"
        .PairwiseDeletionOfMD = True
        .DisplayLongVariableNames = False
        .ExtendedPrecisionCalculations = False
        .PlotMedianQuartileRange = False
        .PlotMeanSEAndSD = False
        .PlotMeanSD196TimesSD = True
        .PlotMeanSE196TimesSE = False
        .UserDefinedPercentiles = False
        .ValidN = True
        .Mean = True
        .Median = False
        .Mode = False
        .GeometricMean = False
        .HarmonicMean = False
        .ConfLimitsForMeans = False
        .Sum = False
        .StandardDeviation = True
        .Variance = False
        .StandardErrorOfMean = False
        .MinimumMaximum = True
        .LowerUpperQuartiles = False
        .Range = False
        .QuartileRange = False
        .Skewness = False
        .Kurtosis = False
        .StandardErrorOfSkewness = False
        .StandardErrorOfKurtosis = False
        .UseNumberOfIntervals = True
        .NumberOfIntervals = 10
        .NormalExpectedFrequencies = False
        .KSAndLillieforsTestForNormality = True
        .ShapiroWilkWTest = False
        .ConfidenceIntervalForMeansPlot = 95
        .CompressedStemAndLeaf = False
    End With

    newanalysis.RouteOutput(newanalysis.Dialog.Summary).Visible = True

    newanalysis.RouteOutput(newanalysis.Dialog.Histograms).Visible = True

    newanalysis.Dialog.ResultsVariables = "6 | 9"
    newanalysis.RouteOutput(newanalysis.Dialog.Scatterplot2D).Visible = True

    Dim wkItem As WorkbookItem
    Dim gr As Graph
    Dim graphLayout As Layout2D

    'Start at the top folder and move to the first histogram
    Set wkItem = ActiveWorkbook.Root
    Dim i As Long
    For i = 1 To 3
        Set wkItem = ActiveWorkbook.NextItem(wkItem)
    Next i

    'Iterate through all three histograms and change their bar colors
    For i = 1 To 3
        Set wkItem = ActiveWorkbook.NextItem(wkItem)
        Set gr = wkItem.Object
        Set graphLayout = gr.Content
        graphLayout.Plots(1).Attribute.Bar.Area.ForegroundColor.Color = RGB(0,200,200)
    Next i

End Sub