Adds a chart to the document. Returns a Shape object that represents a chart and adds it to the specified collection.
Dim shpAddChart2 As Shape Set shpAddChart2 = Selection.HeaderFooter.Shapes.AddChart2()
The following arguments are optional
Anchor - A Range object that represents the text to which the canvas is bound. If Anchor is specified, the anchor is positioned at the beginning of the first paragraph in the anchoring range. If this argument is omitted, the anchoring range is selected automatically and the canvas is positioned relative to the top and left edges of the page