Hello,

I am using ppt 2010 and i wanted to copy the angle (yellow diamond setting) of one autoshape and paste it to another similar autoshape.

I found the below code, but somehow it does not work as I want it.

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

Please can someone help me with a code that copy the angle setting of the selected autoshape and the second code that paste the copied angle setting to the selected autoshape.