Powerpoint 2007 format shapes

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I'd like to create a rectangle with a known amount of ease (i.e. rounded) on
the corners. I need to know the exact amount of ease so that I can apply the
same effect to a concentric rectangle of slightly smaller size. Just as done
in the "Aspect" design theme. Does anyone know if this possible? It seems
like this should be under right-click "format shape" but it's not.
 
A drawing program (Illustrator, Freehand, CorelDraw, etc.) would be more
accurate for this task as most allow you to adjust a numerical setting for
corner radius. You should also be able to interpolate (automatically create
concentric rectangles) between the largest and smallest shapes.

That said, in PowerPoint you can adjust the corner radius using the yellow
diamond adjustment handle. It's a visual adjustment, there aren't any
numerical settings to edit. Make separate adjustments to each concentric
rectangle.

Best wishes,

Julie Terberg
MS PPT MVP
www.terbergdesign.com
 
JPeterman said:
I'd like to create a rectangle with a known amount of ease (i.e. rounded) on
the corners. I need to know the exact amount of ease so that I can apply the
same effect to a concentric rectangle of slightly smaller size. Just as done
in the "Aspect" design theme. Does anyone know if this possible? It seems
like this should be under right-click "format shape" but it's not.
Click to expand...

You can do this with a quickie little VBA macro:

Select both and run this:

Sub RoundedShoulders()
With ActiveWindow.Selection.ShapeRange
.Item(2).Adjustments.Item(1) = _
.Item(1).Adjustments.Item(1)
End with
End Sub

But as long as you're gonna mess with vba, let it do more of the lifting.
Draw the first shape then run this while it's selected. This dupes it, offsets
it and rounds it to match:

Sub RoundMyShoulders()

Dim oSh As Shape
Dim sngOffset As Single

' This controls how much smaller the "inset" shape will be all around
sngOffset = 12 ' points

With ActiveWindow.Selection.ShapeRange(1)

' Make a copy of the shape
' smaller than original by offset amount and centered atop it
Set oSh = .Duplicate(1)
oSh.Left = .Left + sngOffset
oSh.Width = .Width - (sngOffset * 2)
oSh.Top = .Top + sngOffset
oSh.Height = .Height - (sngOffset * 2)

oSh.Adjustments.Item(1) = .Adjustments.Item(1)

End With

End Sub
 
A drawing program (Illustrator, Freehand, CorelDraw, etc.) would be more
accurate for this task as most allow you to adjust a numerical setting for
corner radius.
Click to expand...

O ye of little faith and less VBA.

Tsk.
 
You tsk'd me? C'mon - do I deserve that?

VBA schmeebeeyea -- to much work in this case for such an easy visual
adjustment.
 
You tsk'd me? C'mon - do I deserve that?

VBA schmeebeeyea
Click to expand...

schmeebeyea? Does poor VBA deserve THAT?

-- to much work in this case for such an easy visual
adjustment.
Click to expand...

For one or two, sure.

What if OP's got fifty or so to make?

I'm adding a little feature to ShapeStyles for a guy who had an unusual feature
request that'd have been solved with a free addin we have, but he came back
with "Sure, that's fine for one or two. I've got sixty or seventy in one
presentation alone."

Anyhow, now we've got two ways of doing it.
 
Your solution is much more accurate :)

From now on, I'll be sure to mention VBA as a possibility.

JT
 
Your solution is much more accurate :)

From now on, I'll be sure to mention VBA as a possibility.
Click to expand...

Or wait for one of us VBAGeeks to pipe up with it. <g>
You *know* we will.
 
Thank you for the suggestions. I can do it easy in corelDraw. I'll give the
macro a try as well...
 
Back
Top