Classe GroupShapes - formas individuais dentro de uma forma agrupada (Word VBA)

A classe GroupShapes representa as formas individuais dentro de uma forma agrupada. Cada forma contida em um grupo de formas é representada por um objeto Shape . Para usar uma variável de classe GroupShapes, ela primeiro precisa ser instanciada por exemplo

Count

Retorna um Long que representa o número de formas na coleção. Somente leitura.

Dim gss As GroupShapes: Set gss =  
Dim lngCount As Long
lngCount = gss.Count

Item

Retorna um objeto Shape individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal ou uma cadeia de caracteres que representa o nome do objeto individual.

Dim gss As GroupShapes: Set gss =  
Dim shpGroupShape As Shape
Set shpGroupShape = gss(Index:=1)

Range

Retorna um objeto ShapeRange .

Objetos ShapeRange não incluem objetos InlineShape. Um objeto InlineShape é equivalente a um caractere e é posicionado como um caractere dentro de um intervalo de texto. Objetos Shape ficam vinculados a um intervalo de texto (a seleção, por padrão), mas pode ser posicionados em qualquer lugar na página. Um objeto Shape sempre aparecerá na mesma página que o intervalo ao que qual está ancorado. A maioria das operações que você pode fazer com um objeto Shape você também pode fazer com um objeto ShapeRange que contém uma única forma. Algumas operações, quando executadas em um objeto ShapeRange que contém várias formas, gerar um erro.

Range (Index)

Index: Especifica quais formas devem ser incluídas no intervalo especificado. Pode ser um número inteiro que especifica o número de índice de uma forma dentro da coleção Shapes, uma cadeia de caracteres que especifica o nome de uma forma ou uma matriz que contém inteiros ou seqüências.

Sub ShRange() 
 With ActiveDocument.Shapes.Range(1).Fill 
 .ForeColor.RGB = RGB(255, 0, 255) 
 .Visible = msoTrue 
 End With 
End Sub