Графические функции Excel позволяют добавлять в книгу ряд предопределенных фигур. Эти формы, называемые автофигурами, охватывают широкий спектр потребностей. Однако если вы хотите добавить фигуры в функцию автофигур, вам не повезло. Фигуры явно жестко запрограммированы в Excel и не могут быть изменены.

Однако вы можете добавлять фигуры в галерею клипов. Если вы отформатируете фигуры как файлы WMF, их легко добавить и легко разместить на листе. Например, если у вас есть несколько различных символов блок-схемы, которые вы хотите сделать доступными в Excel, все, что вам нужно сделать, это сохранить каждый символ в формате WMF, а затем импортировать их в галерею клипов. (Для сохранения графики в формате WMF вам потребуется специальная графическая программа, например Paint Shop Pro или Corel Draw.)

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

  1. Откройте книгу шаблонов и убедитесь, что в ней есть только один лист.

  2. Поместите всю графику блок-схемы на рабочий лист.

  3. Создайте новую панель инструментов, назовите ее MyShapes и убедитесь, что она связана с книгой шаблона.

  4. Добавьте двадцать кнопок на панель инструментов, по одной для каждого графического изображения блок-схемы. Идея состоит в том, что нажатие кнопки добавит связанную фигуру блок-схемы к активному рабочему листу.

  5. Отредактируйте лицо каждой кнопки, чтобы максимально точно отобразить каждый рисунок блок-схемы. (Это самая сложная часть этих шагов).

  6. При необходимости измените текст всплывающей подсказки для каждой кнопки. Это полезно, чтобы пользователь мог понять назначение каждого графического изображения блок-схемы.

  7. По очереди выберите и назовите каждую графическую схему блок-схемы. (Вы называете графику, выбирая ее и вводя имя в поле «Имя» слева от панели формул.) Предположим, что для этих шагов вы используете такие имена, как FlowObj1, FlowObj2 и т. Д.

  8. Напишите двадцать макросов (по одному для каждого графического изображения блок-схемы) следующего вида:

Sub AddFlowObj1()

ThisWorkbook.Sheets(1).Shapes("FlowObj1").Copy     ActiveSheet.Paste End Sub

  1. Назначьте каждый макрос соответствующей кнопке панели инструментов.

  2. В модуле «Рабочая книга» шаблона добавьте следующие процедуры:

Private Sub Workbook_Open()

Application.CommandBars("MyShapes").Visible = True End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.CommandBars("MyShapes").Delete End Sub

  1. Сохраните шаблон как надстройку Excel.

  2. Перезапустите Excel и используйте Инструменты | Надстройки для активации вашей новой надстройки.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (1995 г.) применим к Microsoft Excel 97, 2000, 2002 и 2003.