PPTools
Shape Styles brings the power of styles to PowerPoint. Apply complex formatting with a single click
Merge Excel, CSV or tab-delimited data into PowerPoint presentations to create certificates, awards presentations, personalized presentations and more
FixLinks prevents broken links when you distribute PowerPoint presentations
Optimizer saves disk space and bandwidth, shrinks your PowerPoint presentations to the right size for email, screenshow or printing
PPT2HTML gives you full control of PowerPoint HTML output, helps meet Section 508 accessibility requirements
Prep4PDF preserves interactivity in PowerPoint presentations when you convert to PDF
Image Export converts PowerPoint slides to JPG, PNG, GIF, WMF and more
Show me the text in an OLE text control on a slide
Problem
You have text box controls (as opposed to normal PowerPoint text boxes) on a slide so that users can enter text during a presentation.
Works great.
But now you want to retrieve the text they've typed in order to export it to a file or ... well, whatever.
Here's how ...
Function TextBoxControlText(oTextBox As Shape) As String
' Pass me a text box control
' I'll return the text in the text box
' See the Test subroutine below for a usage example
' safety precaution:
If oTextBox.Type = msoOLEControlObject Then
TextBoxControlText = oTextBox.OLEFormat.Object.Text
Else
TextBoxControlText = "This isn't a text control! It's a Type " _
& CStr(oTextBox.Type) & " shape."
End If
End Function
Sub Test()
' Assumes you've selected the text box control in edit mode
MsgBox TextBoxControlText(ActiveWindow.Selection.ShapeRange(1))
End Sub
|
Contents © 1995 - 2009 Stephen Rindsberg, Rindsberg Photography, Inc. and members of the MS PowerPoint MVP team. You may link to this page but any form of unauthorized reproduction of this page's contents is expressly forbidden.
|
Supercharge your PPT Productivity with PPTools
Show me the text in an OLE text control on a slide
http://www.pptfaq.com/FAQ00772.htm
Last update 10 July, 2008
Created:
