TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub SuperDuper())

	Dim oSh as Shape
	Dim x as Long

	Set oSh=ActiveWindow.Selection.ShapeRange(1)
	oSh.Copy

	For x = 2 to ActivePresentation.Slides.Count
		ActivePresentation.Slides(x).Shapes.Paste
	Next

End Sub