Assign object to shape text that is currently selected

Question

Powerpoint 365 VBA

Set sld = Application.ActiveWindow.View.Slide
Set Shp = sld.Shapes(2)
    If Shp.TextFrame2.HasText Then
        Txt = Replace(Shp.TextFrame2.TextRange.Text, " ", "+")

But this uses ALL the text. I only want to assign a variable to the current SELECTED text.

The ultimate goal would be to check if selection length is > 1, then use the selected text, otherwise use all the text.

SO has decided not to let me paste code into an Answer window, so here we are. Put a line break where each | appears and give this a try: Dim oRng As TextRange | Set oRng = ActiveWindow.Selection.TextRange | While InStr(oRng, " ") > 0 | Call oRng.Replace(" ", "+") | Wend — Steve Rindsberg
– Steve Rindsberg, Commented Oct 8 at 15:53

PeterT · Accepted Answer · 2025-10-08 15:15:08Z

2

Just use the .Selection.TextRange2.Text itself.

With a slide that looks like this:

This code works for me:

Option Explicit

Sub TEST()
    With ActiveWindow
        If .Selection.Type = ppSelectionText Then
            Debug.Print "before = " & .Selection.TextRange2.Text
            Dim newText As String
            newText = Replace(.Selection.TextRange2.Text, " ", "+", Count:=1)
            .Selection.TextRange2.Text = newText
            Debug.Print "after  = " & .Selection.TextRange2.Text
        End If
    End With
End Sub

answered Oct 8 at 15:15

PeterT

8,5971 gold badge19 silver badges46 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Tinbendr Oct 8 at 16:32

Thanks. Used PeterT suggestion. (It was staring me in the face.) Thanks for the assist.

Collectives™ on Stack Overflow

Assign object to shape text that is currently selected

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related