Con instrucción
Ejecuta una serie de instrucciones en un solo objeto o tipo definido por el usuario.
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. |
statements | Opcional. Una o varias instrucciones que deben ejecutarse en object. |
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.
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
¿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.