TPE
Tavvafi@gmail.com |
≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
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