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

Сегодня у меня есть особое, это только для тебя.

Создать AI-персонажа

```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.

Adonai Mamani

Подсказки

Копировать подсказки

```vba Sub DrawingEagle() Dim ws As Worksheet Set ws = ActiveSheet &#39 ; Draw the body (oval) ws . shapes . AddShape msoShapeOval , 200 , 200 , 100 , 150 &#39 ; Draw the head (circle) ws . shapes . AddShape msoShapeOval , 220 , 160 , 40 , 40 &#39 ; Draw the beak (triangle) ws . shapes . AddShape msoShapeIsoscelesTriangle , 260 , 180 , 30 , 20 &#39 ; Draw the left wing (triangle) ws . shapes . AddShape msoShapeIsoscelesTriangle , 150 , 200 , 120 , 150 &#39 ; Draw the right wing (triangle) ws . shapes . AddShape msoShapeIsoscelesTriangle , 280 , 200 , 120 , 150 &#39 ; Draw the tail (triangle) ws . shapes . AddShape msoShapeIsoscelesTriangle , 210 , 330 , 80 , 50 &#39 ; Adjust rotation and positions to improve ws appearance . shapes(ws . shapes . Count - 4) . Rotation = 45 &#39 ; Left wing ws . shapes(ws . shapes . Count - 3) . Rotation = -45 &#39 ; 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 .

Информация

Подсказки

```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.

CFG Scale

Шаги

Сборщик

euler

Зерно

581336621

Диспетчер

Размер изображения

688 X 1024

Модель

SeaArt Infinity

Генерировать