' Place this at the top of the module to store the curve in memory
Public GlobalCurve As Shape

Sub SmartCurvePaste()
    Dim sld As ShapeRange
    Dim target As Shape, sNew As Shape
    
    ' Get the current selection
    Set sld = ActiveSelectionRange

    ' STEP 1: If only 1 object is selected, treat it as the Master Curve to be copied
    If sld.Count = 1 Then
        Set GlobalCurve = sld.Shapes(1)
        MsgBox "Curve stored in memory! Now select your target Bitmaps or Groups and run this macro again.", vbInformation
        Exit Sub
    End If

    ' STEP 2: If multiple objects are selected, perform the paste and align logic
    If GlobalCurve Is Nothing Then
        MsgBox "Please select a single Master Curve first to store it!", vbExclamation
        Exit Sub
    End If

    ' Optimization: Disable screen refresh for faster execution
    Optimization = True
    
    For Each target In sld
        ' Avoid duplicating the Master Curve onto itself if it's part of the selection
        If target.StaticID <> GlobalCurve.StaticID Then
            ' Create a duplicate of the stored curve
            Set sNew = GlobalCurve.Duplicate
            
            ' C and E: Align to the exact center of the target (Works for Groups too)
            sNew.CenterX = target.CenterX
            sNew.CenterY = target.CenterY
            
            ' Match Rotation: Matches the target's angle (e.g., 0.5°, 45°, or 90°)
            sNew.RotationAngle = target.RotationAngle
            
            ' Move to the front of the stacking order
            sNew.OrderToFront
        End If
    Next target

    ' Re-enable optimization and force an immediate screen redraw
    Optimization = False
    ActiveWindow.Refresh
    Application.Refresh
End Sub