rotating shapes in Excel worksheet

**donkersr** · 12-23-2011, 09:58 AM

I've created a macro which rotates a circle -15 degrees each time the macro is called. The code which does the rotation is...Selection.ShapeRange.IncrementRotation -15. I would like to be able to change the
-15 value by using a "scroll" button on my worksheet, rather than having to go inside the macro and change the value. Is this possible?

**Andy Pope** · 12-23-2011, 11:45 AM

You can use a user defined function.

Public Function udfROTATE_SHAPE(Value, Name)
    
    Dim shpTemp As Shape
    
    On Error GoTo Err
    Set shpTemp = ActiveSheet.Shapes(Name)
    shpTemp.Rotation = Value
    udfROTATE_SHAPE = True
    
    Exit Function
Err:
    If shpTemp Is Nothing Then
        udfROTATE_SHAPE = CVErr(xlErrName)
    Else
        udfROTATE_SHAPE = CVErr(xlErrValue)
    End If
    Exit Function
    
End Function

called from cell using formula. This assumes scrollbar is linked to cell G1 and the shape is called 'Oval 1'

=udfROTATE_SHAPE(G1,"Oval 1")