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