Макрос к фигуре excel - Word и Excel - помощь в работе с программами

Работа с фигурами в VBA Excel: создание фигур методом Shapes.AddShape, типы фигур (MsoAutoShapeType), обращение к фигурам и изменение их свойств. Примеры.

Объекты для работы с фигурами

Фигуры в VBA Excel представлены тремя объектами:

Объект	Описание
Shapes	Коллекция всех фигур на рабочем листе. Используется для создания новых фигур, для обращения к одной фигуре по имени и для перебора фигур циклом.
ShapeRange	Коллекция нескольких фигур, аргументом которой является массив имен выбранных объектов. Используется для редактирования сразу всех фигур, входящих в эту коллекцию.
Shape	Объект, представляющий одну фигуру. Используется для редактирования одной этой фигуры.

Фигуры в VBA Excel создаются методом Shapes.AddShape.

Синтаксис метода AddShape

Shapes.AddShape (Type, Left, Top, Width, Height)

Shapes — выражение, возвращающее коллекцию фигур на рабочем листе, например: ActiveSheet.Shapes.

Параметры метода AddShape

Параметр	Описание
Type	Константа из коллекции MsoAutoShapeType, определяющая тип создаваемой фигуры.
Left	Расстояние от левой границы фигуры до левой границы табличной части рабочего листа в пунктах.. Тип данных — Single.
Top	Расстояние от верхней границы фигуры до верхней границы табличной части рабочего листа в пунктах.. Тип данных — Single.
Width	Ширина фигуры по внешним границам в пунктах.
Height	Высота фигуры по внешним границам в пунктах.

Все параметры метода Shapes.AddShape являются обязательными.

Константы MsoAutoShapeType

Константы коллекции MsoAutoShapeType, определяющие основные типы создаваемых фигур:

Константа	Значение	Тип фигуры
msoShapeRectangle	1	Прямоугольник
msoShapeParallelogram	2	Параллелограмм
msoShapeTrapezoid	3	Трапеция
msoShapeDiamond	4	Ромб
msoShapeRoundedRectangle	5	Прямоугольник: скругленные углы
msoShapeOctagon	6	Восьмиугольник (октаэдр)
msoShapeIsoscelesTriangle	7	Равнобедренный треугольник
msoShapeRightTriangle	8	Прямоугольный треугольник
msoShapeOval	9	Овал
msoShapeHexagon	10	Шестиугольник (гексаэдр)
msoShapeCross	11	Крест
msoShapeRegularPentagon	12	Пятиугольник (пентаэдр)
msoShapeCan	13	Цилиндр
msoShapeCube	14	Куб
msoShapeDonut	18	Круг: прозрачная заливка (кольцо)
msoShapeLightningBolt	22	Молния
msoShapeSun	23	Солнце
msoShapeMoon	24	Месяц (луна)
msoShape5pointStar	92	Звезда: 5 точек (пятиконечная)
msoShapeCloud	179	Облако

Все доступные константы из коллекции MsoAutoShapeType смотрите на сайте разработчиков.

Создание объекта ShapeRange

Создание коллекции ShapeRange из выбранных фигур:

Dim myShapeRange As ShapeRange

Set myShapeRange = ActiveSheet.Shapes.Range(Array(«Пятиугольник 140», «Солнце 141», «Облако 144»))

Объектная переменная myShapeRange не обязательна, можно обратиться непосредственно к возвращенной коллекции, например, присвоив всем ее элементам синий цвет:

ActiveSheet.Shapes.Range(Array(«Пятиугольник 140», «Солнце 141», «Облако 144»)).Fill.ForeColor.RGB = vbBlue

Примеры работы с фигурами

Пример 1

Создание пяти разных фигур из кода VBA Excel методом Shapes.AddShape:

Sub Primer1()

With ActiveSheet.Shapes

‘При создании фигуры без присвоения ее переменной скобки не нужны

.AddShape msoShapeCube, 30, 40, 72, 72

.AddShape msoShapeIsoscelesTriangle, 130, 40, 72, 72

.AddShape msoShapeSun, 230, 40, 72, 72

.AddShape msoShapeLightningBolt, 330, 40, 72, 72

‘Чтобы выбрать фигуру, параметры необходимо заключить в скобки

.AddShape(msoShapeCloud, 430, 40, 72, 72).Select

End With

End Sub

Результат работы кода:

Пример 2

Работа с одной фигурой:

Sub Primer2()

Dim myShape As Shape

‘Создаем фигуру «Месяц» и присваивает ссылку на нее переменной myShape

Set myShape = ActiveSheet.Shapes.AddShape(msoShapeMoon, 50, 50, 80, 80)

With myShape

‘Меняем высоту и ширину фигуры

.Height = 150

.Width = 100

‘Меняем цвет фигуры

.Fill.ForeColor.RGB = vbYellow

‘Поворачиваем фигуру влево на 40 градусов

.Rotation = —40

End With

End Sub

Пример 3

Редактирование одновременно нескольких фигур с помощью коллекции ShapeRange:

Sub Primer3()

With ActiveSheet.Shapes.Range(Array(«Овал 1», «Овал 2», «Овал 3»))

‘Меняем цвет всех фигур из коллекции ShapeRange

.Fill.ForeColor.RGB = vbBlue

‘Задаем высоту и ширину овалов

.Height = 150

.Width = 50

‘Поворачиваем фигуры вправо на 45 градусов

.Rotation = 45

End With

End Sub

Пример 4

Редактирование одновременно всех фигур на рабочем листе с помощью коллекции ShapeRange:

Sub Primer4()

Dim myShapeRange As ShapeRange, i As Integer, _

myShape As Shape, myArray() As String

‘Задаем массиву размерность от 1 до количества фигур на листе

ReDim myArray(1 To ActiveSheet.Shapes.Count)

‘Проходим циклом по всем фигурам коллекции и записываем их имена в массив

For Each myShape In ActiveSheet.Shapes

i = i + 1

myArray(i) = myShape.Name

‘Создаем коллекцию ShapeRange и присваиваем ссылку на нее переменной myShapeRange

Set myShapeRange = ActiveSheet.Shapes.Range(myArray)

With myShapeRange

‘Изменяем цвет всех фигур на рабочем листе

.Fill.ForeColor.RGB = RGB(100, 150, 200)

‘Поворачиваем все фигуры вокруг вертикальной оси

.Flip msoFlipVertical

End With

End Sub

Пример 5

Добавление надписи (текста) на фигуру:

Sub Primer5()

Dim myShape As Shape

Set myShape = ActiveSheet.Shapes.AddShape(msoShapeCloud, 50, 30, 300, 300)

With myShape.TextFrame2

‘Добавление текста на фигуру

.TextRange.Characters.Text = «Объект TextFrame представляет текстовую рамку в объекте Shape. Содержит текст в текстовом кадре, а также свойства и методы, которые контролируют выравнивание и закрепление текстового кадра.»

‘Задаем курсивное начертание

.TextRange.Characters.Font.Italic = True

‘Указываем размер шрифта

.TextRange.Characters.Font.Size = 13

‘Отступ левой границы текстового поля от левой внутренней границы фигуры

.MarginLeft = 30

‘Отступ верхней границы текстового поля от верхней внутренней границы фигуры

.MarginTop = 20

End With

End Sub

Результат работы кода:

Изменить цвет текста, например на черный, можно двумя способами:

‘С помощью константы MsoThemeColorIndex

myShape.TextFrame2.TextRange.Characters.Font.Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1

‘С помощью цветовой модели RGB

myShape.TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)

С константами из коллекции MsoThemeColorIndex вы можете ознакомиться на сайте разработчиков.

Пример 6

Удаление фигур с рабочего листа из кода VBA Excel с помощью метода Delete.

Удаление одной фигуры:

ActiveSheet.Shapes(«Ромб 5»).Delete

Удаление нескольких фигур:

ActiveSheet.Shapes.Range(Array(«Овал 1», «Овал 2», «Овал 3»)).Delete

Удаление всех фигур с рабочего листа с помощью цикла:

Sub Primer6()

Dim myShape As Shape

For Each myShape In ActiveSheet.Shapes

myShape.Delete

End Sub

В 7 примере рассмотрено удаление всех фигур без цикла.

Пример 7

Выделение всех фигур на рабочем листе:

ActiveSheet.Shapes.SelectAll

Выбор всех фигур и удаление выбранного (всех фигур):

Sub Primer7()

ActiveSheet.Shapes.SelectAll

Selection.Delete

End Sub

Продолжение темы в статье VBA Excel. Копирование, перемещение и поворот фигур.

Источник

Предположим, вы создали макрос, который нужно выполнить несколько раз. Например, макросы, которые вы создали для абсолютных ссылок и относительных ссылок. Тогда вам будет легко, если вы сможете запустить макрос с помощью щелчка мыши. Вы можете сделать это, назначив макрос объекту, такому как фигура, графика или элемент управления.

В этой главе вы узнаете, как включить объект в рабочую книгу и назначить ему макрос.

Вспомните макрос, который вы создали, используя относительные ссылки. Макрос организует данные, представленные в одном столбце, в таблицу, чтобы облегчить анализ данных.

Назначение макроса для фигуры

Вы можете вставить фигуру в свой рабочий лист в значимой форме с не требующим пояснений текстом, который при нажатии запускает назначенный ей макрос.

Нажмите вкладку INSERT на ленте.
Нажмите « Фигуры» в группе «Иллюстрации».
Выберите любую из готовых фигур, которые появляются в раскрывающемся списке. Например, форма Блок-схема – Подготовка, так как вы находитесь в процессе подготовки данных.

Нажмите вкладку INSERT на ленте.

Нажмите « Фигуры» в группе «Иллюстрации».

Выберите любую из готовых фигур, которые появляются в раскрывающемся списке. Например, форма Блок-схема – Подготовка, так как вы находитесь в процессе подготовки данных.

Нарисуйте форму и отформатируйте ее.

Щелкните правой кнопкой мыши на фигуре и выберите Edit Text из выпадающего списка.
Введите текст внутри фигуры – Запустить макрос.
Отформатируйте текст.

Щелкните правой кнопкой мыши на фигуре и выберите Edit Text из выпадающего списка.

Введите текст внутри фигуры – Запустить макрос.

Отформатируйте текст.

Щелкните правой кнопкой мыши на форме.
Выберите Назначить макрос из выпадающего списка.

Откроется диалоговое окно «Назначить макрос». Щелкните имя макроса, т.е. RelativeMacro, и нажмите ОК.

Макрос присваивается фигуре.

Нажмите на ячейку, где вы должны запустить макрос, скажем, B4.
Переместите курсор (указатель) на фигуру. Курсор (указатель) изменится на палец.

Нажмите на ячейку, где вы должны запустить макрос, скажем, B4.

Переместите курсор (указатель) на фигуру. Курсор (указатель) изменится на палец.

Теперь нажмите на форму. Макрос будет работать. Просто повторите щелчки мышью, чтобы запустить макрос несколько раз, и вы закончили с задачей размещения данных в таблицу за несколько секунд.

Назначение макроса графике

Вы можете вставить изображение в лист и назначить ему макрос. Графика может быть выбрана для визуализации вашего макроса. Например, у вас может быть график таблицы, представляющий, что макрос упорядочит данные в таблицу.

Нажмите вкладку INSERT на ленте.
Нажмите «Изображения» в группе «Иллюстрации».
Выберите файл, который содержит вашу графику.

Остальные шаги такие же, как и в форме, приведенной в предыдущем разделе.

Назначение макроса элементу управления

Вставка элемента управления VBA и назначение ему макроса делает вашу работу профессиональной. Элементы управления VBA можно вставить на вкладке «Разработчик» на ленте.

Нажмите вкладку РАЗРАБОТЧИК на ленте.
Нажмите « Вставить» в группе «Элементы управления».

Нажмите вкладку РАЗРАБОТЧИК на ленте.

Нажмите « Вставить» в группе «Элементы управления».

Выберите значок «Кнопка» в разделе « Элементы управления формой» из раскрывающегося списка, как показано на снимке экрана ниже.

Щелкните ячейку на листе, в которую вы хотите вставить элемент управления Button. Откроется диалоговое окно «Назначить макрос».
Нажмите на имя макроса и нажмите ОК.

Щелкните ячейку на листе, в которую вы хотите вставить элемент управления Button. Откроется диалоговое окно «Назначить макрос».

Нажмите на имя макроса и нажмите ОК.

Кнопка управления с назначенным макросом будет вставлена.

Щелкните правой кнопкой мыши на кнопке.
Нажмите Редактировать текст.
Тип – Запустить макрос.
Форматировать текст и изменить размер кнопки.

Вы можете запускать макрос любое количество раз, просто нажимая кнопку несколько раз.

Использование элементов управления форм – это простой и эффективный способ взаимодействия с пользователем. Подробнее об этом вы узнаете в главе «Взаимодействие с пользователем».

Источник

In Excel, a recorded macro can be assigned to different objects like a shape, graphic, or control note. Instead of running the macro from the required tool in ribbon, we can create these objects to run them easily. They get very handy when multiple macros are there. Individual objects can be created for different macros.

In this article, let’s discuss how can we assign macros to different objects :

1. Assigning Macro to a Shape

It is one of the easiest ways to run a macro is to create any shape in the worksheet and use it for running the macro.

The steps that need to be followed are:

Click on the Insert Tab on the ribbon.

Go to the Illustrations group and click on the Shapes icon. In the sheet, choose any shape we like and want it to be assigned as the macro.

Click where you want to add the shape in the sheet and the shape will automatically get inserted.

The shape can be resized or re-formatted accordingly to the way you want. Text can also be added in the shape.

Then Right-Click on the shape and a dialog box would be opened. Then click on Assign Macro.

After right-clicking on the shape, another dialog box of Macro would be opened.

In the dialog box, select the macro from the list you want to assign to your shape and click the OK button.

The work is done! Now the shape would work as a button and whenever you click on it, it will run the assigned macro.

2. Assigning a Macro to a Graphic

In Excel, there is a pool of graphics from which we can choose. There are 3-D models, Icons, pictures, shapes, and much more which can be added to the sheet as required. These graphics have a special feature i.e Macro can be assigned to them and can run macro whenever needed.

The steps that need to be followed are:

Click on the Insert Tab on the ribbon.

From Illustrations tools, different graphics can be chosen such as shapes, icons, pictures, and 3-D models.

Click on any graphic and insert it into the sheet. Let’s insert a 3-D model of an insect here.

Then, on clicking right on the graphic, from the options, choose to assign macro.

A dialog box would open and select the macro you want to assign to that graphic, click OK.

Now, our graphic is ready to use. Just click on the graphic to run the assigned macro.

3. Assigning a Macro to a Control

We can also create a control button to assign a particular macro to it and when a user clicks it, the control button performs the desired set of actions.

Let’s understand how can we implement this:

Go to the Developer Tab on the ribbon.

In the Controls group, click on the Button tool.

Now, click anywhere on the Excel sheet. As soon as you do this, the Assign Macro dialog box would be opened.

Select the macro you want to assign to that button and fill in the other options. Then click on OK.
After that, a rectangular button can be seen on the sheet and ready to be used.

The button which appears on the sheet has default settings, and you can’t format it like the colour, shape of the button. However, the text which appears on the button can be changed. Just a right-click on the button and a dialog box would open.

Click on Edit Alt Text and change the text.

These are some objects to which a macro can be assigned.

Источник

создал я фигуру:

Sub gen_button()
    l = ActiveSheet.Range("H10:H11").Left
    t = ActiveSheet.Range("H10:H11").Top
    w = ActiveSheet.Range("H10:H11").Width
    h = ActiveSheet.Range("H10:H11").Height

    ActiveSheet.Shapes.AddShape(msoShapeRectangle, l, t, w, h).Select
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.Text = "Генерировать"
    Selection.Font.Color = RGB(0, 0, 0)
    Selection.HorizontalAlignment = 1
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 255, 0)

End Sub

Но так же я хочу на неё назначить вызов макроса, как это сделать?

задан 2 июн 2016 в 17:19

Используйте свойство OnAction:

Sub gen_button()
    l = ActiveSheet.Range("H10:H11").Left
    t = ActiveSheet.Range("H10:H11").Top
    w = ActiveSheet.Range("H10:H11").Width
    h = ActiveSheet.Range("H10:H11").Height

    Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, l, t, w, h)
    shp.OnAction = "Shape_Click"
    shp.Select

    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.Text = "Генерировать"
    Selection.Font.Color = RGB(0, 0, 0)
    Selection.HorizontalAlignment = 1
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 255, 0)


End Sub

Sub Shape_Click()
    MsgBox "test"
End Sub

ответ дан 3 июн 2016 в 3:44

kmvkmv

6,14910 серебряных знаков33 бронзовых знака

Попутно.

Используйте в макросах оператор With/End With. В такой записи код приятнее глазу )

Но не это главное. Родитель определяется один раз, код работает быстрее

Sub gen_button()
    With Range("H10:H11")
        l = .Left: t = .Top: w = .Width: h = .Height
    End With

    Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, l, t, w, h)

    With shp
        .OnAction = "Shape_Click"
        .Select

        With Selection
            .ShapeRange.Line.Visible = msoFalse
            .Text = "Генерировать"
            .Font.Color = RGB(0, 0, 0)
            .HorizontalAlignment = 1
            .ShapeRange.Fill.ForeColor.RGB = RGB(0, 255, 0)
        End With
    End With
End Sub

ответ дан 30 авг 2016 в 0:10

Источник

Содержание:

Вставьте фигуру и назначьте ей макрос
Сохранение формы видимой при скрытии / изменении размера строк / столбцов
Назначение макроса кнопке управления формой
Назначение макроса кнопке управления ActiveX

Хотя есть много разных способов запустить макрос в Excel, ни один из этих методов не может быть таким простым и удобным, как нажатие кнопки.

И для того, чтобы это сработало, вам нужно сначала назначить макрос кнопке.

В этом уроке я покажу вам несколько способов вставить кнопку в Excel, а затем назначить макрос этой кнопке (или фигуре). После этого, как только пользователь нажимает кнопку, выполняется макрос VBA-код.

Для этого урока я буду использовать приведенный ниже макрокод VBA (который просто выбирает ячейку A1 на активном листе, вводит в нее текст «Доброе утро» и окрашивает ее в красный цвет).
Sub GoodMorning () с ActiveSheet.Range ("A1") .Value = "Доброе утро" .Interior.Color = vbRed Конец с концом Sub
Приведенный выше код VBA помещается в обычный модуль редактора VB.

Теперь давайте перейдем к делу и посмотрим, как можно назначить этот макрос кнопке или фигуре в Excel!

Вставьте фигуру и назначьте ей макрос

Хотя есть специальные кнопки, которые вы можете вставить на лист, а затем назначить ему макрос, я сначала расскажу как назначить макрос фигуре.

Мне лично нравится этот метод, и я предпочитаю его остальным двум методам, которые мы рассмотрим позже. Вы можете легко вставить фигуру (квадрат или прямоугольник) и сделать ее похожей на кнопку.

А поскольку это форма, вы можете легко отформатировать ее, чтобы она идеально сочеталась с существующим форматированием или фирменными цветами.

Ниже приведены шаги для вставки фигуры в Excel:

Щелкните вкладку Вставка
В группе иллюстраций нажмите Фигуры
В параметрах фигур выберите параметр «Прямоугольник». Вы заметите, что ваш курсор изменится на значок плюса
Щелкните в любом месте листа. Это вставит прямоугольную форму на лист.
Измените размер прямоугольника и отформатируйте его (при желании задайте рамку, цвет, оттенок).

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

Обратите внимание, что в этом примере я вставил форму прямоугольника, но вы можете вставить любую форму, которую хотите (например, круг, треугольник или стрелку). Я предпочитаю использовать прямоугольник, он выглядит как кнопка и более интуитивно понятен.

Теперь давайте посмотрим, как назначить макрос этой фигуре.

Щелкните правой кнопкой мыши фигуру, которой вы хотите назначить макрос
В появившемся меню выберите «Назначить макрос». Откроется диалоговое окно назначения макроса.
В диалоговом окне «Назначить макрос» вы увидите список всех макросов, имеющихся в книге.
Щелкните имя макроса, который вы хотите назначить этой фигуре. В этом примере я нажимаю на макрос под названием «GoodMorning.
Нажмите ОК.

Вот и все!

Выбранный макрос теперь назначен фигуре.

Теперь, когда вы наведете курсор на фигуру, появится значок руки. что указывает на то, что теперь эта фигура стала интерактивной.

И теперь, если вы нажмете на фигуру, она запустит назначенный макрос.

Вы можете ввести любой текст внутри фигуры, чтобы сделать ее более интуитивно понятной (например, «Щелкните здесь, чтобы запустить макрос»). Сделать это. щелкните фигуру правой кнопкой мыши и выберите «Редактировать текст». Теперь вы можете вводить текст в форме текстового поля.

Обратите внимание, что вы не сможете щелкнуть и запустить макрос, когда фигура была выбрана (т. Е. Вы видите границу вокруг фигуры, которая появляется, когда вы ее выбираете). Чтобы сделать ее интерактивной, нажмите клавишу Escape или щелкните в любом месте в листе.

Кроме того, если вы уже назначили макрос фигуре, вы не сможете выбрать его, используя левую клавишу мыши (поскольку он стал интерактивным, и теперь при щелчке левой кнопкой мыши будет выполняться макрос). В этом случае выберите фигуру, удерживайте клавишу Ctrl, а затем нажмите левую клавишу.

Сохранение формы видимой при скрытии / изменении размера строк / столбцов

В Excel. когда вы вставляете фигуру, она располагается над ячейками — как диаграмма / объект.

У этого также есть недостаток, заключающийся в том, что при изменении размера или скрытии строк / столбцов, над которыми есть форма, форма также следует этому примеру.

В приведенном ниже примере фигура скрывается, когда я скрываю столбец, в котором она размещена.

Если вы не хотите, чтобы это произошло, выполните следующие действия:

Щелкните форму правой кнопкой мыши
Нажмите «Форматировать фигуру».
На панели «Формат фигуры» (или в диалоговом окне, если вы используете Excel 2010 или более ранние версии) выберите «Размер и свойства».
В разделе «Свойства» выберите вариант «Не перемещать и не изменять размер вместе с ячейками».
Закройте панель (или диалоговое окно)

Теперь, когда вы изменяете размер строк / столбцов или скрываете их, форма останется на своем месте.

Назначение макроса кнопке управления формой

Если вас не слишком интересует форматирование кнопки и вас устраивает обычная серая кнопка, вы можете быстро вставить ее из элемента управления формы (или элемента управления ActiveX, как показано ниже), а затем назначить ему макрос.

Чтобы это работало, вам понадобится вкладка Разработчик на ленте. Если у вас его нет, вот подробное пошаговое руководство по размещению вкладки разработчика на ленте Excel.

Когда у вас появится вкладка разработчика, вы можете использовать следующие шаги, чтобы быстро вставить кнопку и назначить ей макрос:

Перейдите на вкладку «Разработчик».
В группе Ctrl нажмите Insert.
В появившихся параметрах в параметрах элементов управления формы нажмите кнопку (элемент управления формы).
Щелкните в любом месте листа. Это вставит кнопку в любое место, где вы щелкнете, и автоматически откроет диалоговое окно «Назначить макрос».
В диалоговом окне «Назначить макрос» вы увидите список всех макросов, имеющихся в книге.
Щелкните имя макроса, который вы хотите назначить этой кнопке. В этом примере я нажимаю на макрос под названием «GoodMorning».
Нажмите ОК.

Вышеупомянутые шаги вставят кнопку, которой назначен указанный макрос.

По умолчанию это будет небольшая кнопка с написанным на ней текстом, например «Кнопка». Вы можете изменить текст на все, что захотите, а также можете изменить форму кнопки (перетаскивая края).

Поскольку это объект, который помещается на лист (как фигуры / диаграммы), вы можете перетащить его в любое место на листе.

Одним из недостатков использования кнопки управления формой является то, что вы не можете полностью контролировать форматирование. Например, нельзя изменить цвет с серого на другой.

Хотя есть немного форматирования, которое вы можете сделать с помощью кнопки управления формой, это далеко не то, что вы можете делать с фигурами.

Вы получаете эти параметры форматирования кнопки, когда щелкаете правой кнопкой мыши по кнопке, а затем нажимаете «Управление форматом».

Откроется диалоговое окно «Управление форматом», в котором вы можете изменить тип / цвет шрифта, размер, выравнивание и т. Д.

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

Если вы не хотите, чтобы кнопка оставалась на своем месте, вы можете изменить настройку, выполнив следующие действия:

Щелкните правой кнопкой мыши по кнопке
Нажмите на Управление форматом
Перейдите на вкладку «Свойства».
Выберите вариант — «Не перемещать и не изменять размер вместе с ячейками».
Нажмите ОК

Назначение макроса кнопке управления ActiveX

Помимо кнопки управления формой, есть также кнопка управления ActiveX, которой вы можете назначить макрос.

В большинстве случаев вам не нужно использовать кнопку управления ActiveX, и я рекомендую использовать ее только тогда, когда вы полностью понимаете, что это такое, и знаете, что делаете.

Хотите знать, почему у нас есть два разных типа кнопок — Form Ctrl и ActiveX? В то время как элементы управления формы встроены в приложение Excel, ActiveX загружается из отдельной библиотеки DLL (библиотеки динамической компоновки). Это делает кнопки управления формой намного более надежными и надежными по сравнению с кнопками ActiveX. Вы можете узнать больше об этой разнице здесь, в сообщении в StackOverflow.

Это также иногда делает ActiveX немного глючным и непредсказуемым. Итак, пока я расскажу об этом в этом руководстве, я не рекомендую использовать кнопку ActiveX и назначать ей макрос.

Чтобы вставить кнопку ActiveX и затем назначить ей макрос, выполните следующие действия:

Перейдите на вкладку «Разработчик».
В группе Ctrl нажмите Insert.
В появившихся опциях в опциях ActiveX Ctrls щелкните опцию Command Button.
Щелкните в любом месте листа. Это вставит кнопку куда бы вы ни щелкнули.
Дважды щелкните кнопку, и откроется бэкэнд редактора VB, где вы можете разместить код для кнопки ActiveX.

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

Опять же, это не то, что вам нужно использовать в своей обычной работе.

Другой вариант, который вы можете рассмотреть (при работе с кнопками / фигурами и назначении им макросов), — это добавить макрос на панель быстрого доступа. Таким образом, вы можете запустить макрос одним щелчком мыши, и он всегда будет виден в QAT.

Надеюсь, вы нашли этот урок полезным. Если вы заинтересованы в изучении VBA, вы можете ознакомиться с более подробными руководствами по Excel VBA здесь.

Источник