Excel - macro para ocultar o mostrar las barras de excel da error 400

 
Vista:
Imágen de perfil de celia
Val: 679
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

macro para ocultar o mostrar las barras de excel da error 400

Publicado por celia (264 intervenciones) el 29/08/2019 14:18:25
Hola otra vez
Copié esta macro de la web y quería limpiar lo que sobra porque solo quería que se vea la ventana de excel limpia de menús y de barras con la macro Minimizar y que se restaure con la macro MAXIMIZAR

Lo máximo que conseguí hacer fue copiar la macro Minimizar y pegarla y renombrarla a MAXIMIZAR para tener las 2 opciones, bueno y remplacé los False por True y algo sí funciona
Adjunto la hoja también
Gracias por la ayuda.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
'OCULTAR LA BARRA Y MÁS COSAS
Sub Minimiza()
'On Error Resume Next
Dim iRonda As Integer
      With Application
        .DisplayAlerts = False
        .EnableCancelKey = xlDisabled
        .ScreenUpdating = False
        .WindowState = xlNormal
        .DisplayFormulaBar = False
        .DisplayStatusBar = False
    End With
    ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
    With ActiveWindow
        .Zoom = dZoom
        .ScrollColumn = 1
        .ScrollRow = 1
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
        .DisplayGridlines = False
        If CInt(Application.Version) <= 120 Then
           .WindowState = xlMaximized
        End If
    End With
End Sub
 
 
Sub MAXIMIZA()
'On Error Resume Next
Dim iRonda As Integer
      With Application
        .DisplayAlerts = True
        .EnableCancelKey = xlEnable
        .ScreenUpdating = True
        .WindowState = xlNormal
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
     End With
    ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")
    With ActiveWindow
        .Zoom = dZoom
        .ScrollColumn = 1
        .ScrollRow = 1
        .DisplayHeadings = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
        .DisplayGridlines = True
        If CInt(Application.Version) <= 120 Then
           .WindowState = xlMaximized
        End If
    End With
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
-1
Responder
Imágen de perfil de Alfredo
Val: 361
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

macro para ocultar o mostrar las barras de excel da error 400

Publicado por Alfredo (100 intervenciones) el 29/08/2019 16:16:00
Hola Celia

Tu código funciona bien a reserva de la constante dZoom, la cual no esta declarada, solo cambia a .Zoom = 100 o .Zoom = 200 etc..
para mostrar la pantalla al tamaño que deses.

Saludos

P.D. te recomiendo escribas en la zona de declaraciones la instrucción Option Explicit, te ayudara mucho en la depuración de tus códigos
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
Imágen de perfil de celia
Val: 679
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

macro para ocultar o mostrar las barras de excel da error 400

Publicado por celia (264 intervenciones) el 29/08/2019 19:46:10
Hola Alfredo.

Muy bien. Le borré esa líneas de dZoom y ya no falla.

Gracias.
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