Often, while creating a complex model or dashboard, you may want to include additional training material in the workbook. So let us learn how to embed flash movies, youtube videos etc. in to Excel workbooks.
To Embed Flash Movies, Youtube Videos in to Excel, follow these steps.
Step 1: Go to Developer Tab
Go to Developer tab in excel ribbon and locate insert button. From here, select the insert button and click on “More controls”. See this illustration.
PS: If you do not have developer tab, learn how to enable it.
Step 2: Insert a Shockwave Flash Object
From the list of controls shown, select the one that says “Shockwave flash object”. Once you do that, your mouse pointer changes to + sign. Draw a rectangle to insert a flash object on to your Excel workbook.
When you finish drawing, you will see a crossed-out rectangle, like this:
Step 3: Set properties of the Flash Object
Right click on the rectangle now and select properties. Locate the property Movie and set it to the path of your Youtube video along with ?fs=1&hl=en_US in the end, like this.
Step 4: Exit Design Mode
Close the properties window. Now, from Developer tab, click on the big button that says “Design Mode” to exit design mode.
Instantly you will see the youtube video loading in the embedded flash object.
Click play to watch it.
Bonus tips:
- You can use design mode to resize the youtube video size.
- You can embed other flash movies, flash games etc. using the same technique. The path of movie can be a URL or a local computer path.
- You can also embed other types of objects like Quick Time Movies, Windows Media Player movies etc.
Gotchas You should be aware of:
- Do not save in compatibility mode. While saving the workbook, select XLSX format if you are running Excel 2007 or above. If you save the workbook in compatible mode, you may not see the videos working when you re-open it.
Download this Excel Workbook that has a Youtube Video that Explains how to Embed Youtube Videos in to Excel
That is right. I have made a youtube video explaining how to embed youtube videos in to excel. Then I embedded that youtube video in to an excel workbook 😀
Click here to download the excel workbook.
More Excel Howtos:
- Using Word-art in Excel
- How to make a birthday reminder in Excel
- How to insert currency codes & other special symbols in to Excel
- … More Excel Howtos & Excel Video Tutorials
PS: Special thanks to Manzoor for sharing this technique on our forums.
6 Responses to “Make VBA String Comparisons Case In-sensitive [Quick Tip]”
Another way to test if Target.Value equal a string constant without regard to letter casing is to use the StrCmp function...
If StrComp("yes", Target.Value, vbTextCompare) = 0 Then
' Do something
End If
That's a cool way to compare. i just converted my values to strings and used the above code to compare. worked nicely
Thanks!
In case that option just needs to be used for a single comparison, you could use
If InStr(1, "yes", Target.Value, vbTextCompare) Then
'do something
End If
as well.
Nice tip, thanks! I never even thought to think there might be an easier way.
Regarding Chronology of VB in general, the Option Compare pragma appears at the very beginning of VB, way before classes and objects arrive (with VB6 - around 2000).
Today StrComp() and InStr() function offers a more local way to compare, fully object, thus more consistent with object programming (even if VB is still interpreted).
My only question here is : "what if you want to binary compare locally with re-entering functions or concurrency (with events) ?". This will lead to a real nightmare and probably a big nasty mess to debug.
By the way, congrats for you Millions/month visits 🙂
This is nice article.
I used these examples to help my understanding. Even Instr is similar to Find but it can be case sensitive and also case insensitive.
Hope the examples below help.
Public Sub CaseSensitive2()
If InStr(1, "Look in this string", "look", vbBinaryCompare) = 0 Then
MsgBox "woops, no match"
Else
MsgBox "at least one match"
End If
End Sub
Public Sub CaseSensitive()
If InStr("Look in this string", "look") = 0 Then
MsgBox "woops, no match"
Else
MsgBox "at least one match"
End If
End Sub
Public Sub NotCaseSensitive()
'doing alot of case insensitive searching and whatnot, you can put Option Compare Text
If InStr(1, "Look in this string", "look", vbTextCompare) = 0 Then
MsgBox "woops, no match"
Else
MsgBox "at least one match"
End If
End Sub