I’ve had some success on my own using the following code in Excel:
' Try creating a Rhino Application object
Option Explicit
Sub GetRhino()
Dim Rhino As Object
Dim objRhinoScript As RhinoScript
On Error Resume Next
'Set Rhino to Running Rhino
Set Rhino = CreateObject("Rhino.Interface.7") 'Set Rhino = CreateObject("Rhino.Application")
If VBA.IsNull("False") Then Exit Sub
Rhino.Visible = True
'Try getting RhinoScript object
Set objRhinoScript = Rhino.GetScriptObject
objRhinoScript.Command "_Line"
If Err.Number <> 0 Then
VBA.MsgBox "Failed to create Rhino object."
Exit Sub
End If
VBA.MsgBox "Rhino object created."
End Sub