Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

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