?
Solved

Embed several Windows Media Player controls in one Word doc

Posted on 2009-07-08
1
Medium Priority
?
647 Views
Last Modified: 2012-05-07
How must I modify the attached code to make it work for 2 embedded players? I think the players must be assigned names to which the code can refer but I don't know if "WindowsMediaPlayer1" may be renamed... Perhaps with a tag or a label?

Penelope
Private Sub Document_Open()
 
Dim strName As String
 
strName = strPATHNAME & "all.wmv"  'your file name
 
WindowsMediaPlayer1.windowlessVideo = True
WindowsMediaPlayer1.settings.autoStart = False   'stop it from automatically starting on load
 
WindowsMediaPlayer1.URL = strName   'add the path to your file
WindowsMediaPlayer1.settings.volume = 100      'here you can change initial volume
WindowsMediaPlayer1.settings.setMode "loop", False     'stop it from looping
 
End Sub

Open in new window

0
Comment
Question by:penelope112358
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 

Accepted Solution

by:
penelope112358 earned 0 total points
ID: 24802520
"WindowsMediaPlayer2" will be the default name of the next Media Player Control. It can be changed in the controls properties.  

Penelope
Private Sub Document_Open()
 
Dim strName As String
 
strName = "C:\Delme\clock.avi"  'your file name
 
WindowsMediaPlayer1.windowlessVideo = True
WindowsMediaPlayer1.settings.autoStart = False   'stop it from automatically starting on load
 
WindowsMediaPlayer1.URL = strName   'add the path to your file
WindowsMediaPlayer1.settings.volume = 100      'here you can change initial volume
WindowsMediaPlayer1.settings.setMode "loop", True     'make it loop
 
 
 
 
 
strName = "C:\Delme\clock.avi"  'your file name
 
WindowsMediaPlayer2.windowlessVideo = True
WindowsMediaPlayer2.settings.autoStart = False   'stop it from automatically starting on load
 
WindowsMediaPlayer2.URL = strName   'add the path to your file
WindowsMediaPlayer2.settings.volume = 100      'here you can change initial volume
WindowsMediaPlayer2.settings.setMode "loop", True     'make it loop
 
 
 
 
End Sub

Open in new window

0

Featured Post

New benefit for Premium Members - Upgrade now!

Ready to get started with anonymous questions today? It's easy! Learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Today, still in the boom of Apple, PC's and products, nearly 50% of the computer users use Windows as graphical operating systems. If you are among those users who love windows, but are grappling to keep the system's hard drive optimized, then you s…
Ever visit a website where you spotted a really cool looking Font, yet couldn't figure out which font family it belonged to, or how to get a copy of it for your own use? This article explains the process of doing exactly that, as well as showing how…
This Micro Tutorial will demonstrate how to add subdomains to your content reports. This can be very importing in having a site with multiple subdomains.
This Micro Tutorial will demonstrate how nuggets on the Web are formatted by using Chrome Developer Tools. These tools would not only view the site's CSS but it can also modify it and save the CSS to use on your own site.
Suggested Courses
Course of the Month10 days, 17 hours left to enroll

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question