Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
XL2007 - Shapes - Adjust 'Smiley Face'
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
XL2007 - Shapes - Adjust 'Smiley Face'
Hi,
looks like the range of adjustment is +/- 0.005 Function Smile() ' With ActiveSheet.Shapes(1) .Adjustments.Item(1) = -0.05 ' full frown DoEvents MsgBox "Frowning" .Adjustments.Item(1) = 0.05 ' full smile End With ' End Function Cheers Andy -- Andy Pope, Microsoft MVP - Excel http://www.andypope.info "michael.beckinsale" wrote in message ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
XL2007 - Shapes - Adjust 'Smiley Face'
Hi Andy, Sorry for the delay in replying. Your solution worked fine. How did you find out what metrics to use ie +0.05 & -0.05? I thoroughly inspected the online help and couldn't find anything and resorted to using the macro recorder in XL2003 to get the code l posted. Regards Michael |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
XL2007 - Shapes - Adjust 'Smiley Face'
Hi,
I just experimented some code linked to a slider with the values +/-1 which allowed me to deduce the actual range of values. Cheers Andy michael.beckinsale wrote: Hi Andy, Sorry for the delay in replying. Your solution worked fine. How did you find out what metrics to use ie +0.05 & -0.05? I thoroughly inspected the online help and couldn't find anything and resorted to using the macro recorder in XL2003 to get the code l posted. Regards Michael -- Andy Pope, Microsoft MVP - Excel http://www.andypope.info |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
excel document with shapes on it but the shapes do not print | Excel Worksheet Functions | |||
Smiley changes colors based on a number in a cell | Excel Discussion (Misc queries) | |||
Macro or code to insert Shape (Say Smiley face) in XL? | Excel Programming | |||
Remove/Re-assign Smiley Face Macro? | Excel Discussion (Misc queries) | |||
how can i get a picture of a smiley face | Setting up and Configuration of Excel |