INDICES DE BARRA DE HERRAMIENTAS

06/07/2007 - 21:24 por galtor | Informe spam
Hola a todos

Espero que alguien me pueda ayudar, puse ya una consulta aquí mismo y
me dieron unas sugerencias que funcionan y me puse a investigar por mi
cuenta pero al parecer no he buscado muy bien porque no he podido
encontrar lo que busco.

Resulta que probando instrucciones borré unos controles de la barra de
herramientas y ahora no sé como restaurarlos, use:

Application.CommandBars("File").Controls(4).delete 'Guardar
Application.CommandBars("File").Controls(5).delete 'Guardar
Como
Application.CommandBars("Tools").Controls(7).delete 'estos ya
no recuerdo bien cuales eran estaba
Application.CommandBars("Tools").Controls(8).delete 'probando
a lo menso
Application.CommandBars("Tools").Controls(9).delete
Application.CommandBars("Tools").Controls(10).delete
Application.CommandBars("Tools").Controls(14).delete

para evitar problemas en otras computadoras la cambié por:

Application.CommandBars("File").Controls(4).Enabled = False
Application.CommandBars("File").Controls(5).Enabled = False
... etc

y funciona bien (la probé en otra máquina, porque la mía ya no los
tiene- jejeje)

¿Alguien me podría decir donde puedo encontrar alguna lista de los
indices de los controles para restaurarlos y tenerlos para futuras
referencias?

me facilitaron esta instruccion:
Application.CommandBars("File").Controls.Add Type:=msoControlButton,
ID:t8, Before:=5
esa es para "guardar como" y me faltan todos los demas que comento
arriba.

(tengo office 2003 profesional edition)

Gracias de antemano
Cristian
 

Leer las respuestas

#1 Héctor Miguel
07/07/2007 - 01:40 | Informe spam
hola, Cristian !

Resulta que probando instrucciones borre unos controles de la barra de herramientas y ahora no se como restaurarlos...
... donde puedo encontrar alguna lista de los indices de los controles para restaurarlos y tenerlos para futuras referencias?



=> [articulo de traduccion automatica] http://support.microsoft.com/kb/159466
[o en su version original en ingles] http://support.microsoft.com/kb/159466/en

los ID's de los controles son +/- los mismos para las versiones 97 a 2003
[aunque existen ligeras modificaciones/mejoras/comportamientos/... a partir de la version 2002]

me facilitaron esta instruccion:
Application.CommandBars("File").Controls.Add Type:=msoControlButton, ID:t8, Before:=5
esa es para "guardar como" y me faltan todos los demas que comento arriba.



=> otra forma pudiera ser *restaurar* [todas] las barras de menus y herramientas
OJO: [obviamente] se pierde toda personalizacion que se hubiera hecho a las barras :-(( [p.e.]

Dim Barra As CommandBar
For Each Barra In Application.CommandBars
If Barra.BuiltIn Then Barra.Restore
Next

=> *efecto* similar obtienes si borras el archivo que guarda la configuracion de barras y herramientas
[busca donde se localiza el archivo <usuario8>.xlb /'97, excel.xlb /2k, excel10.xlb /2002, excel11.xlb /2003]
eliminalo [obviamente, estando cerrado excel]
la siguiente vez que abres excel, las barras de menus y comandos seran las de *por omision* ;)

por esto es que te comentaba lo de: "si vas a *manipular* las barras... sobre todo a otros usuarios/equipos/..." <\°|°/>

saludos,
hector.

Preguntas similares