Where are the adjustment items for autoshapes defined?

  • Thread starter Thread starter Dave Jenkins
  • Start date Start date
In particular, for callouts with shape msoShapeRoundedRectangularCallout?
Click to expand...

If your shape is oShp, you can adjust two things:

oShp.Adjustments(1)

and

oShp.Adjustments(2)

--David
 
Dave Jenkins said:
In particular, for callouts with shape msoShapeRoundedRectangularCallout?
Click to expand...

Defined? What is this "defined"?

But play with this:

Dim oSh As Shape
Dim x As Long
Set oSh = ActiveWindow.Selection.ShapeRange(1)
With oSh
Debug.Print .Adjustments.Count
.Adjustments(1) = 0.5
.Adjustments(2) = 12
.Adjustments(3) = 1
End With

3 seems to be what you're after.

Ignore the Prof with his tales of two.
 
Yeah - I got into debug and just started trying them all, and anything over
three gto an error. I was hoping that there would be some "hiddne" ones that
I could captialize on to fix the probelm I'm experiencing.
 
Hi David:

Thanks for the reponse. My debug experiments tell me that Steve (see below)
is right about they're being three.
 
Dave Jenkins said:
Hi David:

Thanks for the reponse. My debug experiments tell me that Steve (see below)
is right about they're being three.
Click to expand...

Not me ... PPT. The .Adjustments.Count property spills the (3) beans.
 
Back
Top