Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
funcion WITH Grafico 150x150, Función With aplicada a modificar un gráfico

Función With aplicada a modificar un gráfico

| 1 comentario

FUNCIÓN WITH

La función WITH sirve para evitar tener que escribir un grupo de instrucciones de manera completa, cuando éstas son consecutivas y tienen a la vez una estructura similar.

1. Lógica de funcionamiento

Entiéndase que si tenemos un grupo de instrucciones consecutivas que son iguales en la primera parte, cambiando tan sólo la parte final de la sentencia, podemos utilizar la función With.

2. Sintaxis

Para “n” instrucciones cuyas sentencias comienzan igual:

With inicio común de todas las instrucciones siguientes
.sentencia faltante de la primera instrucción
.sentencia faltante de la segunda instrucción
 .sentencia faltante de la (n-1)-ésima instrucción
.sentencia faltante de la  (n)-ésima instrucción

3. Ejemplo práctico

Para hacer notoria la diferencia de usar y no usar With, citaré cómo cambiar algunas instrucciones del siguiente gráfico:

funcion WITH Grafico 01, Función With aplicada a modificar un gráfico

Las instrucciones a cambiar serán:
-         Mover el gráfico a otra pestaña
-         Cambiar la presentación del gráfico
-         Cambiar el tipo de gráfico
Sin usar with:

Sub Macro3()
ActiveSheet.ChartObjects("2 Gráfico").Activate
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja2"
ActiveSheet.ChartObjects("1 Gráfico").Activate
ActiveSheet.ChartObjects("1 Gráfico").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("1 Gráfico").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartType = xlPyramidColStacked100
End Sub

Usando with:

Sub Macro3()
With ActiveSheet
.ChartObjects("2 Gráfico").Activate
.Location Where:=xlLocationAsObject, Name:="Hoja2"
.ChartObjects("1 Gráfico").Activate
.ChartObjects("1 Gráfico").Activate
.PlotArea.Select
.ChartObjects("1 Gráfico").Activate
.ChartArea.Select
.ChartType = xlPyramidColStacked100
End with
End Sub

Luego de ello, el gráfico habrá cambiado de pestaña y de forma, viéndose así:

funcion WITH Grafico 02, Función With aplicada a modificar un gráfico

Elaborado por: Ernesto Tarazona Niño de Guzmán

Un comentario

Deja una respuesta

Los campos requeridos estan marcados con *.