Sub LineBitmap()
    Dim s As shape
    Dim centerline As shape
    Dim outline As shape
    Dim sr As shapeRange
    Dim newSR As shapeRange
    Dim groupedShape As shape

    ActiveDocument.Unit = cdrMillimeter
    
    ' Check if there are any selected shapes
    If ActiveSelection.Shapes.Count = 0 Then
        MsgBox "No shapes selected!", vbExclamation
        Exit Sub
    End If

    ' Get the selected shapes
    Set sr = ActiveSelectionRange

    ' Ungroup if it's a group
    If sr.Count = 1 And sr.FirstShape.Type = cdrGroupShape Then
        Set sr = sr.FirstShape.UngroupEx
    End If

    ' Create a new shape range
    Set newSR = New shapeRange

    ' Loop to create outline and centerline
    For Each s In sr.Shapes
        If s.Type = cdrBitmapShape Then
            ' Create outline
            Set outline = s.CreateBoundary(0.1, False, False)
            If Not outline Is Nothing Then
                With outline.outline
                    .Color.RGBAssign 255, 0, 0
                    .Width = 0.2
                End With
                newSR.Add outline
            End If

            ' Create centerline
            On Error Resume Next
            Set centerline = s.Trace(cdrTraceCenterline)
            On Error GoTo 0

            If Not centerline Is Nothing Then
                With centerline.outline
                    .Color.RGBAssign 0, 0, 255
                    .Width = 0.2
                End With
                newSR.Add centerline
            End If
        End If
    Next s

    ' Check if anything was created
    If newSR.Count = 0 Then
        MsgBox "No outline or centerline created!", vbExclamation
        Exit Sub
    End If

    ' Group all new shapes
    Set groupedShape = newSR.Group

'    ' Bring the grouped shape to front
'    groupedShape.ZOrder cdrBringToFront

'    MsgBox "Outline and centerline created and brought to front successfully!", vbInformation
End Sub

Sub DuplicateRight()
    ' Recorded 5/1/2025
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    ' Duplicate first selection
    Dim dup1 As ShapeRange
    Set dup1 = OrigSelection.Duplicate
    ' Stretch the duplicate horizontally and vertically ActiveDocument.ReferencePoint = cdrMiddleRight
    dup1.Stretch -1#, 1#  ' Mirror horizontally
    ' Send duplicate to front
    dup1.OrderToFront
    ' Apply vertical stretch at the top middle ActiveDocument.ReferencePoint = cdrTopMiddle
    dup1.Stretch 1#, -1#  ' Mirror vertically
    ' Duplicate again
    Dim dup2 As ShapeRange
    Set dup2 = dup1.Duplicate
    ' Stretch the second duplicate horizontally
   ActiveDocument.ReferencePoint = cdrMiddleRight
    dup2.Stretch -1#, 1#  ' Mirror horizontally

    ' Send second duplicate to front
    dup2.OrderToFront

    ' Apply vertical stretch at the bottom middle
    ActiveDocument.ReferencePoint = cdrBottomMiddle
    dup2.Stretch 1#, -1#  ' Mirror vertically
End Sub