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
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.
Not me ... PPT. The .Adjustments.Count property spills the (3) beans.
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.