Cinta de Opciones

Hola Leonardo.

Yo suelo trabajar con pantalla completa (o no) que suele dejar más espacio
que minizar la cinta de opciones:

Application.DisplayFullScreen = True (o False para ver la Cinta de
opciones).

Espero te ayude.

Saludos: Antonio.
*****************************
"Leonardo Rodríguez Stoehr - Integral Systems Services"
escribió en el mensaje
news:

Hola, solo quisiera saber si en office 2007, se puede "Minimizar" la cinta
de opciones usando VBA?

Gracias

Leonardo

hola, chicos !

una forma un tanto "chapucera" (en tanto se encuentra lo ideal)...

Sub Minimizar_Cinta()
If ExecuteExcel4Macro("get.toolbar(5,""ribbon"")") > 80 Then SendKeys "^{f1}"
End Sub

saludos,
hector.

__ OP __

AnSanVal escribio en el mensaje ...
Yo suelo trabajar con pantalla completa (o no) que suele dejar más espacio que minizar la cinta de opciones:
Application.DisplayFullScreen = True (o False para ver la Cinta de opciones).

Leonardo Rodríguez escribio en el mensaje ...
... solo quisiera saber si en office 2007, se puede "Minimizar" la cinta de opciones usando VBA?

Gracias Héctor.

No habia descubierto que Control + F1, oculta/muestra la cinta.

Saludos: Antonio.
*********************************

hola, chicos !

una forma un tanto "chapucera" (en tanto se encuentra lo ideal)...

Sub Minimizar_Cinta()
If ExecuteExcel4Macro("get.toolbar(5,""ribbon"")") > 80 Then SendKeys
"^{f1}"
End Sub

saludos,
hector.

hola, Antonio !

No habia descubierto que Control + F1, oculta/muestra la cinta.

tampoco me habia percatado de que, de alguna forma (aunque solo para algunas cosas)
la cinta "pasa" por la coleccion de objetos commandbar, o sea que...
segun te sientas mas comodo, puedes cambiar...

If ExecuteExcel4Macro("get.toolbar(5,""ribbon"")") > 80 Then SendKeys "^{f1}"

por:

If Application.CommandBars("ribbon").Height > 80 Then SendKeys "^{f1}"

saludos,
hector.

Hola Héctor.

Lo bueno de compartir es que no sólo APORTAS (aporto) sino que también
RECIBES (recibo) y mucho.

Guardo también (en mi histórico) tu nueva fórmula. Muchas gracias de nuevo
;-)

Saludos: Antonio.
****************************

"Héctor Miguel" escribió en el mensaje
news:%232F%

hola, Antonio !

No habia descubierto que Control + F1, oculta/muestra la cinta.

tampoco me habia percatado de que, de alguna forma (aunque solo para
algunas cosas)
la cinta "pasa" por la coleccion de objetos commandbar, o sea que...
segun te sientas mas comodo, puedes cambiar...

If ExecuteExcel4Macro("get.toolbar(5,""ribbon"")") > 80 Then SendKeys
"^{f1}"

por:

If Application.CommandBars("ribbon").Height > 80 Then SendKeys "^{f1}"

saludos,
hector.