Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Representa a seleção atual em uma janela ou um painel. Uma seleção representa uma área selecionada (ou destacada) na publicação ou representa o cursor se nada na publicação está selecionado. Só pode haver um objeto Selection por painel de janela de publicação e somente um objeto Selection em todo o aplicativo pode estar ativo.
Comentários
Utilize a propriedade Document.Selection para devolver o objeto Seleção . Se nenhum qualificador de objeto é usado com a propriedade Selection, o Microsoft Publisher retornará a seleção do painel ativo da janela da publicação ativa.
Exemplo
O exemplo a seguir copia a seleção atual da publicação ativa.
Sub CopySelection()
Selection.ShapeRange.Copy
End Sub
O exemplo seguinte determina que tipo de item está selecionado e, se for uma forma automática, preenche a primeira forma na seleção com cor. Este exemplo pressupõe que existe pelo menos um item selecionado na publicação ativa.
Sub SelectedShape()
If Selection.Type = pbSelectionShape Then
Selection.ShapeRange.Item(1).Fill.ForeColor _
.RGB = RGB(Red:=200, Green:=20, Blue:=255)
End If
End Sub
O exemplo a seguir copia a seleção e a cola na primeira forma da segunda página da publicação ativa.
Sub CopyPasteSelection()
Selection.TextRange.Copy
With ActiveDocument.Pages(2).Shapes(1).TextFrame.TextRange
.Collapse Direction:=pbCollapseEnd
.InsertAfter NewText:=vbLf
.Paste
End With
End Sub
Métodos
Propriedades
Confira também
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.