pastespecial in powerpoint 2010 vba

[Jeong-hoon Kang]

I want to repeat paste format repeatedly.
I mean copy format a shape and type something and want to paste
format.
that's why I want a macro that repeat paste format.

the code below gives me an error.

Sub PasteFormat()
Application.ActiveWindow.View.PasteSpecial
DataType:=ppPasteDefault
End Sub

there's no record macro functionality in powerpoint 2010, it's not
easy for me.

any ideas?

Thanks in advance.