Hi All,

The code posted below works in XL2003 and changes a 'happy smiley
face' into a 'frowning smiley face'. I know its sad (forgive the pun)
but can anybody tell me how to code this in XL2007?

It really is annoying that the macro recorder does not work for
charts, shapes etc in XL2007.


Sub test_smiley()
Application.ScreenUpdating = True
ActiveSheet.Shapes("Smiley Face 22").Select
Selection.ShapeRange.Adjustments.Item(1) = 0.7181
End Sub

All help gratefully received

Regards

Michael