Shapes Order

[balumail75]

Hi friends,

I am pasting the text from excel to powerpoint in a set of textboxes in each slide. The textboxes are about 8 to 10.

From excel, I am selecting each cell by Ctrl-key (8 cells) and storing it in array of areas. and if I select all the text boxes in powerpoint, it copies in the order, in which the shapes were created.

Is there any way to re-order the shape position?

Please help me in this regard.

Reg,
Bala.

[John Wilson]

You CAN move the order with .ZOrder(msoSendBackward) but I doubt this is the way to do what you need. If you just want to copy text from Excel cells something like this maybe

Sub fromXL()
Dim objXL As Object
'excel ssheet must be open
Set objXL = GetObject(Class:="Excel.Application")
With ActivePresentation.Slides(1)
.Shapes("TextBox 3").TextFrame.TextRange = objXL.Sheets(1).Range("C3")
.Shapes("TextBox 4").TextFrame.TextRange = objXL.Sheets(1).Range("C4")
.Shapes("TextBox 5").TextFrame.TextRange = objXL.Sheets(1).Range("C5")
End With
End Sub

[balumail75]

With reference to your code, the textboxes in each slide are jumbled. It will be hard for me to specify the shape names and ranges, as there are lot of slides in ppt, and in excel, so many ranges, not in sequential order.

Reg,
Bala.

[balumail75]

Please help me with my above post.