Foro de Ayuda Excel | ||
| Soluciona tus problemas con Excel |
| | |||||||
| Registrarse | Preguntas Frecuentes | Lista de Foreros | Calendario | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
| | LinkBack | Herramientas | Desplegado |
|
#11
| ||||
| ||||
| Cita:
Cita:
ES UNA PENA QUE NO TENGA UN EJEMPLO EN MANO. |
|
#12
| |||
| |||
| Despues de las brillantes participaciones de Ioyama,queda muy poco por decir asi que solo me resta retomar el ejemplo de Efasor (muy bueno por cierto,solo requiere ciertos 'retoques' para que funcione realiza los sig cambios (obviamente cambia la ruta por tu video) Código: Sub AddVideo_ST()
'Adaptado por ST
Call ActiveSheet.OLEObjects.Add(ClassType:="WMPlayer.OCX.7", Link:=False, _
DisplayAsIcon:=False, Width:=309, Height:=252.75)
With ActiveSheet.OLEObjects("WindowsMediaPlayer1")
.Activate
'.AutoLoad = False
.Object.URL = "C:\Videos\videos seg\trab alturas2.avi"
.Object.Controls.stop
MsgBox "DETENIDO"
.Object.Controls.Play
End With
End Sub 'notas: 'ver:Usar controles ActiveX en hojas de cálculo 'Las propiedades del control que no se muestran como propiedades del objeto 'OLEObject pueden establecerse si se devuelve el objeto de control real 'mediante la propiedad *Object* <--este fue el problemila
__________________ Salu2 ST |
| Herramientas | |
| Desplegado | |
| |