Как вставить текст по кругу в Excel: от WordArt до VBA-макросов

Криволинейное расположение текста в Microsoft Excel — задача, с которой сталкиваются дизайнеры отчётов, маркетологи и даже бухгалтеры при оформлении диаграмм или инфографики. На первый взгляд кажется, что функция должна быть встроена в программу: ведь в Word или PowerPoint текст по дуге создаётся за пару кликов. Но в Excel всё иначе — здесь нет прямого инструмента для такой операции.

Проблема усложняется тем, что пользователи часто путают круговой текст (буквы идут по окружности) с повёрнутым текстом (блок текста развёрнут на угол). Последнее в Excel реализовано легко через Главная → Выравнивание → Ориентация, а вот с настоящей кривой придётся повозиться. В этой статье разберём все рабочие методы — от стандартных инструментов до написания кода на VBA.

Спойлер: самый быстрый способ — использовать WordArt из Microsoft Word с последующей вставкой в Excel. Но если вам нужно динамическое решение, которое обновляется вместе с данными таблицы, придётся освоить макросы. Готовы? Тогда приступим.

Метод 1: WordArt из Microsoft Word (самый простой способ)

Этот способ не требует знаний программирования и подходит для статичного текста, который не нужно обновлять автоматически. Суть в том, что мы создаём криволинейный текст в Word, а затем вставляем его в Excel как объект.

В Microsoft Word есть встроенная функция WordArt, которая позволяет размещать текст по дуге, волне или кругу. Вот как это сделать:

• 🖥️ Откройте Microsoft Word (версия 2010 или новее). Создайте новый документ.
• 🎨 Перейдите на вкладку Вставка → WordArt и выберите любой стиль (например, простой белый текст).
• 🔄 Введите нужный текст в поле WordArt. Затем нажмите на появившуюся вкладку Формат (или Работа с фигурой → Формат).
• 🔁 Найдите кнопку Текстовые эффекты → Преобразовать и выберите вариант Следуя пути → Круг.

Теперь остаётся скопировать получившуюся фигуру с текстом (Ctrl+C) и вставить её в Excel (Ctrl+V). Объект останется редактируемым: вы сможете изменять размер, цвет и даже текст (но не форму дуги — для этого придётся возвращаться в Word).

⚠️ Внимание: Если после вставки в Excel текст выглядит размыто — проверьте масштаб листа. При значениях больше 100% может появляться артефакт сглаживания. Верните масштаб к 100% через ползунок в правом нижнем углу.

Метод 2: SmartArt с круговыми макетами

SmartArt — это инструмент для создания диаграмм и схем, который есть и в Excel. Среди его макетов есть несколько вариантов с круговыми элементами, куда можно вписать текст. Способ подходит для создания радиальных надписей (например, для обозначения секторов круговой диаграммы).

Инструкция:

1. Перейдите на вкладку Вставка → SmartArt.
2. В открывшемся окне выберите категорию Цикл или Иерархия.
3. Выберите макет Радиальная схема или Цикл с текстом.
4. Введите текст в панели редактирования SmartArt.
5. При необходимости отредактируйте форму фигур: кликните правой кнопкой по элементу → Формат фигуры → измените угол поворота.

Минус метода: текст будет располагаться не по самой окружности, а внутри секторов. Для настоящего "кругового" эффекта (буквы по дуге) этот способ не подходит — он больше годится для сегментированных надписей.

Метод 3: Ручное размещение текста в ячейках (для имитации дуги)

Если вам не нужен идеальный круг, а достаточно визуального эффекта "изогнутого текста", можно обойтись без внешних инструментов. Этот метод основан на повороте отдельных ячеек с текстом под разными углами.

Алгоритм действий:

• 📝 Создайте таблицу с ячейками, где каждая будет содержать 1-2 символа вашего текста (например, для слова "Excel" понадобится 5 ячеек).
• 🔄 Выделите первую ячейку, перейдите на вкладку Главная → Выравнивание → Ориентация и установите угол поворота (например, 30°).
• 🔁 Повторите для каждой следующей ячейки, увеличивая угол на 5-10° (например, 35°, 40°, 45° и т.д.).
• 🎨 Уберите границы ячеек через Главная → Границы → Нет границ.

Для лучшего эффекта:

- Используйте моноширинный шрифт (например, Consolas или Courier New), чтобы символы занимали одинаковую ширину.

- Настройте межстрочный интервал в формате ячеек (Ctrl+1 → Выравнивание → Отступ).

- Если текст "рвётся" — уменьшите размер шрифта или увеличьте ширину ячеек.

⚠️ Внимание: Этот метод не подходит для длинных фраз (более 10–12 символов) — текст будет выглядеть рваным. Также при изменении содержимого ячеек придётся заново настраивать углы поворота.

Метод 4: VBA-макрос для автоматического размещения текста по кругу

Если вам нужно динамическое решение, которое обновляется при изменении данных, придётся написать макрос на VBA. Этот метод сложнее остальных, но даёт полный контроль над радиусом, углом и позиционированием текста.

Приведённый ниже код создаёт текст по окружности с центром в указанной ячейке. Вы можете модифицировать его под свои нужды:

Sub TextOnCircle()
Dim centerCell As Range
Dim text As String
Dim radius As Double
Dim startAngle As Double
Dim charWidth As Double
Dim i As Integer
Dim angle As Double
Dim char As String
Dim newShape As Shape

' Параметры (измените под себя)
Set centerCell = Range("D5") ' Центральная ячейка
text = "Ваш текст здесь"     ' Текст для размещения
radius = 100                 ' Радиус окружности в пунктах
startAngle = 0               ' Начальный угол (0 = 3 часа)

' Ширина символа (приблизительно)
charWidth = 8

' Удаляем старые фигуры с текстом (опционально)
For Each sh In ActiveSheet.Shapes
If sh.Name Like "CircleText*" Then sh.Delete
Next sh

' Размещаем каждый символ
For i = 1 To Len(text)
char = Mid(text, i, 1)
angle = startAngle + (i - 1) * (360 / Len(text))

' Создаём текстовую фигуру
Set newShape = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
centerCell.Left + radius  Cos(angle  3.14159 / 180) - charWidth / 2, _
centerCell.Top - radius  Sin(angle  3.14159 / 180) - 10, _
charWidth * 2, 20)

' Настраиваем текст
With newShape
.Name = "CircleText_" & i
.TextFrame2.TextRange.Text = char
.TextFrame2.TextRange.Font.Size = 12
.TextFrame2.TextRange.Font.Bold = False
.TextFrame2.VerticalAnchor = msoAnchorMiddle
.TextFrame2.HorizontalAnchor = msoAnchorCenter
.Rotation = angle
End With
Next i
End Sub

Как использовать этот код:

1. Нажмите Alt+F11, чтобы открыть редактор VBA.
2. Вставьте код в новый модуль (Insert → Module).
3. Измените параметры в начале макроса: centerCell, text, radius.
4. Запустите макрос нажатием F5.

Критическая деталь: макрос создаёт отдельные текстовые поля для каждого символа. Если вы измените исходный текст в коде, старые символы останутся на листе — их нужно удалять вручную или добавить в код строку для очистки (как в примере выше).

Включить поддержку макросов в Excel (Файл → Параметры → Центр управления безопасностью → Параметры центра → Включить все макросы)

Сохранить файл как .xlsm (с поддержкой макросов)

Проверьте, что в тексте нет переносов строк (замените на пробелы)

Запускайте макрос на копии данных (на случай ошибок)-->

Метод 5: Использование надстроек (Excel Curve Text Add-ins)

Если вам нужно профессиональное решение без программирования, обратите внимание на плагины для Excel, которые добавляют функцию кругового текста. Большинство из них платные, но предлагают гибкие настройки:

• 🔧 Ablebits Curve Text — позволяет размещать текст по дуге, окружности или спирали. Есть бесплатная пробная версия.
• 📊 Kutools for Excel — включает инструмент Insert Circle Text с предварительным просмотром.
• 🎨 OfficeOne Circular Text — специализированная надстройка для криволинейного текста.

Преимущества плагинов:

- Интуитивный интерфейс (не нужно писать код).

- Динамическое обновление (текст меняется вместе с данными в ячейках).

- Дополнительные эффекты (градиенты, тени, анимация).

Недостатки:

- Стоимость (от $20 до $60 за лицензию).

- Возможные конфликты с другими надстройками.

Перед покупкой проверьте совместимость плагина с вашей версией Excel. Например, Kutools работает с Excel 2010–2026, но может не поддерживать Excel для Mac.

Как проверить совместимость надстройки?

Откройте официальный сайт плагина и найдите раздел "System Requirements" (Требования к системе). Обратите внимание на:

1. Версию Excel (например, "Excel 2016 и новее").

2. Разрядность системы (32-bit или 64-bit).

3. Поддержку Windows/Mac.

Если ваша версия не указана — напишите в поддержку плагина с вопросом о совместимости.

Сравнение методов: какой выбрать?

Выбор способа зависит от ваших задач, навыков и версии Excel. Ниже таблица сравнения всех описанных методов:

Частые ошибки и как их избежать

При работе с круговым текстом в Excel пользователи сталкиваются с типичными проблемами. Вот самые распространённые и способы их решения:

• 🔍 Текст выглядит рваным → Уменьшите размер шрифта или используйте моноширинный шрифт (например, Courier New).
• 🖼️ Объект WordArt размывается при печати → Перед печатью экспортируйте лист в PDF с высоким разрешением (Файл → Экспорт → PDF/XPS).
• 🔄 Макрос не работает → Проверьте, включена ли поддержка макросов (Файл → Параметры → Центр управления безопасностью).
• 📏 Текст не вписывается в круг → Увеличьте радиус в параметрах макроса или уменьшите количество символов.

Ещё одна распространённая проблема — исчезновение текста при изменении масштаба листа. Это происходит из-за того, что текстовые поля привязаны к фиксированным координатам. Решение:

- Для WordArt: группируйте объект с другими элементами (Ctrl+клик → Формат → Группировать).

- Для VBA: добавьте в макрос привязку к ячейкам (как в примере выше с centerCell).

FAQ: Ответы на популярные вопросы

Можно ли сделать текст по кругу в Excel Online?

Нет, в веб-версии Excel Online нет инструментов для создания криволинейного текста. Вы можете:

• Создать текст в настольной версии Excel и загрузить файл в облако.
• Использовать Word Online для создания WordArt, а затем вставить его как картинку.

Обратите внимание: вставленные объекты в Excel Online могут стать статичными (нередактируемыми).

Как сделать текст по спирали, а не по кругу?

Для спирального текста подойдут:

1. WordArt в Word: выберите эффект Спираль вместо Круг.
2. VBA-макрос: модифицируйте код, добавив изменение радиуса с каждым символом. Пример:

   radius = radius + 5 ' Увеличиваем радиус для каждого следующего символа

3. Надстройки: в Kutools и Ablebits есть опция спирального текста.

Почему при копировании WordArt из Word в Excel текст становится пиксельным?

Это связано с различиями в рендеринге графики между Word и Excel. Решения:

• Перед копированием в Word экспортируйте WordArt как изображение (ПКМ → Сохранить как рисунок), затем вставьте в Excel.
• Увеличьте разрешение экрана (в настройках Windows).
• Используйте векторные форматы (например, EMF) при сохранении.

Можно ли анимировать круговой текст в Excel?

Да, но с ограничениями:

• В Excel нет встроенной анимации, но можно использовать VBA для создания эффекта движения. Пример кода для вращения текста:

  Sub RotateText()
  Dim sh As Shape
  For Each sh In ActiveSheet.Shapes
  If sh.Name Like "CircleText*" Then
  sh.Rotation = sh.Rotation + 5 ' Поворот на 5°
  End If
  Next sh
  End Sub

  Запускайте этот макрос по таймеру или привяжите к событию листа.

• Для сложной анимации (например, плавное появление текста) используйте PowerPoint и вставляйте результат в Excel как объект.

Как сделать текст по кругу в Google Таблицах?

В Google Sheets нет инструментов для кругового текста, но есть обходные пути:

1. Создайте текст в Google Docs с помощью Вставка → Рисунок → WordArt, затем вставьте рисунок в Google Sheets.
2. Используйте надстройки из Google Workspace Marketplace (например, Shape Text).
3. Напишите скрипт на Google Apps Script (аналог VBA для Google Sheets).

Обратите внимание: в Google Sheets вставленные объекты не привязываются к данным таблицы и остаются статичными.