Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

¿como eliminar o añadir un icono en la barra de herramientas principall?

16/10/2004 - 12:36 por ET | Informe spam
Ayuda Hacer una pregunta
Quisiera hacer una macro para poder eliminar o añadir un icono en la barra
de herramientas principal.


Gracias
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Lisandro
16/10/2004 - 14:05 | Informe spam
Hola Marcianito ET!! :=) disculpa la broma..
Pues prueba con lo siguiente y modifica los botones a tu preferencia.
[Alt+F11 Menu\Insertar Modulo copias lo que esta debajo y listo]
Luego de copiado sales y yá en la hoja [Alt+F8 y ejecutas bien sea Agregar o
Eliminar]
'==>Desde aqui Agrega:
Sub Agrega_Boton()
' Agrega_Boton Macro

Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:#, Before:
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:64, Before:
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:738, Before:
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:, Before:!
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:", Before:"
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:D1, Before:#
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:)6, Before:$
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:)7, Before:%
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:3, Before:&
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:’8, Before:'
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:D3, Before:(
End Sub

'==>Desde aqui elimina:
Sub Elimina_Boton()
'
' Elimina_Boton Macro
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
End Sub

Cualquier duda comentas,
Saludos
Lisandro

"ET" escribió:

Quisiera hacer una macro para poder eliminar o añadir un icono en la barra
de herramientas principal.


Gracias



Respuesta Responder a este mensaje
#2 ET
16/10/2004 - 15:53 | Informe spam
No problem, vengo de la luna. ¿A que así se me reconoce bien? ;DDDD

Lisandro sigo teneiendo un pequeño problema, ahora me da un error de
sintaxis.

Que cariño le tengo a los errores.
"Lisandro" escribió en el mensaje
news:
Hola Marcianito ET!! :=) disculpa la broma..
Pues prueba con lo siguiente y modifica los botones a tu preferencia.
[Alt+F11 Menu\Insertar Modulo copias lo que esta debajo y listo]
Luego de copiado sales y yá en la hoja [Alt+F8 y ejecutas bien sea Agregar
o
Eliminar]
'==>Desde aqui Agrega:
Sub Agrega_Boton()
' Agrega_Boton Macro

Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:#, Before:
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:64, Before:
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:738, Before:
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:, Before:!
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:", Before:"
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:D1, Before:#
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:)6, Before:$
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:)7, Before:%
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:3, Before:&
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:’8, Before:'
Application.CommandBars("Formatting").Controls.Add
Type:=msoControlButton, _
ID:D3, Before:(
End Sub

'==>Desde aqui elimina:
Sub Elimina_Boton()
'
' Elimina_Boton Macro
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
Application.CommandBars("Formatting").Controls(18).Delete
End Sub

Cualquier duda comentas,
Saludos
Lisandro

"ET" escribió:

Quisiera hacer una macro para poder eliminar o añadir un icono en la
barra
de herramientas principal.


Gracias



Respuesta Responder a este mensaje
#3 Lisandro
16/10/2004 - 16:29 | Informe spam
Hola ET!
..Asegurate que al momento de copiar quede de esta manera en el editor de V°B

Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton,_
ID:#, Before:

y eliminar en todos los casos el comienzo de expresion >
Si tienes + problem comenta.
Saludos
Lisandro

"ET" escribió:

No problem, vengo de la luna. ¿A que así se me reconoce bien? ;DDDD

Lisandro sigo teneiendo un pequeño problema, ahora me da un error de
sintaxis.

Que cariño le tengo a los errores.
"Lisandro" escribió en el mensaje
news:
> Hola Marcianito ET!! :=) disculpa la broma..
> Pues prueba con lo siguiente y modifica los botones a tu preferencia.
> [Alt+F11 Menu\Insertar Modulo copias lo que esta debajo y listo]
> Luego de copiado sales y yá en la hoja [Alt+F8 y ejecutas bien sea Agregar
> o
> Eliminar]
> '==>Desde aqui Agrega:
> Sub Agrega_Boton()
> ' Agrega_Boton Macro
>
> Application.CommandBars("Formatting").Controls.Add
> Type:=msoControlButton, _
> ID:#, Before:
> Application.CommandBars("Formatting").Controls.Add
> Type:=msoControlButton, _
> ID:64, Before:
> Application.CommandBars("Formatting").Controls.Add
> Type:=msoControlButton, _
> ID:738, Before:
> Application.CommandBars("Formatting").Controls.Add
> Type:=msoControlButton, _
> ID:, Before:!
> Application.CommandBars("Formatting").Controls.Add
> Type:=msoControlButton, _
> ID:", Before:"
> Application.CommandBars("Formatting").Controls.Add
> Type:=msoControlButton, _
> ID:D1, Before:#
> Application.CommandBars("Formatting").Controls.Add
> Type:=msoControlButton, _
> ID:)6, Before:$
> Application.CommandBars("Formatting").Controls.Add
> Type:=msoControlButton, _
> ID:)7, Before:%
> Application.CommandBars("Formatting").Controls.Add
> Type:=msoControlButton, _
> ID:3, Before:&
> Application.CommandBars("Formatting").Controls.Add
> Type:=msoControlButton, _
> ID:’8, Before:'
> Application.CommandBars("Formatting").Controls.Add
> Type:=msoControlButton, _
> ID:D3, Before:(
> End Sub
>
> '==>Desde aqui elimina:
> Sub Elimina_Boton()
> '
> ' Elimina_Boton Macro
> Application.CommandBars("Formatting").Controls(18).Delete
> Application.CommandBars("Formatting").Controls(18).Delete
> Application.CommandBars("Formatting").Controls(18).Delete
> Application.CommandBars("Formatting").Controls(18).Delete
> Application.CommandBars("Formatting").Controls(18).Delete
> Application.CommandBars("Formatting").Controls(18).Delete
> Application.CommandBars("Formatting").Controls(18).Delete
> Application.CommandBars("Formatting").Controls(18).Delete
> Application.CommandBars("Formatting").Controls(18).Delete
> Application.CommandBars("Formatting").Controls(18).Delete
> Application.CommandBars("Formatting").Controls(18).Delete
> End Sub
>
> Cualquier duda comentas,
> Saludos
> Lisandro
>
> "ET" escribió:
>
>> Quisiera hacer una macro para poder eliminar o añadir un icono en la
>> barra
>> de herramientas principal.
>>
>>
>> Gracias
>>
>>
>>



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida