Excel 2007 WordArt Adjustments Item

[Dossfm0q]

Contains a collection of adjustment values for the specified AutoShape, WordArt
object, or connector. Is not workink for Excel 2007 WordArt

Sub WordArtAdjustments ()

Dim MyWordArt As Shape
Dim Sh As Shape

For Each Sh In ActiveSheet.Shapes
Sh.Delete
Next

Set MyWordArt = ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Your text here", "+mn-lt", 54 _
, msoTrue, msoFalse, 50, 50)
With MyWordArt
.Name = "MyWordArt"
.TextEffect.PresetShape = msoTextEffectShapeArchUpCurve
.TextFrame2.WordArtformat = msoTextEffect1
.ScaleWidth 0.5, msoFalse, msoScaleFromBottomRight
.Adjustments.Item(1) = 28
End With
End Sub