Outline Width

Found this convert units code and this fixed the issue. https://community.coreldraw.com/talk/coreldraw_graphics_suite_x6/f/coreldraw-x6/39529/units-in-vba

Sub Toggle_Outline()
  Dim s As Shape
  Dim x As Double
  
  x = ConvertUnits(0.5, cdrPoint, cdrInch)
  
  For Each s In ActiveSelectionRange.Shapes
    
    If s.Outline.Width > 0 Then
      s.Outline.SetNoOutline
    ElseIf s.Outline.Width = 0 Then
      s.Outline.SetProperties x
    End If
  
  Next s
End Sub

A lot of things in CorelDRAW depend on what the document units are. The document units are not necessarily the units you see in the user interface. You can get it or set it as the ActiveDocument.Unit property.

In a lot of little macros, you will see people changing ActiveDocument.Unit to make it more convenient to work in a particular unit - but they often are not bothering to change it back to what it was, which could cause problems if one subsequently used other macros that assumed a particular unit was in use for the document.

I prefer to not change ActiveDocument.Unit, and to instead use ActiveDocument.ToUnits to make sure that I am getting the correct values, regardless of what ActiveDocument.Unit might be.