Unidad 5. Programación usando objetos del Excel (IX)

Ejemplo 04

En el siguiente ejemplo se activa la hoja 3 y se añade una nueva hoja a la izquierda de la hoja activa.

Sub NuevaHoja()

Worksheets(3).Activate

Worksheets.Add

End Sub

Ejemplo 05

El siguiente ejemplo activa la tercera hoja, añade una nueva hoja y le cambia el nombre por "Ventas" y luego imprime el nombre devuelto por el método Name

Sub NuevoNombre()

Worksheets(3).Activate

Worksheets.Add

NomHoja = ActiveSheet.Name

Worksheets(NomHoja).Name = "Ventas"

MsgBox ActiveSheet.Name

End Sub

Ejemplo 06

El siguiente ejemplo permite añadir una nueva hoja. Moverlo después de la hoja 1 e imprimir el número de hojas.

Sub MoverHoja()

Worksheets(3).Activate

Worksheets.Add

NomHoja = ActiveSheet.Name

Worksheets(NomHoja).Name = "Ventas"

Worksheets.Move After:=Worksheets(1)

MsgBox Worksheets.Count

End Sub

Ejemplo 07

En el siguiente ejemplo se oculta la hoja3 y luego de activar la hoja1, se cambia la orientación de la hoja y se imprime después.

Sub ImprimirHoja()

Worksheets(1).Visble = False

Worksheets("Hoja3").Activate

ActiveSheet.PageSetup.Orientation = xlLandscape

ActiveSheet.PrintOut

End Sub

 Cursos Informática Gratuitos