Shapes.AddSmartArt (Word)

Inserts the specified SmartArt graphic into the active document.

AddSmartArt (Layout, Left, Top, Width, Height, Anchor)

Dim shpAddSmartArt As Shape
Set shpAddSmartArt = Selection.HeaderFooter.Shapes.AddSmartArt(Layout:=)

Arguments

The following argument is required

Layout (Office.SmartArtLayout) - A SmartArtLayout object that specifies the layout for the SmartArt graphic.

Optional arguments

The following arguments are optional

Left (Long) - The distance, in points, from the left edge of the slide to the left edge of the SmartArt graphic.

Top (Long) - The distance, in points, from the top edge of the slide to the top edge of the SmartArt graphic.

Width (Long) - The width of the SmartArt graphic.

Height (Long) - The height of the SmartArt graphic.

Anchor (Range) - 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.