M$ code not working...

[RobDog888]

I get an "Argument not optional".

Sub NewCanvasPicture()
    Dim shpCanvas As Shape
 
    'Add a drawing canvas to the active document
    Set shpCanvas = ActiveDocument.Shapes.AddCanvas(Left:=100, Top:=75, Width:=200, Height:=300)
 
    'Add a graphic to the drawing canvas
    shpCanvas.CanvasItems.AddPicture FileName:="D:\Dog1.gif", LinkToFile:=False, SaveWithDocument:=True
End Sub