```vba Sub DrawingEagle() Dim ws As Worksheet Set ws

I have some hidden stories. Dare to hear them?

```vba Sub DrawingEagle() Dim ws As Worksheet Set ws = ActiveSheet ' Draw the body (oval) ws.shapes.AddShape msoShapeOval, 200, 200, 100, 150 ' Draw the head (circle) ws.shapes.AddShape msoShapeOval, 220, 160, 40, 40 ' Draw the beak (triangle) ws.shapes.AddShape msoShapeIsoscelesTriangle, 260, 180, 30, 20 ' Draw the left wing (triangle) ws.shapes.AddShape msoShapeIsoscelesTriangle, 150, 200, 120, 150 ' Draw the right wing (triangle) ws.shapes.AddShape msoShapeIsoscelesTriangle, 280, 200, 120, 150 ' Draw the tail (triangle) ws.shapes.AddShape msoShapeIsoscelesTriangle, 210, 330, 80, 50 ' Adjust rotation and positions to improve ws appearance.shapes(ws.shapes.Count - 4).Rotation = 45 ' Left wing ws.shapes(ws.shapes.Count - 3).Rotation = -45 ' Right wing ws.shapes(ws.shapes.Count - 1).Rotation = 180 ' cola End Sub ``` ### Code explanation: 1. **body**: Se dibuja un oval que representa el cuerpo del águila. 2. **head**: Un pequeño circle representa la cabeza. 3. **pico**: Un triangle isósceles representa el pico. 4. **Alas**: Dos triangles grandes que se colocan en posiciones y con rotaciones para simular las alas en vuelo. 5. **cola**: Un triangle más pequeño que se coloca en la parte inferior como la cola del águila.

INFO