Com instrução

  • Artigo

Executa uma série de instruções em um único objeto ou em um tipo definido pelo usuário.

Sintaxe

Comobjeto [ instruções ] Terminar com

A sintaxe com instrução tem estas partes:

Sair Descrição
objeto Obrigatório. Nome de um objeto ou de um tipo definido pelo usuário.
instruções Opcional. Uma ou mais instruções a serem executadas no objeto.

Comentários

A instrução With permite que você execute uma série de instruções em um objeto especificado sem requalificar o nome do objeto. Por exemplo, para alterar várias propriedades diferentes em um único objeto, coloque as instruções de atribuição de propriedade dentro da estrutura de controle Com , referindo-se ao objeto uma vez em vez de se referir a ele com cada atribuição de propriedade.

O exemplo a seguir ilustra o uso da instrução With para atribuir valores a várias propriedades do mesmo objeto.

With MyLabel 
 .Height = 2000 
 .Width = 2000 
 .Caption = "This is MyLabel" 
End With

Observação

Depois que um bloco With é inserido, o objeto não pode ser alterado. Como resultado, você não pode usar uma única instrução With para afetar vários objetos diferentes.

Você pode aninhar com instruções colocando um bloco Com dentro de outro. No entanto, como os membros do exterior com blocos são mascarados dentro do interior com blocos, você deve fornecer uma referência de objeto totalmente qualificada em um bloco interno Com para qualquer membro de um objeto em um bloco externo Com .

Observação

Em geral, é recomendável que você não entre ou saia com blocos. Se as instruções em um bloco With forem executadas, mas a instrução Com ou Terminar com não for executada, uma variável temporária que contém uma referência ao objeto permanecerá na memória até que você saia do procedimento.

Exemplo

Este exemplo usa a instrução With para executar uma série de instruções em um único objeto. O objeto e suas propriedades são nomes genéricos usados apenas para fins de ilustração.

With MyObject 
 .Height = 100 ' Same as MyObject.Height = 100. 
 .Caption = "Hello World" ' Same as MyObject.Caption = "Hello World". 
 With .Font 
  .Color = Red ' Same as MyObject.Font.Color = Red. 
  .Bold = True ' Same as MyObject.Font.Bold = True. 
 End With
End With

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.