Inserts the specified SmartArt graphic into the active document.
Dim shpAddSmartArt As Shape Set shpAddSmartArt = Selection.HeaderFooter.Shapes.AddSmartArt(Layout:=)
The following argument is required
The following arguments are optional
Anchor - A Range object that represents the text to which the SmartArt graphic 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 SmartArt graphic is positioned relative to the top and left edges of the page