function ChildShapes(){
    //Create a new slide with a drawing canvas and shapes
    let sldNew = Presentations.Item(1).Slides.Add(1, ppLayoutBlank)
    let shpCanvas = sldNew.Shapes.AddCanvas(100, 100, 200, 200)

    let canvasitems = shpCanvas.CanvasItems
        canvasitems.AddShape(msoShapeRectangle, 0, 0, 100, 100)
        canvasitems.AddShape(msoShapeOval, 0, 50, 100, 100)
        canvasitems.AddShape(msoShapeDiamond, 0, 100, 100, 100)

    //Select all shapes in the canvas
    shpCanvas.CanvasItems.SelectAll()

    //Fill canvas child shapes with a pattern
    let selection = ActiveWindow.Selection
        if(selection.HasChildShapeRange == true){
            selection.ChildShapeRange.Fill.Patterned(msoPatternDivot)
        }
        else{
            MsgBox("This is not a range of child shapes.")
        }
}