D
Dave
I am running an addin, developed on PowerPoint 2007, on both 2007 and
2003 systems. The addin generates Rounded Rectangular Callouts. On
the 2007 system and one of the 2003 systems, the callouts appear
"normal" - a rectangfular shape with slightly rounded shoulders (which
appear to be 90 deg. parts of a circle when blown up). On another
2003 system, the shoulders appear perfectly square, and on yet
another, they appear to be about 30 deg. of a circle.
It's the same code that generates all of these shapes.
Is there some preference or setting that governs how the shape
shoulders will be generated, and I'm just not setting it correctly?
Are there perhaps some adjustment values for Rounded Rectangular
Callouts that I'm not specifying? And if not those, any other ideas as
to what might be going on?
Here's the code that produces the callouts (I've removed some of the
stuff dealing with fonts and line weights, etc.):
Set calloutSh =
ActiveWindow.View.Slide.Shapes.AddShape(msoShapeRoundedRectangularCallout,
l, T, W, H)
calloutSh.Adjustments.Item(1) = 0.5
calloutSh.Adjustments.Item(2) = 3.25
With calloutSh
With .TextFrame
.WordWrap = msoTrue
.AutoSize = ppAutoSizeShapeToFitText
.MarginBottom = 6
.MarginLeft = 6
.MarginRight = 6
.MarginTop = 6
With .Ruler
.Levels(1).FirstMargin = 0
.Levels(1).LeftMargin = 0
End With
End With ' .textframe
.LockAspectRatio = msoTrue
End With ' ActiveWindow.Selection.ShapeRange(1)
Thanks.
2003 systems. The addin generates Rounded Rectangular Callouts. On
the 2007 system and one of the 2003 systems, the callouts appear
"normal" - a rectangfular shape with slightly rounded shoulders (which
appear to be 90 deg. parts of a circle when blown up). On another
2003 system, the shoulders appear perfectly square, and on yet
another, they appear to be about 30 deg. of a circle.
It's the same code that generates all of these shapes.
Is there some preference or setting that governs how the shape
shoulders will be generated, and I'm just not setting it correctly?
Are there perhaps some adjustment values for Rounded Rectangular
Callouts that I'm not specifying? And if not those, any other ideas as
to what might be going on?
Here's the code that produces the callouts (I've removed some of the
stuff dealing with fonts and line weights, etc.):
Set calloutSh =
ActiveWindow.View.Slide.Shapes.AddShape(msoShapeRoundedRectangularCallout,
l, T, W, H)
calloutSh.Adjustments.Item(1) = 0.5
calloutSh.Adjustments.Item(2) = 3.25
With calloutSh
With .TextFrame
.WordWrap = msoTrue
.AutoSize = ppAutoSizeShapeToFitText
.MarginBottom = 6
.MarginLeft = 6
.MarginRight = 6
.MarginTop = 6
With .Ruler
.Levels(1).FirstMargin = 0
.Levels(1).LeftMargin = 0
End With
End With ' .textframe
.LockAspectRatio = msoTrue
End With ' ActiveWindow.Selection.ShapeRange(1)
Thanks.