How to add a border to a picture object

[Jim Gordon MVP]

Does anyone know? I had this working but can't find my sample.

I imagine it would go something like this, but the following doesn't work:

Set oPicture = ActiveWindow.Selection.ShapeRange
With oPicture
..Line.Style = msoLineThinThin
End With

-Jim

 

[Steve Rindsberg]

Does anyone know? I had this working but can't find my sample.

I imagine it would go something like this, but the following doesn't work:

Set oPicture = ActiveWindow.Selection.ShapeRange
With oPicture
..Line.Style = msoLineThinThin
End With

With ActiveWindow.Selection.ShapeRange
.Line.ForeColor.SchemeColor = ppFill
' or
.Line.ForeColor.RGB = RGB(1, 2, 3)
.Line.Visible = msoTrue
.Line.Weight = 6#
.Line.Style = msoLineSingle
End With


================================================
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

 

[Jim Gordon MVP]

Yummy! Thanks, Steve.

 

[Steve Rindsberg]

Yummy! Thanks, Steve.

<g>

Reminder: if you've got VPC and a windows version of PPT installed, a couple
seconds with the macro recorder will often save hours of making forehead shaped
dents in your Mac desktop. ;-)


================================================
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

 

[Jim Gordon MVP]

The recorder in PPT 2003 gave me something that would not run on my Mac.
It used something not in the dictionary (Sorry, don't remember which
one it was).

-Jim

 

[Steve Rindsberg]

The recorder in PPT 2003 gave me something that would not run on my Mac.
It used something not in the dictionary (Sorry, don't remember which
one it was).

After beating on it (or getting beaten by it) for a while, you develop an
instinct for what it'll do right and what it'll hurt you with.

The bit I sent was also 99% macro recorded, just cleaned up a bit for human
consumption.

Go figure, huh?

================================================
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================