Size and Position

[dhartford]

I'm new to PPT VBA and need help here.

What I need to do is to copy and past spreadsheets to PPT (2007), Everytime after pasting, I have to size and position them. Is there any way we can write a macro to do it.

Thank you very much in advance.

[dhartford]

solved.

/code

Sub SizePosition ()
Dim PPApp As PowerPoint.Application

Set PPApp = GetObject(, "Powerpoint.Application")

With PPApp.ActiveWindow.Selection.ShapeRange

.Left = 350
.Top = 250
.Height = 70
.Width = 90

End With

End Sub
code/