Ayudante de Office

César escribió:

Hola a todos.

En el menú Ayuda, la opción 'Mostrar el Ayudante de Office' aparece
deshabilitada (en gris) y no hay manera de activarla.

¿Alguien sabe cómo hacerlo?

Gracias anticipadas.

Saludos, César.

Hola Cesar :)

En un principio es posible que no lo tengas instalado para ello:

Inicio > panel de control > agregar o quitar programas > busca ahi tu
office : [office inferior a 2003 , te pedira CD de instalacion] y dale
al boton Cambiar

Una vez te aparezca la ventana de dialogo click en mas o menos donde
dice [ agregar o quitar funciones ], y siguiente :

tilda o marca abajo de todo donde dice :

[elegir personalizacion avanzada de aplicaciones ]

y siguiente:

en esa ventana de dialogo buscas ahi :

[ Funciones compartidas de office ] y ya ahi buscas [Ayudante de office
] click en la flechita que tendras a la iquierda y click en :

[ejecutar desde mi PC ]


Boton actualizar o finalizar o continuar y ya prueba a ver si tienes
ahora visible dicho boton [Mostrar ayudante de office ]


Si ya tuvieras activada [ ejecutar desde mi PC ] , tendras que darnos
mas detalles del tipo :

¿has empleado algun codigo? ¿tienes el ultimo SP para tu Offices ?
¿actualizaciones al dia? ¿Office que utilizas? etc


Comentanos ok? :-)

Saludos
Monica





Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com

Hola Mónica.

Gracias por tu atención, te cuento.

Tengo el siguiente código que da un mensaje de bienvenida, (mediante el
asistente), al abrir Excel:

Dim X As New EventClassModule
Sub Inicializar_Aplicación()
Set X.Aplicación = Application

Randomize Time
' Distintas animaciones.
Animaciones = Array(32, 4, 6, 103, 31, 116, 113, 114, 19, 115, 100, 11,
12, 101, 102, 3, 2, 1, 26, 104, 105, 106, 107, 108, 109, 110, 111, 18, 5,
112, 13, 25, 24, 23, 22)
' Asistente: El perro o el gato.
Asistentes = Array("OFFCAT.ACS", "ROCKY.ACS")

Assistant.On = True
Assistant.Visible = True
Assistant.Move xLeft:@0, yTop:@0
Assistant.Filename = Asistentes(Int((UBound(Asistentes) + 1) * Rnd))
With Assistant.NewBalloon
.Heading = " ¡ Bienvenido al curro ! "
.Text = " ¡ Ya iba siendo hora de que " & Chr(10) & " abrieras el
dichoso {cf 249}Excel{cf 0} ! " & Chr(10) & Chr(10) & " ¡ Qué se te de
bien ! "
.Button = msoButtonSetOK
.Mode = msoModeModal
.Animation = Animaciones(Int((UBound(Animaciones) + 1) * Rnd))
.Show
End With

Assistant.Visible = False
Assistant.On = False
End Sub

Siempre había funcionado sin problemas pero ahora a fallado y parece que ha
desinstalado el asistente ¿?

¿Alguna idea?

Saludos, César.

"Tux" wrote:

César escribió:
> Hola a todos.
>
> En el menú Ayuda, la opción 'Mostrar el Ayudante de Office' aparece
> deshabilitada (en gris) y no hay manera de activarla.
>
> ¿Alguien sabe cómo hacerlo?
>
> Gracias anticipadas.
>
> Saludos, César.

Hola Cesar :)

En un principio es posible que no lo tengas instalado para ello:

Inicio > panel de control > agregar o quitar programas > busca ahi tu
office : [office inferior a 2003 , te pedira CD de instalacion] y dale
al boton Cambiar

Una vez te aparezca la ventana de dialogo click en mas o menos donde
dice [ agregar o quitar funciones ], y siguiente :

tilda o marca abajo de todo donde dice :

[elegir personalizacion avanzada de aplicaciones ]

y siguiente:

en esa ventana de dialogo buscas ahi :

[ Funciones compartidas de office ] y ya ahi buscas [Ayudante de office
] click en la flechita que tendras a la iquierda y click en :

[ejecutar desde mi PC ]


Boton actualizar o finalizar o continuar y ya prueba a ver si tienes
ahora visible dicho boton [Mostrar ayudante de office ]


Si ya tuvieras activada [ ejecutar desde mi PC ] , tendras que darnos
mas detalles del tipo :

¿has empleado algun codigo? ¿tienes el ultimo SP para tu Offices ?
¿actualizaciones al dia? ¿Office que utilizas? etc


Comentanos ok? :-)

Saludos
Monica





Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com

César escribió:

Hola Mónica.

Gracias por tu atención, te cuento.

Tengo el siguiente código que da un mensaje de bienvenida, (mediante el
asistente), al abrir Excel:

Dim X As New EventClassModule
Sub Inicializar_Aplicación()
Set X.Aplicación = Application

Randomize Time
' Distintas animaciones.
Animaciones = Array(32, 4, 6, 103, 31, 116, 113, 114, 19, 115, 100, 11,
12, 101, 102, 3, 2, 1, 26, 104, 105, 106, 107, 108, 109, 110, 111, 18, 5,
112, 13, 25, 24, 23, 22)
' Asistente: El perro o el gato.
Asistentes = Array("OFFCAT.ACS", "ROCKY.ACS")

Assistant.On = True
Assistant.Visible = True
Assistant.Move xLeft:@0, yTop:@0
Assistant.Filename = Asistentes(Int((UBound(Asistentes) + 1) * Rnd))
With Assistant.NewBalloon
.Heading = " ¡ Bienvenido al curro ! "
.Text = " ¡ Ya iba siendo hora de que " & Chr(10) & " abrieras el
dichoso {cf 249}Excel{cf 0} ! " & Chr(10) & Chr(10) & " ¡ Qué se te de
bien ! "
.Button = msoButtonSetOK
.Mode = msoModeModal
.Animation = Animaciones(Int((UBound(Animaciones) + 1) * Rnd))
.Show
End With

Assistant.Visible = False
Assistant.On = False
End Sub

Siempre había funcionado sin problemas pero ahora a fallado y parece que ha
desinstalado el asistente ¿?

¿Alguna idea?

Hola Cesar :-)

Bien esta muy chuli el codigo :) , pues lo he estado probando y si da
error cuando cierras completamente el asistente osea se cuando lo
desactivas por completo, cuando ya le has dado varias veces a cerrar el
asistente te dice que :


"Ya me he ocultado varias veces ¿desea ocultarme de nuevo o desactivarme
permanentemente? "

[el propio asistente te pide que lo ocultes o lo desactives por
completo o cambiar otras opciones ] si le das desactivar por completo,
el codigo da error en la siguiente linea cuando lo vuelves a ejecutar:

Assistant.Filename = asistentes(Int((UBound(asistentes) + 1) * Rnd))

tambien da error cuando ejecutas varias veces el codigo :-\ ¿? diciendo
que no encuentra el ayudante asociado a la seleccion

Bien yo he solucionado esto gestionando el error simplemente poniendo :

[ On error resume next ] encima de la linea que marcaba error

Quedando asi :



On Error Resume Next

Assistant.Filename = asistentes(Int((UBound(asistentes) + 1) * Rnd))

Luego continuamos con el tema de que nos muestre o nos habilite el boton :

[ Mostrar el ayudante de office ]

es posible que haya algo mas en el modulo de clase que haya desactivado
o inhabilitado ese boton, no obstante vamos a probar a ver ok? :-)

Inserta un modulo :

Menu > insertar modulo :

en el pon lo siguiente:

'`[]

Sub prueba()

Assistant.On = False
If MsgBox("habilitar asistente?", _
vbYesNo) = vbYes Then
Assistant.On = True
Assistant.Visible = True
Assistant.Animation = _
msoAnimationGetAttentionMajor
End If

End Sub

'[]

Con ese codigo llamamos al asistente si con ese codigo no te marca error
, es que los asistentes estan correctos :-)

Y si estan correctos, solo nos quedaria habilitar el boton asi:

OJO que donde digo Controls(2) , es el la posicion que ocupa [mostrar el
ayudante de office ] en la ayuda de excel, en mi caso esta el segundo en
tu caso, tendras que variar el numero [2] por el lugar que ocupe ok? :)


Sub Prueba3()

Application.CommandBars("Help").Controls(2).Enabled = True


End Sub


Comentanos ok? :)

Saludos
Monica





Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com

Hola Mónica.

Gracias de nuevo por tu atención.

He vuelto a registrar el Excel ("C:\Archivos de programa\Microsoft
Office\OFFICE11\excel.exe" /regserver) y parece que de nuevo funciona.

De todos modos incluiré un On Error Resume Next por si acaso...

Saludos, César

"Tux" wrote:

César escribió:
> Hola Mónica.
>
> Gracias por tu atención, te cuento.
>
> Tengo el siguiente código que da un mensaje de bienvenida, (mediante el
> asistente), al abrir Excel:
>
> Dim X As New EventClassModule
> Sub Inicializar_Aplicación()
> Set X.Aplicación = Application
>
> Randomize Time
> ' Distintas animaciones.
> Animaciones = Array(32, 4, 6, 103, 31, 116, 113, 114, 19, 115, 100, 11,
> 12, 101, 102, 3, 2, 1, 26, 104, 105, 106, 107, 108, 109, 110, 111, 18, 5,
> 112, 13, 25, 24, 23, 22)
> ' Asistente: El perro o el gato.
> Asistentes = Array("OFFCAT.ACS", "ROCKY.ACS")
>
> Assistant.On = True
> Assistant.Visible = True
> Assistant.Move xLeft:@0, yTop:@0
> Assistant.Filename = Asistentes(Int((UBound(Asistentes) + 1) * Rnd))
> With Assistant.NewBalloon
> .Heading = " ¡ Bienvenido al curro ! "
> .Text = " ¡ Ya iba siendo hora de que " & Chr(10) & " abrieras el
> dichoso {cf 249}Excel{cf 0} ! " & Chr(10) & Chr(10) & " ¡ Qué se te de
> bien ! "
> .Button = msoButtonSetOK
> .Mode = msoModeModal
> .Animation = Animaciones(Int((UBound(Animaciones) + 1) * Rnd))
> .Show
> End With
>
> Assistant.Visible = False
> Assistant.On = False
> End Sub
>
> Siempre había funcionado sin problemas pero ahora a fallado y parece que ha
> desinstalado el asistente ¿?
>
> ¿Alguna idea?
>

Hola Cesar :-)

Bien esta muy chuli el codigo :) , pues lo he estado probando y si da
error cuando cierras completamente el asistente osea se cuando lo
desactivas por completo, cuando ya le has dado varias veces a cerrar el
asistente te dice que :


"Ya me he ocultado varias veces ¿desea ocultarme de nuevo o desactivarme
permanentemente? "

[el propio asistente te pide que lo ocultes o lo desactives por
completo o cambiar otras opciones ] si le das desactivar por completo,
el codigo da error en la siguiente linea cuando lo vuelves a ejecutar:

Assistant.Filename = asistentes(Int((UBound(asistentes) + 1) * Rnd))

tambien da error cuando ejecutas varias veces el codigo :-\ ¿? diciendo
que no encuentra el ayudante asociado a la seleccion

Bien yo he solucionado esto gestionando el error simplemente poniendo :

[ On error resume next ] encima de la linea que marcaba error

Quedando asi :



On Error Resume Next

Assistant.Filename = asistentes(Int((UBound(asistentes) + 1) * Rnd))

Luego continuamos con el tema de que nos muestre o nos habilite el boton :

[ Mostrar el ayudante de office ]

es posible que haya algo mas en el modulo de clase que haya desactivado
o inhabilitado ese boton, no obstante vamos a probar a ver ok? :-)

Inserta un modulo :

Menu > insertar modulo :

en el pon lo siguiente:

'`[]

Sub prueba()

Assistant.On = False
If MsgBox("habilitar asistente?", _
vbYesNo) = vbYes Then
Assistant.On = True
Assistant.Visible = True
Assistant.Animation = _
msoAnimationGetAttentionMajor
End If

End Sub

'[]

Con ese codigo llamamos al asistente si con ese codigo no te marca error
, es que los asistentes estan correctos :-)

Y si estan correctos, solo nos quedaria habilitar el boton asi:

OJO que donde digo Controls(2) , es el la posicion que ocupa [mostrar el
ayudante de office ] en la ayuda de excel, en mi caso esta el segundo en
tu caso, tendras que variar el numero [2] por el lugar que ocupe ok? :)


Sub Prueba3()

Application.CommandBars("Help").Controls(2).Enabled = True


End Sub


Comentanos ok? :)

Saludos
Monica





Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com

César escribió:

Hola Mónica.

Gracias de nuevo por tu atención.

He vuelto a registrar el Excel ("C:\Archivos de programa\Microsoft
Office\OFFICE11\excel.exe" /regserver) y parece que de nuevo funciona.

De todos modos incluiré un On Error Resume Next por si acaso...

Saludos, César

Ok Cesar :)

Con [On Error Resume Next ] controlarias los asistentes en el caso de
que no estuvieran en el PC y asi evitarias que saltara una ventana de
aviso indicandote que que [no encuentra el ayudante asociado a la
seleccion] (que tambien se podria poner algun msgbox diciendo que los
asistentes estan tomando un cafe en estos momentos jeje! :) ) pero
bueno eso ya a gustos de uno mismo :) !!! lo extraño es que yo tenia
tanto el gato como el perro apareciendo con distintas animaciones, pero
lo extraño es que me daba error de que no estaban :-? no se, cosas raras
que pasan :)

Lo dicho gracias a ti por el feed-back ;-) !!!

Saludos
Monica






Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com