Com instrução

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

Sintaxe

Withobject [ statements ] End With

A sintaxe da instrução With tem estas partes:

Sair Descrição
objeto Obrigatório. Nome de um objeto ou 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 With , referindo-se ao objeto uma vez em vez de fazer referência 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 instruções With colocando um bloco With dentro de outro. No entanto, como os membros dos blocos Com externos são mascarados dentro dos blocos With internos, você deve fornecer uma referência de objeto totalmente qualificada em um bloco With interno para qualquer membro de um objeto em um bloco With externo.

Observação

Em geral, é recomendável que você não entre ou saia dos blocos With . Se as instruções em um bloco With forem executadas, mas a instrução With ou End With não for executada, uma variável temporária contendo 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 ilustrativos.

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.

  • Last updated on