Three-pixel rule around a slide

[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

 

[John Wilson]

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

 

[Glen Millar]

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
------------------------------------------

 

[Rick Altman]

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

 

[John Wilson]

You would need to write extra code in 2003 to create an addin. This would
also work in 2007 OR you coulld add xml to add it to the ribbon.

John
--

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

 

[Rick Altman]

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...

 

[Rick Altman]

You have way too much time on your hands. For your sake, PowerPoint Live is
hereby becoming a quarterly event...



in message