Making charts is one of the most common use of Excel or other spreadsheet software. But do you know a simple trick that can save you lot of time while using excel charting features?
Chart Templates or User Defined Charts
yes, using chart templates can save you a lot of time.
If you use a particular type of chart or formatting all the time, you can save all the steps involved in making the chart by using templates.
Here is a simple tutorial on using chart templates in excel.
1. Prepare your chart
First step is to to prepare a chart that you would like to save to template. The chart can be a formatted version of one of the typical excel charts or a more complex combination chart.
2. Now save the chart as a chart template
In excel 2007 you can do this by selecting the chart and going to design tab in the ribbon and clicking on “Save as template”
For earlier versions of excel, right click on the chart and select chart type and go to “custom types” tab. Select “user-defined” as the chart type and click on the Add button to add the chart to excel chart templates.
3. Use the chart templates
Next time you need to insert a chart, use the templates and save time.
In Excel 2007 use the templates option. In earlier versions, use custom types to find your already save templates.
Bonus tip: Moving Chart Templates from One Computer to Another
If you want to move all your chart templates from one computer to another, just go to My Documents \Application Data\Microsoft\Excel and copy the file XLUSRGAL to the other computer. Make sure you are not overwriting the existing XLUSRGAL file, but just add the sheets from one file to another.
If you are using Excel 2007, the chart templates are stored as *.crtx files. Just locate them and copy to target system. Usually they can be found in \AppData\Roaming\Microsoft\Templates\Charts for Vista and My Documents \Application Data\Microsoft\Templates\Charts for XP.
Free Excel Chart Templates to Get you Started
And here is a huge list of beautiful excel chart templates, around 73 of them. Download and use them free. Get even more in our excel downloads page.
This is part of our Spreadcheats series, a 30 day online excel training series for office goers and spreadsheet users. Join today.
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