Help

SSL · #1 07-24-2015, 03:57 AM

I need a macro that will add the Blur Artistic Filter with Radius of 10 to all slides in my presentation. Every slide consists of a single picture that needs to be "blurred". Thank you in advance for your support.

SSL · #2 07-24-2015, 04:01 AM

I have tried editing other macros using the VB editor but I don't know the "codes" that I think will probably look something like the below (just a guess but does not work):
With .PictureFormat
.ActiveFilter = msoBlur
.BlurRadius = 10

JohnWilson · #3 07-24-2015, 05:24 AM

No idea if this works on a Mac but on a PC it should be

Code:

Sub blurrer()
Dim opic As Shape
Set opic = ActiveWindow.Selection.ShapeRange(1)
opic.F1ll.PictureEffects.Insert (msoEffectBlur)
opic.Fill.PictureEffects(1).EffectParameters(1).Value = 20
End Sub

SSL · #4 07-24-2015, 06:27 AM

thank you I will give it a try!

SSL · #5 07-24-2015, 06:45 AM

John, It did not work on the MAC so I modified it to the below and I get a compile error because it does not like the .Fill.PicturreEffects (says Method or Data member not found)

Sub Blur()
Dim oSl As Slide
For Each oSl In ActivePresentation.Slides
With oSl.Shapes(1)
With .PictureFormat
.Fill.PictureEffects = msoEffectBlur
.Fill.PictureEffects(1).EffectParamers(1) = 10
End With
End With
Next
End Sub

Anyone with MAC input please advise!!

SSL · #6 07-26-2015, 08:28 AM

Does anyone know where to find a list of PowerPoint picture format variables that can be set in a macro and how they are specifically named?

JohnWilson · #7 07-26-2015, 08:59 AM

Have a try on this Mac site
http://answers.microsoft.com/en-us/m...nt?tab=Threads

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Rule to apply to all domains	jaarons	Outlook	1	05-25-2015 02:41 PM
Macro to apply style to selected tables	ubns	Word	1	08-02-2012 04:09 AM
Apply filter with VBA	bobsawyer7	Outlook	0	03-12-2012 04:02 AM
Pasting image captured with a java program 'on to clipboard' into MSWord 2007 is blur	tarunkumarreddy	Word	0	02-03-2012 09:42 PM
Rules won't apply	RicWCO	Outlook	1	01-13-2012 10:13 AM