Shapes.AddSmartArt (Excel)
Cria um novo gráfico SmartArt com o layout especificado.
AddSmartArt (Layout, Left, Top, Width, Height)
Dim shpAddSmartArt As Shape
Set shpAddSmartArt = ActiveChart.Shapes.AddSmartArt(Layout:=)
Arguments
O seguinte argumento é necessário
Layout (Office.SmartArtLayout) - Um objeto que representa o layout que será usado.
Optional arguments
Os seguintes argumentos são opcionais
Left (Points) - A distância, em pontos, da borda esquerda do objeto até a borda esquerda da coluna A (em uma planilha) ou a borda esquerda da área do gráfico (em um gráfico).
Top - A distância, em pontos, da borda superior do objeto até a borda superior da planilha
Width (Long) - A largura, em pontos, do objeto.
Height (Long) - A altura, em pontos, do objeto.