Hi all,

This is thanks to all the community members out there who have helped me, and is hopefully useful to the pilgrims amongst us

I regularly paste text from an excel 2 row 'merged' range into ppt.
office 2010 was ok for this, but office 2013 tries to be extra helpful, making it extra work to paste without the 'helpful' formatting. in particular, paste special: text can include a row or two of blank spaces - most annoying.

To make it easy to access, I run it from a custom UI button (see posts elsewhere in this forum for more on this)

This code will paste text without any excel formatting, delete any extra blank spaces, add bullet points plus set size and position of the text box.

[VBA]Sub PasteFooter()
'paste text from excel as unformatted text,
'remove extra blanks inserted by excel 2013 when using centred allignment
'then resize to full width
Dim myShapeRange As ShapeRange
Dim myShape As Shape
Dim myString As String
Set myShapeRange = ActiveWindow.Selection.SlideRange(1).Shapes.PasteSpecial(ppPasteText)
Set myShape = myShapeRange(myShapeRange.Count)

With myShape
myString = .TextFrame.TextRange.Text
Do While InStr(myString, " ") > 0
myString = Replace(myString, " ", " ")
Loop
.TextFrame.TextRange.Text = myString
.TextFrame.TextRange.ParagraphFormat.Bullet = msoTrue
.TextFrame.TextRange.ParagraphFormat.Bullet.Type = ppBulletUnnumbered
.LockAspectRatio = False
.Top = 480 'points from bottom
.Left = 20 'points from left
.Width = 680 'points wide
.Height = 60 'points high
End With
Set myShape = Nothing
Set myShapeRange = Nothing
End Sub[/VBA]

happy tinkering
Tim