Excel To Powrpoint Text

[stickerman]

Hi. I am a comparatively novice programmer and have recently come across the ability to create a Powerpoint direct from VBA in Excel. Most of what I want to do is working, with the following exception.
If I manually copy some text from Excel and paste them to an open powerpoint, I have 5 options for posting. The first two offer what I want: to keep the text size etc and be able to later it in Powerpoint - particularly I want to add a drop shadow. However, when I do this using VBA I can obviously copy and paste, but the resulting image doesn't allow me to access / alter the text. The programming lines I have involved are:
Dim r, s, SheetNo, SheetPosition
Dim rng As Range
Dim PowerPointApp As Object
Dim myPresentation As Object
Dim mySlide As Object
Dim myShape As Object

Set PowerPointApp = CreateObject(class:="PowerPoint.Application")
'Create a New Presentation
Set myPresentation = PowerPointApp.Presentations.Add
myPresentation.PageSetup.SlideSize = 1

'Add a slide to the Presentation
Set mySlide = myPresentation.Slides.Add(SheetNo, 12)
'Copy Excel Range
Set rng = ThisWorkbook.Worksheets("Slide 2").Range("a21:i41")
rng.Copy

'Paste to PowerPoint and position
mySlide.Shapes.PasteSpecial DataType:=2 '2 = ppPasteEnhancedMetafile
Set myShape = mySlide.Shapes(mySlide.Shapes.Count)

Can anyone tell me what I need to do to change this? I would guess the answer is somewhere in the "mySlide.Shapes.PasteSpecial DataType:=2 '2 = ppPasteEnhancedMetafile" sctions, but I'm out of my depth here.
Thanks for any help

 

[GWteB]

In order to be able to alter the pasted text as well as to add shadows replace those two lines of code

'Paste to PowerPoint and position
mySlide.Shapes.PasteSpecial DataType:=2 '2 = ppPasteEnhancedMetafile
Set myShape = mySlide.Shapes(mySlide.Shapes.Count)

either with this

Set myShape = mySlide.Shapes.PasteSpecial(DataType:=8)     '8 = ppPasteHTML
Application.CutCopyMode = False

or with this

Set myShape = mySlide.Shapes.PasteSpecial(DataType:=10)     '10 = ppPasteOLEObject
Application.CutCopyMode = False

 

[stickerman]

Thanks for the quick reply - limited success
The two line options you gave me are dfferent by the reference number at the end. The results I get are:
8: this works as far as altering the text is concerned, but the text copied over is reduced in size. Example, a line of 32point text comes on the PP at 20 point.
Is there something else I need to do?

 

[GWteB]

... the text copied over is reduced in size. Example, a line of 32point text comes on the PP at 20 point.
Is there something else I need to do?

I've tested it in Office 2013. After pasting in PP as HTML the text formatting (color, size, etc) is maintained and the formatting of the resulting shape can be changed, but only partly (fill, shadow, reflection, size, position & text box).

 

[stickerman]

I've tested it in Office 2013. After pasting in PP as HTML the text formatting (color, size, etc) is maintained and the formatting of the resulting shape can be changed, but only partly (fill, shadow, reflection, size, position & text box).

Hello and thank you for your reply.
Sadly, I have also had another go, using HTML, but although the text style stays the same, the size still defaults from 32 to 18point! I wonder if it it's because I'm using Office 365?

 

[Macropod]

Cross-posted at: Excel to Powerpoint Text Size
Please read Mr Excel's policy on Cross-Posting in rule 13: Message Board Rules