Excel VBA: métodos LaunchSet utilizados por los gráficos de control IR<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Hola de nuevo. Miré el "análisis" de la muestra VB.NET en:
C: \ Archivos de programa \ SAS \ JMP \ 11 \ Samples \ Automation \ Visual Basic Samples \ Analysis .NET \ analysis.vb
Luego, del procedimiento ControlChart_Click (), extraje el código relacionado con los gráficos IR (ver más abajo).
El código se ejecutó correctamente ... excepto por las 2 líneas de código que agregué:
ccontrol2.LaunchSetIRChartParms (Verdadero, Falso, 2)
ccontrol2.LaunchSetKSigmaAlphaH (Verdadero, Falso, Falso, 3.0, 1.0)
Por favor avise sobre la sintaxis correcta. ¡Gracias!
'------------------------------------------------- ---------
'Análisis> Cuadro de control> IR> Medición individual
'------------------------------------------------- ---------
Sub ControlChart ()
Dim aplicación como JMP.Application
Dim doc As JMP.Document
Dim dt As JMP.DataTable
Dim ccontrol2 As JMP.ControlChart
'Iniciar JMP
Establecer aplicación = CreateObject ("JMP.Application")
app.Visible = True
'Acceda al documento y recupere el puntero a la tabla de datos subyacente.
Set doc = app.OpenDocument ("C: \ Archivos de programa \ SAS \ JMP \ 11 \ Samples \ Data \ Big Class.jmp")
Establecer dt = doc.GetDataTable
'Lleve la tabla de datos al primer plano y conviértala en la tabla activa.
dt.Activar
'Crear un tipo específico de objeto de análisis (por ejemplo, ControlChart),
'que se utiliza para especificar columnas y luego lanzar el análisis.
Establecer ccontrol2 = doc.CreateControlChart
'Seleccione la columna para graficar en el eje vertical.
ccontrol2.LaunchAddProcess ("altura")
'Seleccione la columna cuyos valores etiquetan el eje horizontal.
ccontrol2.LaunchAddSampleLabel ("age")
'Seleccione la columna para el procesamiento por grupo.
ccontrol2.LaunchAddBy ("sexo")
'Seleccione el tipo de gráfico que desee de jmpControlChartConstants (por ejemplo, IR).
ccontrol2.LaunchSetChartType ((JMP.jmpControlChartConstants.jmpControlChartIR))
Para el gráfico IR, configure la opción de medición individual y los parámetros de KSigma.
ccontrol2.LaunchSetIRChartParms (Verdadero, Falso, 2)
ccontrol2.LaunchSetKSigmaAlphaH (Verdadero, Falso, Falso, 3.0, 1.0)
'Ejecutar el análisis con columnas previamente especificadas a través de LaunchAdd___.
ccontrol2.Launch
End Sub
Re: Excel VBA - Métodos LaunchSet utilizados por los cuadros de control IRGracias, Brian. Su prueba de mi código me ayudó a orientarme en la dirección correcta.
Leí sobre la sintaxis para llamar a subrutinas:
- Si usa la palabra clave "Llamada", debe incluir la lista de argumentos entre paréntesis.
- Si omite la palabra clave "Llamada", también debe omitir los paréntesis que rodean la lista de argumentos.
Así que hay 2 formas correctas de codificar esto en VB:
Llame a ccontrol2.LaunchSetIRChartParms (Verdadero, Falso, 2)
Llame a ccontrol2.LaunchSetKSigmaAlphaH (Verdadero, Falso, Falso, 3 #, 1 #)
y
ccontrol2.LaunchSetIRChartParms True, False, 2
ccontrol2.LaunchSetKSigmaAlphaH Verdadero, Falso, Falso, 3 #, 1 #
Re: Excel VBA - Métodos LaunchSet utilizados por los cuadros de control IRHola jb
No puedo ayudarte en esto. Los métodos que mencionas anteriormente funcionaron bien para mí. ¿Qué tipo de error estás recibiendo?
Brian Corcoran
JMP
