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.