Worksheet.Shapes (Excel)

Retorna uma coleção Shapes que representa todas as formas na planilha. Somente leitura.

Dim shpsShapes As Shapes
Set shpsShapes = ActiveSheet.Shapes