Hi Rick,
I've followed your instructions and added the Process Form to a new group. After clicking on the icon, I get a "run time error 438 - object doesn't support this property or method". When I click the Debug option, references the a_ProcessForm module/ Sub ProcessForm and the line that says .drwChart. See below.
Sub ProcessForm()
Dim r As Range
Dim TD1 As c_TaylorDiagram
Dim arr As Variant
'On Error GoTo Cancel
'Set r = Application.InputBox(Prompt:="Select ""Chart Title"" at the top left of Data Table", Title:="Chart Parameter Entry", Type:=8)
'On Error GoTo 0
Set r = Range("L1")
If Not r Is Nothing Then
r.Resize(10) = Application.Transpose(Array("Chart Title", "Axis Title", "Rays", "Arc1", "Arc2", "Std Max", "StdRef", "Labels", "StdDev", "Correlation"))
Set TD1 = New c_TaylorDiagram
With TD1
.ChartTitle = r.Cells(1, 2).Value
.AxisTitle = r.Cells(2, 2).Value
.Rays = Range(r.Cells(3, 2), r.Cells(3, 2).End(xlToRight)).Value
.Arc1 = Range(r.Cells(4, 2), r.Cells(4, 2).End(xlToRight)).Value
.Arc2 = Range(r.Cells(5, 2), r.Cells(5, 2).End(xlToRight)).Value
.StdMax = r.Cells(6, 2).Value
.StdRef = r.Cells(7, 2).Value
.Labels = Range(r.Cells(8, 2), r.Cells(8, 2).End(xlToRight)).Value
.stddev = Range(r.Cells(9, 2), r.Cells(9, 2).End(xlToRight)).Value
.correlation = Range(r.Cells(10, 2), r.Cells(10, 2).End(xlToRight)).Value
.drwChart
End With
End If
Cancel:
End Sub
Do you know how to fix this error?