Con instrucción

  • Artículo

Ejecuta una serie de instrucciones en un solo objeto o tipo definido por el usuario.

Sintaxis

Withobject [ statements ] End With

La sintaxis de la instrucción With contiene los elementos siguientes:

Parte Descripción
object Obligatorio. Nombre de un objeto o un tipo definido por el usuario.
instrucciones Opcional. Una o varias instrucciones que deben ejecutarse en object.

Comentarios

La instrucción With permite llevar a cabo una serie de instrucciones en un objeto especificado sin calificar de nuevo el nombre del objeto. Por ejemplo, para cambiar varias propiedades diferentes en un solo objeto, ubique las instrucciones de asignación de propiedades dentro de la estructura del control With, y haga referencia al objeto solo una vez (en lugar de una vez por asignación de propiedad).

El ejemplo siguiente ilustra el uso de la instrucción With para asignar valores a varias propiedades del mismo objeto.

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

Nota:

Si proporciona un bloque With, ya no podrá cambiar object. Como resultado, tampoco podrá aplicar una sola instrucción With a varios objetos diferentes.

You can nest With statements by placing one With block within another. However, because members of outer With blocks are masked within the inner With blocks, you must provide a fully qualified object reference in an inner With block to any member of an object in an outer With block.

Nota:

[!NOTA] Por lo general se recomienda no saltar entre bloques With, ni hacia adentro ni hacia afuera. Si se ejecutan las instrucciones de un bloque With, pero no así la instrucción With o End With, se conservará en la memoria una variable temporal que contiene una referencia al objeto hasta que salga del procedimiento.

Ejemplo:

Este ejemplo usa la instrucción With para ejecutar una serie de instrucciones en un solo objeto. El objeto y sus propiedades son nombres genéricos que se usan únicamente a modo de ilustración.

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

Consulte también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.