?ActiveWindow.Selection.Type=ppSelectionText
?ActiveWindow.Selection.TextRange.Text
?ActiveWindow.Selection.TextRange2.Text
ASKER
' To test:
' 1. Insert a chart on a PowerPoint slide
' 2. Select the text inside the chart title object
' 3. Run this macro
Sub TestChartTitleSelection()
Dim oObj As Object
Set oObj = ActiveWindow.Selection
Debug.Print TypeName(oObj) ' Returns "Selection"
Debug.Print oObj.Type ' Returns 3 = ppSelectionText
Debug.Print oObj.TextRange.text ' Error "The specified value is out of range."
End Sub
ASKER
ASKER
ASKER
Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.
TRUSTED BY
Open in new window
That should give you a reference to the selected object that you can then examine in the Locals Window to see how you can access the properties you want.