TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub ShowAdjustments()
    Dim oSh As Shape
    Dim lCount As Long
    Set oSh = ActiveWindow.Selection.ShapeRange(1)

    With oSh
        For lCount = 1 To .Adjustments.Count
            MsgBox "Adjustment " & CStr(lCount) _
                & vbCrLf & CStr(.Adjustments(lCount))
        Next
    End With

End Sub

:

Sub SetAdjustments()

    Dim oSh As Shape
    Set oSh = ActiveWindow.Selection.ShapeRange(1)

    With oSh
        .Adjustments(1) = 0.66
        .Adjustments(2) = 0.66
        ' And so on for add'l adjustments
    End With

End Sub