Baner en Excel

04/09/2007 - 08:32 por Bart | Informe spam
Hola Grupo:

Deseo crear un baner con información cambiante tipo tablero de la bolsa de
valores, es decir que en un recuadro se deplace de derecha a izquierda una
información parametrizable. Se que se puede hacer con Flash pero busco es
hacerlo directamente en Excel para poder cambiar los mensajes según otros
datos.

Como pienso que eso no se puede hacer directamente en Excel, donde puedo
encontrar información de integrar Flash con VBA.

Gracias,

Bart Max

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
04/09/2007 - 21:16 | Informe spam
hola, Bart !

Deseo crear un baner con informacion cambiante tipo tablero de la bolsa de valores
es decir que en un recuadro se deplace de derecha a izquierda una informacion parametrizable.
Se que se puede hacer con Flash pero busco es hacerlo directamente en Excel
para poder cambiar los mensajes segun otros datos.
Como pienso que eso no se puede hacer directamente en Excel
donde puedo encontrar informacion de integrar Flash con VBA.



1) toma en cuenta que los tableros informativos [del tipo que mencionas]...
son dispositivos *dedicados* a desplegar la informacion parametrizable que se les indique

2) en excel se puede *simular* [pero tu excel quedara *dedicado* a servir de banner mientras el codigo se ejecuta] :-((

a) inserta un cuadro de texto [desde la barra de herramientas de dibujo] y dale *forma* [color, fuente, dimensiones, ...]
para que de cabida +/- a 25 caracteres [despues de aplicados los formatos de tu preferencia]

b) escribe el texto *deslizante/parametrizable/...* en la celda 'A1'
[p.e.]: Flash Informativo: Estas son las noticias de ultima hora… !!!

c) copia/pega las siguientes lineas en un modulo de codigo normal y despues haces pruebas con la macro...

Private Declare Sub Retardo Lib "kernel32" Alias "Sleep" (ByVal Milisegundos As Long)
Sub Escribiendo_en_TextBox()
Dim Nuevo As Byte, Salto As Byte, Mensaje As String
With ActiveSheet.Shapes("cuadro de texto 1").TextFrame.Characters
.Text = "": Salto = 1
For Nuevo = 1 To Len([a1])
Mensaje = Mensaje & Mid([a1], Nuevo, 1)
If Len(Mensaje) > 25 Then Salto = Salto + 1
.Text = Mid(Mensaje, Salto)
DoEvents
Retardo 100 ' si pones 1000 es el equivalente de 1 segundo [mil milisegundos] '
Next
End With
End Sub

saludos,
hector.
Respuesta Responder a este mensaje
#2 Bart
05/09/2007 - 17:04 | Informe spam
Hola Hector Miguel:

Como para variar "Fenómeno". Nuevamente mil gracias.

Saludos,

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