Select all text boxes and shapes with texts on current slide

Hello!

Let me start by saying I'm not a programmer, I have absolutely no idea about how all this coding works, it's all sorcery to me. x)

I've been using ChatGPT just fine until now when it comes to creating simple working macros for Word, Powerpoint, etc. This simple task, however, seems impossible for ChatGPT. I've tried, literally, over 30 different codes generated by ChatGPT and none of them work correctly.

So basically:

1. Version of the program: Powerpoint 365 (European Spanish version if that helps)
2. What you want it to do: I want a simple macro that, when ran, selects all of the text boxes and any other type of shape or object that contains text within, and have them all selected simultaneously. This is because I need to copy/paste them in another Powerpoint file, maintaining the same position, font size, format, etc.
3. Cell references, bookmark names, column letters, row numbers, worksheets, styles, whatever pertains to the information at hand: N/A
4. Error messages if any: Oh dear Lord, all of them. The most common one can be loosely translated as "-2147467263 (80004001): the specified collection index is out of limits".
5. If not the entire code, then at least some of it:
   
   This one generates the aforementioned error:
   
   Code:

   ---

   Sub SeleccionarCuadrosDeTexto()
    Dim slide As slide
    Dim shape As shape
    Dim selectedShapes() As shape
    Dim i As Integer
   
    ' Obtiene la referencia a la diapositiva actual
    Set slide = ActiveWindow.View.slide
   
    ' Inicializa el contador de formas seleccionadas
    i = 0
   
    ' Recorre todos los objetos en la diapositiva
    For Each shape In slide.Shapes
        ' Verifica si el objeto es un cuadro de texto
        If shape.Type = msoTextBox Then
            ' Aumenta el tamaño de la matriz y agrega la forma a la matriz
            ReDim Preserve selectedShapes(1 To i + 1)
            Set selectedShapes(i + 1) = shape
            i = i + 1
        End If
    Next shape
   
    ' Deselecciona cualquier objeto seleccionado actualmente
    slide.Shapes.Range(Array()).Select
   
    ' Selecciona todas las formas de la matriz
    For i = LBound(selectedShapes) To UBound(selectedShapes)
        selectedShapes(i).Select (msoTrue)
    Next i
End Sub

   ---

   Now the following does work... partially, cause it only selects ONE textbox, not all of them, and does not select other shapes or objects that contain text:
   
   
   Code:

   ---

   Sub SeleccionarCuadrosDeTexto()
    Dim slide As slide
    Dim shape As shape
   
    ' Obtiene la referencia a la diapositiva actual
    Set slide = ActiveWindow.View.slide
   
    ' Deselecciona cualquier objeto seleccionado actualmente
    On Error Resume Next
    slide.Shapes.Range(Array()).Select
    On Error GoTo 0
   
    ' Recorre todos los objetos en la diapositiva
    For Each shape In slide.Shapes
        ' Verifica si el objeto es un cuadro de texto
        If shape.HasTextFrame Then
            ' Selecciona el cuadro de texto
            shape.Select (msoTrue)
        End If
    Next shape
End Sub

   ---

   I cannot fathom why such a simple task is so complicated to automate on Powerpoint.
   
   Any help would be very much appreciated!

In this line

Code:

---

shape.Select (msoTrue)

---

msoTrue means DEselect any previously selected shapes

Change that line to

Code:

---

Sub SeleccionarCuadrosDeTexto()    Dim slide As slide
    Dim shape As shape
   
    ' Obtiene la referencia a la diapositiva actual
    Set slide = ActiveWindow.View.slide


   
    ' Recorre todos los objetos en la diapositiva
    For Each shape In slide.Shapes
        ' Verifica si el objeto es un cuadro de texto
        If shape.HasTextFrame Then
            ' Selecciona el cuadro de texto
            shape.Select (msoFalse)
        End If
    Next shape
End Sub

---

Welcome to VBAX wizarddani. If there's an issue with ChatGPT it is more often than not, that you need to ask very specific questions, to receive a correct answer. John has (as usual) found the issue for you.