https://www.reliawiki.com/index.php?action=history&feed=atom&title=Create_Plots%2FVBA 2026-05-14T01:12:33Z Revision history for this page on the wiki MediaWiki 1.44.0 https://www.reliawiki.com/index.php?title=Create_Plots/VBA&diff=64733&oldid=prev 2016-09-07T15:34:58Z

<p>Created page with &#039;{{Template:API}} ==Tutorial: Create a Probability Plot == Below is the VBA version of the <a href="/index.php/Create_Plots" title="Create Plots">tutorial</a>. &#039;&#039;&#039;VBA&#039;&#039;&#039; {{APIPrefix|Sub}} Main() {{APIComment|&#039;Cr…&#039;</p> <p><b>New page</b></p><div>{{Template:API}}<br /> <br /> ==Tutorial: Create a Probability Plot ==<br /> Below is the VBA version of the [[Create_Plots|tutorial]].<br /> <br /> &#039;&#039;&#039;VBA&#039;&#039;&#039;<br /> <br /> {{APIPrefix|Sub}} Main()<br /> <br /> {{APIComment|&#039;Create a Weibull++ data set.}} <br /> {{APIPrefix|Dim}} WDS {{APIPrefix|As New}} WeibullDataSet<br /> {{APIPrefix|Call}} WDS.AddFailure(16, 1)<br /> {{APIPrefix|Call}} WDS.AddFailure(34, 1)<br /> {{APIPrefix|Call}} WDS.AddFailure(53, 1) <br /> {{APIPrefix|Call}} WDS.AddFailure(75, 1)<br /> {{APIPrefix|Call}} WDS.AddFailure(93, 1)<br /> {{APIPrefix|Call}} WDS.AddSuspension(120, 5) <br /> <br /> {{APIComment|&#039;Analyze the data set using the 2-parameter Weibull distribution and}} <br /> {{APIComment|&#039;the RRX analysis method. Keep all other analysis settings at default.}}<br /> WDS.AnalysisSettings.Distribution = WeibullSolverDistribution_Weibull<br /> WDS.AnalysisSettings.Parameters = WeibullSolverNumParameters_MS_2Parameter<br /> WDS.AnalysisSettings.Analysis = WeibullSolverMethod_RRX<br /> <br /> {{APIComment|&#039;Analyze the data set.}}<br /> {{APIPrefix|Call}} WDS.Calculate()<br /> <br /> {{APIComment|&#039;Declare a new WAPlots object.}}<br /> {{APIPrefix|Dim}} WPlot {{APIPrefix|As New}} WAPlots<br /> <br /> {{APIComment|&#039;Add the analyzed data set to the plot.}}<br /> {{APIPrefix|Call}} WPlot.AddDataset(WDS)<br /> <br /> {{APIComment|&#039;Create a probability plot and display it in an Image control in the current Excel sheet.}}<br /> Image1.Picture = WPlot.CreatePlotVB6(WAPlotType_Probability)<br /> <br /> {{APIComment|&#039;Resize the picture (optional).}}<br /> Image1.Height = 600<br /> Image1.Width = 865<br /> <br /> {{APIPrefix|End Sub}}</div>

Kate Racaza