Show me the text in an OLE text control on a slide

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

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-2008 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.

content authoring & site maintenance by

Friday - The Automatic FAQ Maker