You need to say whether you are working in edit mode or show mode.
In EDIT only this is the code:
Code:
Sub AC2()
Dim oshp As Shape
Set oshp = ActiveWindow.Selection.ShapeRange(1)
oshp.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent2
End Sub
It will NOT work in show mode.