ForceColorArrayUgly
From scripting
Sub ForceColorArrayUgly(InputArray As Variant, R As Integer, G As Integer, B As Integer, LineTypeNo As Integer, PointTypeNo As Integer, ThicknessNo As Integer) Dim VizProp As VisPropertySet Set VizProp = MySel.VisProperties If MySel.Count <> 0 Then MySel.Clear End If For gg = 0 To UBound(InputArray) - 1 'StatusBarShort gg, UBound(InputArray) - 1, "Coloring Elements... " MySel.Add InputArray(gg) If R <> 1000 Or G <> 1000 Or B <> 1000 Then VizProp.SetVisibleColor R, G, B, 1 End If If LineTypeNo <> 1000 Then VizProp.SetVisibleLineType LineTypeNo, 1 End If If PointTypeNo <> 1000 Then VizProp.SetSymbolType PointTypeNo End If If ThicknessNo <> 1000 Then VizProp.SetVisibleWidth ThicknessNo, 1 End If MySel.Clear Next gg End Sub