1 inch to mm = 25.4 mm

2 inch to mm = 50.8 mm

3 inch to mm = 76.2 mm

4 inch to mm = 101.6 mm

5 inch to mm = 127 mm

6 inch to mm = 152.4 mm

7 inch to mm = 177.8 mm

8 inch to mm = 203.2 mm

9 inch to mm = 228.6 mm

10 inch to mm = 254 mm

Sub UGACombine()
    ' Recorded 19-Aug-24
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    OrigSelection.ConvertToCurves
    Dim grp1 As ShapeRange
    Set grp1 = OrigSelection.UngroupAllEx
    Dim grp2 As ShapeRange
    Set grp2 = grp1.UngroupAllEx
    grp1.CreateSelection
    Dim s1 As Shape
    Set s1 = ActiveSelection.Combine
    Dim grp3 As ShapeRange
    Set grp3 = s1.UngroupAllEx
    grp3.CreateSelection
    Dim s2 As Shape
    Set s2 = ActiveSelection.Combine
    ' Recording of this command is not supported: StyleModify
    
End Sub