This is a guest post by Chirayu, a member of Chandoo.org forum.
Foreword
I mainly write VBA code in Excel. I am in no means a PowerPoint VBA coder. It’s just that once you understand one type of VBA code it’s simple enough to do a bit of research & figure out the rest through trial and error.
This guide was created because of the question posted here which intrigued me & I drafted up a sample file for the same.
Animating charts in Power Point
Animating Charts in PowerPoint cannot be done without the help of 3rd party software’s that create a flash file of the chart & embed it into the presentation.
However there is a workaround for this. Save your chart as multiple images & insert them (overlapping on top of each other). Use VBA on Developer tab Controls such as Combo Box, Option Button, Check Box etc. to “Bring To Front”” the corresponding image. Thus giving the illusion of an Animated Chart in PowerPoint.
This guide will teach you how to animate the charts, using the three Developer tab Controls that were mentioned before. The code & functionality only works in Slide Show Mode. File must be saved as PowerPoint Macro-Enabled Presentation (*.pptm)
First a quick demo of the chart:
We are going to build this.
How to Add Developer tab?
- Click on the office button / file menu at the top left in PowerPoint
- Go to Power Point options
- Tick the Show developer tab in the ribbon option in the popup menu
- If you are using PP 2010 or above, go to “Customize ribbon” tab and check the “Developer” ribbon to enable it.
- Close the Power Point options window.
How to add selection pane?
In order to name the chart pictures, we need to use selection pane. You can enable this by
In Office 2013 or above:
- Go to Home > Select and click on Selection Pane.
In Office 2010 or 2007:
- Go to Power Point Options
- Click on Customize
- From left hand side, choose “All commands”
- Scroll down and select “Selection Pane”
- Add this to the quick access toolbar
- Now selection pane will be available on Quick Access Toolbar of PP.
How to Insert & Rename the Developer tab Controls?
- Go to the Developer tab
- To insert a control, simply click on the one you want & then a + cursor should appear
- Use this to drag & create the Control you chose
- As an example for renaming the Control let’s add an Option Button. Which will look like this:
- To rename this to Q1, right click it & select properties
- Then change name & caption as you want.
How to Insert & Rename Images?
The reason you need to rename the images is:
- Easier for identifying chart images when they need to be updated in future
- Uniform VBA code that does not need alteration as all images having same naming convention as that listed in the VBA code
To insert an image:
- Click on the Insert tab and click on Picture
- Then browse to the image you want & click on it & then click OK. Repeat this step if you are creating an animated graph.
- To rename these pictures we just click on the Selection Pane button we added earlier. This will show us all the images & their names in the PowerPoint slide you are on. We can then rename these images to whatever we want. I chose Pic1, Pic2, Pic3, Pic4 as the Chart has a Quarterly data.
- Note that when you are creating dynamic charts, the images will need to be of the same size & must overlap each other. Otherwise it won’t look like a dynamic chart, as it will still do all the work but look out of sync. Example below of Quarterly chart overlap, where Q1, Q2, Q3, Q4 have been placed on top of each other.
VBA code to animate the chart
This VBA code will mainly be used when we have the overlapping image scenario as all we are doing is bringing the image to the front.
The VBA code will also go in the same slide as where the Option Buttons were added.
Since Q1, Q2, Q3, Q4 buttons are in Sheet1. VBA code will be pasted in Sheet1.
- To open the VBA screen Click on the Developer tab & & then on the left hand side menu of the popup
- Write the below code in the white area that shows up
Private Sub OptionButton1_Click()
ActivePresentation.Slides(1).Shapes("Pic1").ZOrder msoBringToFront
End Sub
Private Sub OptionButton2_Click()
ActivePresentation.Slides(1).Shapes("Pic2").ZOrder msoBringToFront
End Sub
Private Sub OptionButton3_Click()
ActivePresentation.Slides(1).Shapes("Pic3").ZOrder msoBringToFront
End Sub
Private Sub OptionButton4_Click()
ActivePresentation.Slides(1).Shapes("Pic4").ZOrder msoBringToFront
End Sub
How this code works?
OptionButton1_Click: Means run the macro when the button is clickedActivePresentation: Means the current PowerPoint file you are using.Slides(1): Means the first slide of that file.Shapes("Pic1"): Means the shape you are referring to. Images are also considered as shapes and as you remember Pic1 is actually the name given to the image of Q1 for the Dynamic graph.ZOrder msoBringToFront: Means bring the shape to the front
Download the Example Presentation
Click here to download the animated charts power point presentation. Play with the animations in slides 2 & 3 to learn more. Examine the VBA code by using Developer ribbon > VBA.
Summary
As you can see, it’s not that difficult to animate charts in PowerPoint. It just requires a workaround in order to do so. I have included few more examples in the downloadable presentation. Check them out and learn more. I hope that this guide is useful to you in animating your PowerPoint files.
Thank you Chirayu
Thank you Chirayu for sharing this awesome technique with us. I really enjoyed playing with the animated charts file.
If you enjoyed this post, Please say thanks to Chirayu.
Want more animated & interactive charts?
If you want to build interactive & animated charts using Excel, check out below examples & case studies:
- “How Trump happened” making animated chart in Excel
- How to create animated charts in Excel – podcast
- Fourth of July fireworks in Excel
- Journey of hurricane Sandy – Interactive Excel chart
20 Responses to “Untrimmable Spaces – Excel Formula”
Hi Chandoo,
First of all, HAPPY NEW YEAR!!! Wish you and your family another fruitful year ahead.
To answer your question: Power Query is the best way to trim. 🙂
Btw, if Power Query is not available, then formula would absolutely do... but did you forget to mention also Char 32?
One more question: Is the trailing minus meant to be a negative number? Maybe only the sender knows... 🙂
Cheers,
I just see your PQ way, it is amazing, I think it is the most simple way.
No idea how it did it?
I know these spaces can be a real pain but these days I advise Excel users to learn and use Flash Fill and that will learn what to do pretty quickly.
Highlight range to be cleaned. Then, in Replace, hold down the Alt key and type 0160. Replace with nothing.
I accomplished this by writing a macro to go through all the possible unprintable characters. Looped through the range.
@Steve
Brute force works just as well, its just slower
I use a different method here. First, I will copy the data from Excel and paste it in a notepad. In Notepad, I will do a Find Blanks (Space " ") and Replace (Empty) with nothing.
Then you can copy the data from Notepad and paste it back to Excel which will be a perfect number as you desire.
But Thanks for the formula. Its probably the 2nd out of 8 tricks as Chandoo mentioned. Waiting for the rest among 8 from other users 🙂
Hi....
You don't always need notepad for that. I use the Find/Replace is Excel works just fine.
I don't understand the x's. Why weren't they removed in the formula? Or are they part of some sort of numeric formatting that I'm not familiar with? I saw how you handled the non-breaking spaces and the dashes, but am confused about what role the x's played in all this.
Thanks!
Hi Andrew ,
The xs have been used solely to demarcate the actual data text ; thus , without the x in place at the end of text , as in :
x 4,124,500.00 x
it would be impossible to know that there are unwanted trailing characters , in this case , after the last 0.
These xs are not part of the original data text , nor are they used in the formulae ; they are put in only so that readers can visualize the individual items of data as they are in practice. Think of them as imaginary delimiters.
Oh, that makes sense! Thank you for the explanation. I had a feeling it was something along those lines.
You can type this character using the Keys Alt+0160.
Very useful to replace this Character using Find and Select resource.
For many years, my jobs have included ETL tasks and I built this macro to help long, long ago. I tweak it every now and again. Many co-workers, past and present, have it wired to a button on their toolbar.
Sub Clean_and_Trim()
'CAUTION: Strips leading zeroes -- do not use on zipcodes, etc.
If Application.Calculation = xlCalculationAutomatic Then
Application.Calculation = xlCalculationManual
Revert = 1
ElseIf Application.Calculation = xlCalculationManual Then
Revert = 0
End If
For Each Cell In Selection
For x = Len(Cell.Value) To 1 Step -1
If Asc(Mid(Cell.Value, x, 1)) = 160 Then
Cell.Replace What:=Chr(160), Replacement:=" ", LookAt:=xlPart, MatchCase:=True
End If
If Asc(Mid(Cell.Value, x, 1)) = 32 Then
Cell.Replace What:=Chr(32), Replacement:=" ", LookAt:=xlPart, MatchCase:=True
End If
Next x
If Cell.Value "" Then
Cell.Value = Application.Clean(Application.Trim(Cell.Value))
End If
Next
If Revert = 1 Then
Application.Calculation = xlCalculationAutomatic
ElseIf Revert = 0 Then
Application.Calculation = xlCalculationManual
End If
End Sub
This is awesome! What if you have several characters you need to have removed? What would be the easiest way as I can imagine there are several ways.?
# - 35
$ - 36
- 62
/ - 47
, - 44
. - 46
" - 34
: - 58
This is typical case of a Fitbit data export to Csv file. Each number has CHAR160 as thousand separator.. how smart Fitbit, thank you 😉
By the way, i prefer to copy the character, and use find and replace.
Sometimes it happens if you copy a table from outlook and paste it in excel. When you apply formula on those cells you will get error. What i use to do is
copy one character that looks like space,
select the entire range,
go to Find and replace,
Paste the copied character in Find option
Leave the replace option unfilled..
click on replace all..
All the errors shall be converted in to proper values..
Process looks lengthier.. but it is one of the simplest method
If Clean, Trim, and Substitute, or Find and Replace does not complete the job, I usually enter a value of 1 in an empty cell. Copy the Value of 1, Highlight the range of text numbers, and Paste Special, Values, Multiply. This site is great!
You can use Dose for Excel Add-In that can quickly clean huge data with one click besides more than +100 new functions and features to add to your Excel to save time and effort.
https://www.zbrainsoft.com
Hi,
I have a problem in excel. The sheet attached herewith.
TABLE CONFIG 2/6
A B C D E F G H
1 WEIGHT1 43,599 WEIGH2 62500 WEIGHT3 77000 WEIGHT4 66,500
2 DEDUCTION1 15,000 DEDUCTION1 15,000 TEMP 0 DEDUCTION2 11,005
3 RESULT 58,599 RESULT-1 77,500 RESULT-2 77,000 RESULT-3 77,505
4 RESULT SUBSTRACT 0 0 0
5 REQUIRED VALUE 77,500 77,000 77,505
Note: 1- RESULT (58599) IS TO BE DEDUCTION EITHER FROM D4 OR F4 OR H4 WHICHEVER IS MOST
LEAST CELL AMONG RESULT-1 OR RESULT-2 OR RESULT 3.
2-HENCE, RESULT VALUE $B$3 IS TO BE PRESENTED ON CELL EITHER D4 OR F4 OR H4 WHICHER IS
MOST LEAST VALUE
3-FORMULA =IF(E8<H8,$B$9,IF(E8<J8,$B$9,IF(H8<J8,$B$9,IF(H8<E8,$B$9,IF(J8<H8,$B$9))))))
CREATED ON CELL D4,F4 & H4 DID NOT WORK.
PLS FOR YOUR HELP.
THANK YOU
@R
Why not ask the question in the Chandoo.org Forums
https://chandoo.org/forum/
You can attach a file there