Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel to Powerpoint - Text Box Properties
When copying a text box from Excel to Powerpoint, the source data
(Verdana 10pt) becomes Times New Roman 24pt in the destination! Any ideas as to how this can be remedied within my macro? Thanks in advance, Dave |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel to Powerpoint - Text Box Properties
Sub TextBox2PPT()
Dim PPApp As Object Dim PPPres As Object Dim PPSlide As Object Dim myFontName As Variant Dim myFontSize As Long With Selection.Font myFontName = .Name myFontSize = .Size End With Set PPApp = GetObject(, "Powerpoint.Application") Set PPPres = PPApp.ActivePresentation PPApp.ActiveWindow.ViewType = 9 Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection. _ SlideRange.SlideIndex) Selection.Copy PPSlide.Shapes.Paste.Select PPApp.ActiveWindow.Selection.ShapeRange.TextFrame. TextRange. _ Font.Size = myFontSize With PPApp.ActiveWindow.Selection.ShapeRange.TextFrame. _ TextRange.Font .NameAscii = myFontName .NameOther = myFontName .NameFarEast = myFontName End With Set PPSlide = Nothing Set PPPres = Nothing Set PPApp = Nothing End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel to Powerpoint - copy/paste text box | Excel Programming | |||
Excel text box properties | Excel Discussion (Misc queries) | |||
Properties transferring from excel cells to word file properties | Excel Programming | |||
I need to merge text from an Excel doc. into a powerpoint slide? | Excel Discussion (Misc queries) | |||
Link Excel range to PowerPoint Application text box | Excel Programming |