let myShapes = ActivePresentation.Slides.Item(1).Shapes

if(myShapes.Count > 1){
    let numTextShapes = 0
    let shpTextArray = []

    for(let i = 1; i <= myShapes.Count; i++){
        if(myShapes.Item(i).HasTextFrame){
            numTextShapes++
            shpTextArray[numTextShapes] = []
            shpTextArray[numTextShapes][0] = myShapes.Item(i).Name
            shpTextArray[numTextShapes][1] = myShapes.Item(i).TextFrame.TextRange.Text
        }
    }
}