I included the XML for 2007, so it should work (untested) on that as well.
Thanks for sharing this Alex!
1 of 1 people found this helpful
Hi Alex, it works on 2007 as far as I've been able to tell. This is brilliant, it's saving me a ton of clicking today!
Good to know - I did create a 2007 version only as a colleague had an issue - must have been something else
I've added another button which will center every image on the slide, add animation where the images will animate automatically (no click) with a 0.5 sec delay. This is easily changeable by selecting every item on the animation pane and right-click to timing.
This is now a solution to animating images from the page shelf. Page through your chart in Tableau, saving each image off as an emf with an incremental file name (1.emf, 2.emf, 3.emf, hahaha, 4.emf,...). You can then bring all of these in one go in PPT (insert image, select all of them). They will be in order within PPT so the animate and visual order should be correct.
You will need to put this in the correct directory, disable the old add-in and add this one.
Kudos to John Wilson from vbaexpress.com forums for the new code.
EDIT: Replaced the ppam - there was an error
Tableau Ribbon.ppam.zip 10.0 KB
And for the security concious out there, this is the added code:
Dim osld As Slide
Dim oshp As Shape
Dim oeff As Effect
On Error Resume Next
Set osld = ActiveWindow.View.Slide
If Not osld Is Nothing Then
For Each oshp In osld.Shapes
If oshp.Type = msoPicture Then
Set oeff = osld.TimeLine.MainSequence.AddEffect(oshp, msoAnimEffectAppear, , msoAnimTriggerAfterPrevious)
oeff.Timing.TriggerDelayTime = 0.5
ActiveWindow.Selection.ShapeRange.Align (msoAlignCenters), RelativeTo:=True
ActiveWindow.Selection.ShapeRange.Align (msoAlignMiddles), RelativeTo:=True
This is so cool, thanks for posting Alex!
I've had to do a lot of pasting lately and created an additional option based on Alex's work, to paste the EMF into a new slide, center the EMF, and resize it to the slide size if the EMF is too big. I've attached the .pptm and .ppam files so all the code is available.
Nice job Jonathan. I like the new slide and center a lot - my original paste should probably at least center it.
The only tweak I would make is to add the new slide after the current, not at the end. I thought it wasn't working and got 20 new slides.
I did the same thing! Hey guys thanks for posting this add-in.
I like that idea too. Do you think it would be good to add the new slide, paste and center the EMF, and make the new slide active?
Also, since you're on PowerPoint 2010, have you had any issues with PowerPoint drawing the box with the red X? I'm getting it on 2007 and it seems to be a bug with the add slide function.
I think that would be the best behavior.
I have only got the red x once, worked immediately afterwards.