Copy randomize and paste animations in Powerpoint

PowerPoint_animation_randomization.ps1

$shapeName = 'Rounded Rectangle 664'

Add-type -AssemblyName office
$Application = New-Object -ComObject powerpoint.application
$application.visible = [Microsoft.Office.Core.MsoTriState]::msoTrue

$powerpointFile = "D:\PoSHCode\GitLocal\PowerPoint\RandomLogoff3.pptx"

$presentation = $application.Presentations.open($powerpointFile)

$slide = $presentation.Slides[1]
$one = $slide.Shapes | Where-Object { $_.Name -eq $shapeName }
$one.PickupAnimation()

$ids = $slide.shapes | Where-Object { $_.Name -ne $shapeName -and $_.AutoShapeType -eq 5 } | Select-Object -ExpandProperty 'Id'

while ($ids.count -gt 0) {
    $randomId = $ids | get-random
    
    $shape = $slide.Shapes | Where-Object { $_.Id -eq $randomId }

    $shape.ApplyAnimation()

    $ids = $ids | Where-Object { $_ -ne $randomId }
}

$presentation.Save()
$presentation.Close()

$application.quit()
$application = $null
[gc]::collect()
[gc]::WaitForPendingFinalizers()

Write-Output 'Done'