Modificar el titulo del a ventana

Listo, gracias lo probe pero no me da ningun resultado. Me meustra una
ventana con los datos que colocas pero no me cambia la barra de titulo
del libro abrierto. Seguire probando para ver que resulta, pero esa es
la idea.

Hola :)

Prueba este codigo solo a manera de ilustracion

Sub titulo()
paso = Windows(1).Caption
'paso2 = Windows(ThisWorkbook.Name).Caption
With Windows(1)
.Caption = "Hola ... ke onda"
End With
MsgBox "titulo original: " & paso & vbCr & "Nuevo: " & Windows(1).Caption
' & vbCr & paso2
Windows(1).Caption = paso
End Sub


Saludos
Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice

El verdadero buscador crece y aprende, y descubre que siempre es el
principal responsable de lo que sucede.
Jorge Bucay

La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en alguna
pared, el ignorante permanece tranquilo en el centro de la estancia.
Anatole France

Francisco, listo es mas o menos lo que necesitaba, es que habia puesto
algo mal y no me cambiana nada, ya logro cambiar el titulo, ahora solo
me falta darle una especie de movimiento o marquesina que llaman.

Gracias.

Que es para ti la barra de titulo?
El codigo que expuse cambia el display donde esta el nombre del libro activo
o bien puedes cambiarlo colocando el nombre del libro donde dice
windows(1).caption o windows(thisworkbook.fullname).caption o bien cambia
el nombre completo del libro pero sin la extension "XLS"

Puedes hacer con la siguiente idea:

for v=1 to len (variable) 'titulo de ventana
application.windows(1).caption = mid( , , ,)
next v
Mas o menos lo hago de memoria, esto lo programas para que lo haga cada
cierto tiempo.
Saludos
Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice

El verdadero buscador crece y aprende, y descubre que siempre es el
principal responsable de lo que sucede.
Jorge Bucay

La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en alguna
pared, el ignorante permanece tranquilo en el centro de la estancia.
Anatole France

Francisco Parrilla escribió:

Puedes hacer con la siguiente idea:

for v=1 to len (variable) 'titulo de ventana
application.windows(1).caption = mid( , , ,)
next v
Mas o menos lo hago de memoria, esto lo programas para que lo haga cada
cierto tiempo.
Saludos
Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice

El verdadero buscador crece y aprende, y descubre que siempre es el
principal responsable de lo que sucede.
Jorge Bucay

La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en alguna
pared, el ignorante permanece tranquilo en el centro de la estancia.
Anatole France

Hola :-)

Pues aqui he sacado esto, que quedaria una cosa asi como marquesina:
(con la base que nos ha ofrecido Francisco :-)

'-
Sub Prueba_3()

Dim MiCadena, Marquesina, i, v, n

MiCadena = " ¿que hay de nuevo amigo? jejejejejje!! :-P, :-P "

Marquesina = " " & MiCadena & " "
i = 0
While True
Application.Windows(1).Caption = Mid(Marquesina, i Mod Len(Marquesina) _
+ 1, 10)
For v = 1 To 1000000
n = n + 1
Next v
i = i + 1
Wend


End Sub

'-

Ahora probare a personalizar la tecla ESC :-)

Saludos
Monica


www.fermu.com
www.zorval.com