Sub FastPasteCE_Optimized()
    ' បិទការ Refresh អេក្រង់ជាបណ្តោះអាសន្នដើម្បីឱ្យកូដរត់លឿនជាងមុន
    Optimization = True
    
    Dim sCurve As Shape, sBmp As Shape, sNew As Shape
    
    If ActiveSelection.Shapes.Count < 2 Then 
        MsgBox "សូមជ្រើសរើស Curve មួយ និង Bitmap ផ្សេងៗទៀត!"
        Exit Sub
    End If

    Set sCurve = ActiveSelection.Shapes(1)
    
    For Each sBmp In ActiveSelection.Shapes
        If sBmp.StaticID <> sCurve.StaticID Then
            Set sNew = sCurve.Duplicate
            ' C និង E (Center alignment)
            sNew.CenterX = sBmp.CenterX
            sNew.CenterY = sBmp.CenterY
            sNew.OrderToFront
        End If
    Next sBmp
    
    ' បើកការ Refresh វិញនៅពេលចប់ការងារ
    Optimization = False
    ActiveWindow.Refresh
End Sub

Sub FastPasteCE_AutoRotate()
    ' Disable screen updates to increase execution speed
    Optimization = True
    
    Dim sCurve As Shape, sBmp As Shape, sNew As Shape
    Dim isCurveHorizontal As Boolean
    
    ' Check if at least two objects are selected
    If ActiveSelection.Shapes.Count < 2 Then 
        MsgBox "Please select one Curve first, then select your Bitmaps!"
        Optimization = False
        Exit Sub
    End If

    ' Set the first selected object as the Master Curve
    Set sCurve = ActiveSelection.Shapes(1)
    
    ' Determine if the Master Curve is Horizontal or Vertical
    isCurveHorizontal = (sCurve.SizeWidth > sCurve.SizeHeight)
    
    For Each sBmp In ActiveSelection.Shapes
        ' Avoid duplicating the master curve onto itself
        If sBmp.StaticID <> sCurve.StaticID Then
            Set sNew = sCurve.Duplicate
            
            ' Check Bitmap orientation: If it differs from the Curve, rotate 90 degrees
            If (sBmp.SizeWidth > sBmp.SizeHeight) <> isCurveHorizontal Then
                sNew.Rotate 90
            End If
            
            ' C and E: Align center horizontally and vertically
            sNew.CenterX = sBmp.CenterX
            sNew.CenterY = sBmp.CenterY
            
            ' Bring the new curve to the front layer
            sNew.OrderToFront
        End If
    Next sBmp
    
    ' Re-enable optimization and refresh the screen immediately
    Optimization = False
    ActiveWindow.Refresh
    Application.Refresh ' <--- This is the command you asked for
End Sub