Three-pixel rule around a slide

  • Thread starter Thread starter Rick Altman
  • Start date Start date
R

Rick Altman

Is there a string of VBA code that I could run that would simple draw a
rectangle around the perimeter of a slide, black outline, three pixels of
width? If so, I would like to ultimately use this in V03, V07, on a normal
slide, and on a slide master. Thanks...




RA
 
This should do that Rick

Sub rick()
With ActiveWindow.View.Slide
With .Shapes.AddShape(msoShapeRectangle, 0, 0, _
ActivePresentation.PageSetup.SlideWidth, _
ActivePresentation.PageSetup.SlideHeight)
.Line.ForeColor.RGB = RGB(0, 0, 0)
.Line.Weight = 3
.Fill.Visible = msoFalse
End With
End With
End Sub
--

john ATSIGN PPTAlchemy.co.uk
Custom vba coding and PPT Makeovers
Free PPT Hints, Tips and Tutorials
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html
 
John,

I would have called the macro......

Sub the_rick_trick()

End Sub!

<vbg>

--
Regards,
Glen Millar
Microsoft PPT MVP

Tutorials and PowerPoint animations at
the original www.pptworkbench.com
glen at pptworkbench dot com
------------------------------------------
 
Many thanks, John -- I have also taken Glen's advice and renamed it
accordingly... <g>

Now my question is: How do I position this script in such a way that it is
available across the application, irrespective of what file I have open?

- In 2003, would I attach it to a default .pot file?

- In 2007, I have no idea what I would attach it to!



RA
 
Seeing how I have no idea what that means, I guess this is well above my pay
grade. I don't know how to write extra code or to add xml...
 
You have way too much time on your hands. For your sake, PowerPoint Live is
hereby becoming a quarterly event...



in message
 
Back
Top