View source for Create Plots/VBA

{{Template:API}}

==Tutorial: Create a Probability Plot ==
Below is the VBA version of the [[Create_Plots|tutorial]].

 '''VBA'''
 
 {{APIPrefix|Sub}} Main()
 
  {{APIComment|'Create a Weibull++ data set.}} 
    {{APIPrefix|Dim}} WDS {{APIPrefix|As New}} WeibullDataSet
    {{APIPrefix|Call}} WDS.AddFailure(16, 1)
    {{APIPrefix|Call}} WDS.AddFailure(34, 1)
    {{APIPrefix|Call}} WDS.AddFailure(53, 1)  
    {{APIPrefix|Call}} WDS.AddFailure(75, 1)
    {{APIPrefix|Call}} WDS.AddFailure(93, 1)
    {{APIPrefix|Call}} WDS.AddSuspension(120, 5)   
 
  {{APIComment|'Analyze the data set using the 2-parameter Weibull distribution and}} 
  {{APIComment|'the RRX analysis method. Keep all other analysis settings at default.}}
    WDS.AnalysisSettings.Distribution = WeibullSolverDistribution_Weibull
    WDS.AnalysisSettings.Parameters = WeibullSolverNumParameters_MS_2Parameter
    WDS.AnalysisSettings.Analysis = WeibullSolverMethod_RRX
  
  {{APIComment|'Analyze the data set.}}
    {{APIPrefix|Call}} WDS.Calculate()
 
  {{APIComment|'Declare a new WAPlots object.}}
    {{APIPrefix|Dim}} WPlot {{APIPrefix|As New}} WAPlots
 
  {{APIComment|'Add the analyzed data set to the plot.}}
    {{APIPrefix|Call}} WPlot.AddDataset(WDS)
 
  {{APIComment|'Create a probability plot and display it in an Image control in the current Excel sheet.}}
    Image1.Picture = WPlot.CreatePlotVB6(WAPlotType_Probability)
 
  {{APIComment|'Resize the picture (optional).}}
    Image1.Height = 600
    Image1.Width = 865
  
 {{APIPrefix|End Sub}}