uno::Reference< frame::XModel > xModel = GetView().GetDocShell() ? GetView().GetDocShell()->GetModel() : NULL;
            if ( xModel.is() )
            {
                uno::Reference< drawing::XShape > xShape = xModel->getCurrentSelection(), uno::UNO_QUERY );
                uno::Reference< beans::XPropertySet > rShapeProps( xShape, uno::UNO_QUERY );
                uno::Any Angle;
                Angle <<= (long)9000;
                rShapeProps->setPropertyValue(::rtl::OUString::createFromAscii("RotateAngle"), Angle);
            }