#1
|
|||
|
|||
Help - Need Macro to Apply Blur
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.
|
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
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 |
#4
|
|||
|
|||
thank you I will give it a try!
|
#5
|
|||
|
|||
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!! |
#6
|
|||
|
|||
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?
|
#7
|
|||
|
|||
Have a try on this Mac site
http://answers.microsoft.com/en-us/m...nt?tab=Threads |
Tags |
blur macro |
|
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 |