Método Shape.Ungroup (Publisher)

Desagrupa o grupo de formas especificado ou qualquer grupo de formas no intervalo de formas especificado. Se a forma especificada for uma imagem ou objeto OLE, o Microsoft Publisher será dividi-la separadamente e convertê-lo a um conjunto de formas de desagrupado. Por exemplo, uma planilha integrada do Microsoft Office Excel é convertida em linhas e caixas de texto.

Retorna as formas desagrupadas como um único objeto ShapeRange.

Sintaxe

expressão. Desagrupar

Expressão Uma variável que representa um objeto Shape .

Valor de retorno

ShapeRange

Comentários

O uso deste método em uma forma embutida ou em uma forma que não seja um grupo, uma imagem ou um objeto OLE gerará um erro. Além disso, ocorrerá um erro se a imagem for um arquivo bitmap, JPEG, GIF ou PNG (Portable Network Graphics).

Como um grupo de formas é tratado como um único objeto, agrupar e desagrupar formas altera o número de itens na coleção Shapes e altera os números de índice dos itens que vêm após os itens afetados na coleção.

Além disso, formas agrupadas recentemente são adicionadas à coleção Shapes na página atual (ou páginas) ou área de rascunho. Como resultado, eles podem se deslocar de uma coleção para outro.

Exemplo

Este exemplo desagrupa quaisquer formas agrupadas na primeira página da publicação ativa.

Dim shpLoop As Shape 
 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 If shpLoop.Type = pbGroup Then shpLoop.Ungroup 
Next shpLoop 

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.