I am wondering if anyone can help me. I have a macro that works great when running with the "play" macro button. I created a customized macro button for ease for other users and now have a run time error. (I highlighted in red below)
Dim vEdges As Variant
Dim vCurveParams As Variant
Dim dTotalPerimeter As Double
Dim lOuterLoop As Long
Dim dArea As Double
Dim xLoop As Long
Dim lLoopCount As Long
Dim xEdge As Long
'Dim dMassMeter As Double
'Dim dAnodisingPerimeter As Double
'Dim dExtrusionFactor As Double
'get active document
Set swDoc = swApp.ActiveDoc
'check for active document
If swDoc Is Nothing Then
MsgBox "No active part document. ", vbCritical + vbOKOnly, "Face Properties"
ElseIf swDoc.GetType <> swDocPART Then
MsgBox "Active document not a part. ", vbCritical + vbOKOnly, "Face Properties"
Would be great if I could get this to work properly. Any help is greatly appreciated.