let myDocument = Worksheets.Item(1)
let myShapes = myDocument.Shapes
let numAutoShapes
let autoShpArray = []
let numShapes = myShapes.Count

if(numShapes > 1) {
    numAutoShapes = 0
    for(i = 1 ;i <= numShapes; i++){
        if(myShapes.Item(i).Type == msoAutoShape) {
            numAutoShapes++
            autoShpArray[numAutoShapes] = myShapes.Item(i).Name
        }
    }
    if(numAutoShapes > 1) {
        let asRange = myShapes.Range(autoShpArray)
        asRange.Distribute(msoDistributeHorizontally, false)
    }
}