Powerpoint VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Powerpoint
  4. Copying Formatting from One Shape to Another
Sub active()
    With ActivePresentation
        .Slides(2).Shapes(1).PickUp
        .Slides(4).Shapes(3).Apply
    End With
End Sub