Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Minimizar el RIBBON

Excel - Minimizar el RIBBON

Volver
Nuevo Tema
Filtrado por el usuario: wordexperto.com
<<>>
Filtrado por el usuario 'wordexperto.com' (Eliminar fitro)
 
Vista:
sin imagen de perfil

Minimizar el RIBBON

Publicado por Ramón (102 intervenciones) el 23/01/2024 17:11:26
Mediante el código:
1
CommandBars.ExecuteMso "MinimizeRibbon"
... consigo minimizar el Ribbon, sí, pero alternando...

Con el de:
1
2
3
If Application.CommandBars("Ribbon").Height >= 100 Then
    SendKeys "^{F1}"
End If
... consigo lo que pretendo pero como efecto colateral -uno de ellos porque supongo que no será el único...- me anula el teclado numérico...

Y este otro:
1
2
3
If CommandBars("Ribbon").Height > 100 Then
   CommandBars.ExecuteMso "MinimizeRibbon"
End If
... me da el error 91. Variable de objeto o bloque with no establecido...

Los códigos anteriores los incluía en el objeto ThisWorkBook, evento Open...

¿Cómo puedo minimizar el Ribbon, SIEMPRE y sin que se produzcan los efectos colaterales que decía?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Minimizar el RIBBON

Publicado por Ramón (102 intervenciones) el 29/01/2024 14:14:12
Por si sirviera para alguien: resulta que tenía por ahí un modulillo que venía utilizando en ACCESS para maximizar/minimizar el Ribbon...

El caso es que, simplemente por probar, lo he incluido en mi aplicación de EXCEL y ha funcionado, es este:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'MÓDULO "TECSYS" PASADO POR MIHURA DE MVP-ACCESS, PARA MAXIMIZAR/MINIMIZAR EL RIBBON:
 
Option Compare Database
Option Explicit
 
Function RT_MaximizaRibbon(Optional bytTimeOut As Long = 2) As Boolean
    If Application.CommandBars("ribbon").Height > 140 Then Exit Function
    CommandBars.ExecuteMso "MinimizeRibbon"
End Function
 
Function RT_MinimizaRibbon(Optional bytTimeOut As Long = 2) As Boolean
    If Application.CommandBars("ribbon").Height < 140 Then Exit Function
    CommandBars.ExecuteMso "MinimizeRibbon"
End Function

... sin embargo he de decir que, como tengo dicho en este hilo [url][https://www.lawebdelprogramador.com/foros/Excel/2234024-Error-1004-Error-en-el-metodo-PASTE-de-la-clase-Worksheet.html[/url]], mantengo ciertas reservas en su uso para EXCEL...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar