Un video vale mas que mil imagenes

!!! Hola !!!


Hoy vamos a incrustar un video de youtube dentro de una hoja de Excel.

Lograr esto no es complicado. Puedes conseguir resultados profesionales si  le agregas informacion complementaria concerniente al video y un poco de tu buen gusto al diseño.


Requisitos
Solo el link del video de youtube y por supuesto, una conexion a internet.


Paso No 1.
Insertar el  control ActiveX llamado "Shockware Flash Object" en una de las hojas del libro de trabajo en cuestion.

No te preocupes si en vez de la ficha "Programador" tu pantalla muestra "Desarrollador" son nombres diferentes para la misma ficha en diferentes versiones de Excel.
Como? no aparece la ficha programador en tu cinta de opciones? En este caso deberas agregarla. Puedes esperar unos dias a que haga una entrada en el blog explicando como se hace esto o simplemente googlea "Mostrar la ficha programador en Excel", es un procedimiento muy sencillo.

Como se observa en la imagen, no aparece el control ActiveX llamado "Shockware Flash Object", seguramente tambien te pasa lo mismo (lo que sucede es que es un control que no se usa mucho, por eso no esta en la lista. Debes hacer click en la ultima opcion "Mas controles".
Busca en la lista el control "Shockware Flash Object" - se muestran en orden alfabetico. Boton aceptar y listo.

No es que el control vaya a aparecer en el listado de controles. El puntero del mouse mostrara una pequeña cruz que te permitira hacer la insercion del control con un simple click en la hoja de trabajo:

Paso No 2.
Invocar la ventana de propiedades del control

.















Ubica la propiedad Movie dentro de la ventana de propiedades, para lograr esto, debes:
2.a Antes de seleccionar el control asegurate que se encuentre en modo diseño (ver imagen del control modo diseño")
2.b Selecciona el control con el boton derecho del mouse. Debe aparecer el menu contextual. Selecciona la opcion Propiedades.
Listo, ya tienes la ventana de propiedades en la pantalla.

Nota. Un simple F4 despues de seleccionar el control con el boton izquierdo del mouse es una forma mas simple de cargar esta ventana.


Paso No 3.
Asignar el link a la propiedad Movie
Escribe el link de youtube en el campo Movie, pero antes deberas modificarlo un poco:
Los link de youtube incluyen siempre el texto watch? deberas eliminarlo y ademas cambiar el caracter = que se encuentra mas adelante por el caracter /
Para que se entienda mejor. Tengo este link de youtube:
https://www.youtube.com/watch?v=OUeR6-RTrYA
Corresponde a una pareja de jovenes ecuatorianos llamados The Covers, son realmente buenos. Creo que lo que les falta es publicidad - aca les ayude un poquito :)

El punto es que el link que debes asignar a la propiedad Movie es
https://www.youtube.com/v/OUeR6-RTrYA

Pueden incluirse varios videos dentro de una misma pagina, sigue las mismas indicaciones para cada uno de ellos.

Eso es todo amigos

Digan Whiskey

!!! Hola !!!


Hoy les voy a enseñar como tomar fotos desde Excel.

No se preocupen si no son muy fotogenicos, el lente de la camara no apunta hacia ustedes.

Se trata de tomar una instantanea de un sector de la hoja de trabajo,


El comando camara no se encuentra disponible en la cinta de opciones, pero podemos implementarlo a la interfaz del programa para tenerlo siempre a la mano:

Paso No 1 - Agregar el comando Camara a la barra de acceso rapido de Excel

No sabes agregar un control a la barra de acceso rapido?
Simple, Usa el boton derecho del mouse sobre la barra de acceso rapido y selecciona la opcion "Personalizar la barra de acceso rapido"
Debes agregar el comando, desde el cuadro de dialogo de personalizacion de esta barra de herramientas (buscalo en la categoria comandos que no estan en la cinta de opciones).

Es importante aclarar que este paso se hace solo la primera vez - una vez que tengas el comando instalado en la barra de herramientas, solo dedicate a usarlo.

Paso No 2 - Tomar la foto
Selecciona el rango al cual piensas tomarle la foto, haz click en el boton Camara y por ultimo en el sector de la hoja de trabajo donde quieras vincular la foto.

En la imagen se observa una foto (la cual es en realidad un objeto Shape - Forma creada con el comando Camara)
Si la cantidad de articulos de la factura de la imagen fuera lo suficientemente larga, es posible que no podamos ver simultaneamente el inicio y el final de la factura. Pero la foto nos mostrara continuamente el resultado final.

Antes de terminar, un par de comentarios:
La "foto" es un elemento shape (forma) vinculado a la hoja en forma dinamica, por lo que cualquier modificacion hecha en el resultado de la factura, despues de tomada la foto, se reflejara en la forma.

Antes de que alguien me envie un mensaje diciendo que es posible observar el inicio y el final de la factura al mismo tiempo, aun cuando esta sea muy larga, simplemente inmovilizando paneles, le dire que tiene toda la razon, Imaginemos entonces que la foto almacena el resumen de varias facturas que se encuentra en otra hoja de trabajo.

Eso es todo amigos

He invertido mucho tiempo en esto

!!!! Hola !!!

Hoy queria enseñar como mostrar un reloj en la barra de estado de Excel.

Dije, queria, pero decidi no hacerlo, pues que diferencia habria entre mirar la hora del dia en la barra de estado de Excel o verla en la barra de tareas de Windows?

No tiene mucho sentido, sin embargo, no deseche la idea por completo:

Tal vez queramos saber el tiempo que llevamos trabajando en Excel con un archivo:

Ese es el tema de hoy:
Colocar un pequeño cronometro en la barra de estado que se active al momento de abrir el archivo. Esto nos informara el tiempo que llevamos trabajando en el (claro, si no te has dedicado a otras cosas despues de abrirlo).

Manos a la obra.

Paso No 1. - Codigo a escribir en el modulo de clase ThisWorkbook
Option Explicit
Public inicio As Date

Private Sub Workbook_Open()
  inicio = Now()
  cronometro
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.OnTime EarliestTime:=Now() + TimeValue("00:01:00"), procedure:="cronometro", Schedule:=False
Application.StatusBar=False

End Sub
Esto hara que al momento de abrir el libro de trabajo, se cree la variable inicio con la hora actual en invocara al cronometro.
Al final, al momento de cerrar el archivo eliminara el cronometro de la barra de estado

Paso No. 2 - Crear el procedimiento Cronometro dentro de un modulo del proyecto
Public Sub cronometro()
  Dim tiempo As Date
  Dim strTiempo As String
  
  tiempo = Now() - ThisWorkbook.inicio
  
  strTiempo = Format(tiempo, "hh:mm")
  Application.StatusBar = strTiempo
  Application.OnTime Earliesttime:=Now() + TimeValue("00:01:00"), procedure:="cronometro"
End Sub
Esto calculara cada minuto la diferencia entre el inicio y la hora actual y mostrara esta diferencia en la barra de estado.

Notas
1. Seria interesante si pudieramos detener el cronometro cuando abrimos otro archivo y reiniciarlo cuando volvemos a el (No es complicado, es cuestion de programar los eventos Activate y deactivate del libro de trabajo).
2. Seria todavia mas interesante si el cronometro pudiera acumular el tiempo de uso del archivo en todas las sesiones (un estimado del tiempo total invertido en el archivo) - Tampoco es complicado, solo basta almacenar el tiempo acumulado al cerrar el archivo y al momento de abrirlo nuevamente iniciar el cronometro con ese valor.
3. Si noto interes en este tema, podria ampliar el codigo con los 2 puntos indicados.


Glosario
Esta entrada ha servido como ejemplo para:
1. Conocer otro de los objetos de Excel: la barra de estado (StatusBar).

2. Conocer dos procedimientos de evento de Excel: Open y BeforeClose (Estos procedimientos se ejecutan automaticamente respectivamente al momento de abrir y cerrar un archivo).

3. Utilizar el metodo OnTime de Excel para ejecutar un procedimiento cada cierto tiempo.

Eso es todo amigos

Ensamblando las piezas

!!! Hola !!!

Una de las dificultades que se presentan en el proceso de aprendisaje de las caracteristicas de Excel es que se aprenden multitud de caracteristicas del programa (ya sea del manejo de la interfaz y del modelo de objetos a traves de VBA), pero no se tiene la capacidad de implementarlas en forma conjunta dentro de un proyecto.

Son como pildoras informaticas sueltas:
Como lograr que Excel "pronuncie" una frase (ver la entrada: "Que fue lo que dijo")

Como obtener numeros aleatorios (ver la entrada: "Los dados de Excel")

Como obtener el dia de la semana a la que corresponde una fecha (ver la entrada "Que dia fue ese dia")

y otras mas que encuentres en este blog u otros.

Esto es asi por que los articulos de los blogs deben ser cortos, si se quiere que sean atractivos.

Por eso me decidi a crear un proyecto que permita aplicar los conocimientos adquiridos en estas pildoras informaticas:

Vamos a crear una pequeña aplicacion que ayude a estudiar ingles - No estoy todavia muy seguro de que caracteristicas se implementaran, pero sera algo como esto:
Excel dira una frase al azar en ingles y tu deberas escribirla correctamente
(para eso crearemos una base de datos con frases)
Excel mostrara una o varias images de objetos al azar y el usuario debera escribir el nombre (o los nombres) en ingles.
Y otras mas que se me vayan ocurriendo (Acepto sugerencias)

Esto no se hace de la noche a la mañana, toma tiempo, primero hay que conseguir las imagenes jpg, crear la base de datos de frases, etc.

Por ahora les recomiendo que repasen estas entradas (revisen continuamente este articulo, por que voy a ir ampliando este listado).

Que fue lo que dijo?
Para que se familiaricen con la capacidad que tiene Excel de pronunciar frases en ingles.

Los dados de Excel
Para poder entender el proceso de generar numeros aleatorios que permitan seleccionar frases o imagenes al azar

Eso es todo, amigos

Abrir archivos de excel al compas de una cancion

!!! Hola !!!

Te gustaria que al abrir un archivo de Excel, sonara tu cancion favorita?

podrias incluso asignar a cada archivo de Excel una cancion diferente, tal vez quieras que al abrir un archivo de Excel se escuche una instruccion pregrabada respecto al uso y/o utilidad del archivo.

Voy a enseñarte como hacerlo, es facil.
Como es logico, necesitas tener un archivo mp3 en tu computadora (no creo que sea dificil).

Paso No 1.
Insertar el  control ActiveX llamado "Windows media Player" en una de las hojas del libro de trabajo en cuestion.

No te preocupes si en vez de la ficha "Programador" tu pantalla muestra "Desarrollador" son nombres diferentes para la misma ficha en diferentes versiones de Excel.
Como? no aparece la ficha programador en tu cinta de opciones? En este caso deberas agregarla. Puedes esperar unos dias a que haga una entrada en el blog explicando como se hace esto o simplemente googlea "Mostrar la ficha programador en Excel", es un procedimiento muy sencillo.

Como se observa en la imagen, no aparece el control ActiveX llamado "Windows media Player", seguramente tambien te pasa lo mismo (lo que sucede es que es un control que no se usa mucho, por eso no esta en la lista. Debes hacer click en la ultima opcion "Mas controles".
Busca en la lista el control "Windows media Player" - es de los ultimos, por que estan en orden alfabetico. Boton aceptar y listo
No es que el control vaya a aparecer en el listado de controles. El puntero del mouse mostrara una pequeña cruz que te permitira hacer la insercion del control con un simple click en la hoja de trabajo:

Hay esta el control. Realmente no importa mucho el tamaño del control, ni el sitio de la hoja donde lo colocaste - pues vamos a hacerlo invisible. (pero mas adelante)

Paso No 2.
El codigo VBA que permitira activar el control al momento de abrir el archivo

Como vez, es un codigo muy corto y sencillo. Lo importante es que se ubique en el procedimiento de evento Open del libro de trabajo, para que sea leido al momento de abrir el archivo.

Paso No 3. (Si quieres)
Vuelve invisible el control para que no estorbe tu trabajo con el archivo (solamente podras manipularlo usando codigo VBA ). Esto puedes hacerlo desde la ficha Programador:
3.1 selecciona el modo diseño si no lo esta.
3.2 selecciona el control Windows media player de la hoja de trabajo y usa el boton propiedades.
3.3 En el cuadro de dialogo propiedades cambia el valor de la propiedad Visible de True a False
Los tres pasos puedes ejecutarlos mas facilmente escribiendo en la ventana inmediato:
Worksheets("Hoja1").WindowsMediaPlayer1 .Visible=False

Paso 4 (y ultimo)
Graba el archivo con formato xlsm (habilitado para macros). Si lo dejas tipo xlsx no va a funcionar.


Eso es todo amigos