Centrar hoja con relacion a formas(textbox, lineas, etc)

[georgedvf]

Hola!

Estoy generando una macro que genera dibujos en base a formas, es decir, lineas, flechas, textbox, etc... y despues de crearlas dependiendo del tamaño del dibujo algunas de ellas quedan fuera de la hoja visible de excel, pero necesito que todas queden visibles y que la hoja quede centrada respecto a estos dibujos.

Intenté seleccionando todos los objetos y con el comando "zoom = True", pero no centra los objetos ni quedan todos visibles.

¿Tienen alguna idea?

Gracias y saludos!

 

[Greg Truby]

Hola George,

En este caso no creo que la versión de Excel que usa tenga impacto. Pero para el futuro, generalmente es buena idea indicarla.

Bueno - usted tendrá que usar las propiedades del objeto WINDOW para determinar las posiciones de los objeto dibujados; especificamente la de USABLEHEIGHT y la de USABLEWIDTH.

También me imagino que será necesario calcular un factor de escala de tamaño y usar los métodos de .SCALEWIDTH y .SCALEHEIGHT para los varios dibujos para ajustar al tamaño.

 

[georgedvf]

Hola Greg.

Gracias por la atencion.

Estoy utilizando la versiion 2003 de Excel.

¿Podría explicar un poco mas acerca del uso de las propiedades USABLEHEIGHT Y USABLEWIDTH? He leido la ayuda del propio programa pero no me he entendido mucho.

Saludos.

 

[Greg Truby]

Sub CentrarForma()
    Dim sngAncho As Single, sngAltura As Single, _
        sngSuperior As Single, sngIzquierda As Single, _
        wndwActive As Excel.Window, _
        shpForma As Shape
 
    '// Uno podría agarra cualquiera ventana de cualquier
    '// cuaderno.  Aquí agarro la ventana activa.
    Set wndwActive = ActiveWindow
 
    '// agarra el ancho y la altura de la ventana
    Let sngAncho = wndwActive.UsableWidth
    Let sngAltura = wndwActive.UsableWidth
 
    '// uno podría hacer un bucle pero aquí
    '// agarro solo la primera forma en la colección
    Set shpForma = ActiveSheet.Shapes(1)
 
    '// calcular el coordinato para la izquierda que
    '// será la mitad del ancho de la pantalla menos
    '// la mitad del ancho de la forma
    Let sngIzquierda = sngAncho / 2 - shpForma.Width / 2
 
    '// dejo a usted generar qué será el cálculo para
    '// el coordinator para TOP (lado superior).
 
 
    '// aplicar los coordinatos nuevos
    shpForma.Left = sngIzquierda
 
End Sub

 

[georgedvf]

Si entiendo bien, este código lo que hace es "leer" el tamaño de la ventana y mover y ajustar las formas a ese tamaño. ¿Cierto? En realidad lo que yo busco es "mover" la ventana y ajustar el zoom para que todos los objetos queden visibles. He estado leyendo y encontre un codigo que al parecer le llaman "Chip's code" que se llama "ZoomToRange", y creo que es lo que estoy buscando, he hecho varias pruebas y me ha funcionado.

Muchas gracias Greg por su ayuda y su tiempo.

 

[Greg Truby]

Sí, usted entendió bien lo que hace la idea mía y obviamente no entendí bien lo que usted deseaba hacer. Y sí el código de Chip hará lo que usted describe y no cabe duda que es una solución mucha más sencilla. Para cualquiera persona leyendo este hilera en el futuro, la página de Chip pertenente es:

http://www.cpearson.com/Excel/zoom.htm#zoom