INFO-TECH

Dear All,

Many times we come across situation in which we need to format 100's of slides withing specified amount of time, and doing it manually is really not a smart way thats where macro comes in picture.

Below is sample macro I have written for formatting active slides :

I hope you know how to run macros ;) else you can always take help from Google!!!!!!


Dim myvar As Slide
Dim myvar1 As Shape


For Each myvar In ActivePresentation.Slides
For Each myvar1 In myvar.Shapes


With myvar1
.Left = 50
.Top = 71
.LockAspectRatio = msoFalse
.Height = 410
.Width = 624
.Line.Visible = msoTrue
.Line.ForeColor.RGB = RGB(255, 0, 0)
.Line.Weight = 0.5

 
End With

Next
Next


Above macro will simple change formatting for all active slides ;)

Hope you enjoyed!!

Best Regards,
Girish