Vba excel скрыть фигуру

Делаем фигуры невидимыми/видимыми в excel через VBA

У меня возникла эта проблема в течение последних нескольких часов, и я был бы очень признателен за помощь.

По сути, я хочу иметь возможность скрывать/показывать фигуры в зависимости от выбора, который пользователь делает в пользовательской форме. Я разбил проблему на очень простой пример. Если я вставлю на лист фигуру под названием «овал 1» и запущу код:

Форма исчезает, но когда я запускаю этот код

Я получаю сообщение об ошибке «Запрошенные фигуры заблокированы для выбора»

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

Любые идеи, что вызывает это.

5 ответов

Я скрываю фигуры на основе их имени, поскольку некоторые фигуры я не хочу скрывать. Я использую этот формат: Sheet1.Shapes.Range(Array(«COtxtBox1»)).Visible = msoTrue

Имя вашей фигуры или фигур входит в массив

Если это только 1 форма, которую вы могли бы просто использовать:

Я обнаружил, что часть «mso» не нужна для утверждения True или False.

Вы не можете Select скрытый объект. Однако вам вообще не нужно использовать Select , и обычно это не рекомендуется. Попробуйте просто:

Я решил проблему с этим кодом (Oval = Type 9, from Перечисление MsoAutoShapeType (Office)):

Если «Type = 9» неверно, вы можете узнать тип вашей фигуры с помощью кода в окне Непосредственно (ctrl+G в VBA):

Источник

VBA Excel. Работа с фигурами (Shapes)

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

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

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

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

Создание фигур в VBA Excel

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

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

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 из выбранных фигур:

Источник

Работа с фигурами (объектами-рисунками)

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

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

Задание свойств для фигуры

Многие параметры форматирования фигур не устанавливаются с помощью свойств, применяемых непосредственно к объекту Shape или ShapeRange. Вместо этого связанные атрибуты фигур группируются во вспомогательных объектах, таких как объект FillFormat, который содержит все свойства, связанные с заливкой фигуры, или объект LinkFormat, который содержит все свойства, являющиеся уникальными для связанных объектов OLE.

Чтобы задать свойства для фигуры, необходимо сначала вернуть объект, представляющий набор соответствующих атрибутов фигуры, а затем задать свойства этого возвращенного объекта. Например, можно использовать свойство Fill, чтобы вернуть объект FillFormat, а затем задать свойство ForeColor объекта FillFormat, чтобы настроить цвет заливки переднего плана для указанной фигуры, как показано в следующем примере.

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

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

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

Если операция применяется для нескольких выделенных фигур в пользовательском интерфейсе, вы можете выполнить аналогичную операцию в Visual Basic, создав коллекцию ShapeRange, содержащую нужные фигуры, и применив соответствующие свойства и методы непосредственно к коллекции ShapeRange.

Если операция не применяется для нескольких выделенных фигур в пользовательском интерфейсе, вы по-прежнему можете выполнить операцию в Visual Basic, осуществив циклический просмотр коллекции Shapes или коллекции ShapeRange, содержащей нужные фигуры, и применив соответствующие свойства и методы к отдельным объектам Shape в коллекции.

Многие свойства и методы, применяемые к объекту Shape и коллекции ShapeRange, завершаются ошибкой, если применяются к определенным типам фигур. Например, применение свойства TextFrame к фигуре, которая не может содержать текст, приводит к ошибке.

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

Создание коллекции ShapeRange, содержащей все фигуры на листе

Можно создать объект ShapeRange , содержащий все объекты Shape на листе, выбрав фигуры, а затем используя свойство ShapeRange для возврата объекта ShapeRange , содержащего выбранные фигуры.

В Microsoft Excel аргумент Index не является необязательным для свойства Range коллекции Shapes , поэтому его нельзя использовать без аргумента для создания объекта ShapeRange , содержащего все фигуры в коллекции Shapes .

Применение свойства или метода к коллекции ShapeRange

Если вы можете выполнить в пользовательском интерфейсе операцию для нескольких выделенных фигур одновременно, можно выполнить аналогичное программное действие, создав коллекцию ShapeRange и затем применив к ней соответствующие свойства или методы. В следующем примере создается диапазон фигур, содержащий фигуры «Большая звезда» и «Маленькая звезда», и myDocument применяется к ним градиентная заливка.

Ниже приведены общие руководства по поведению свойств и методов при их применении к коллекции ShapeRange.

Применение метода к коллекции аналогично применению метода к каждому отдельному объекту Shape в этой коллекции.

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

Свойство коллекции, возвращающее константу, возвращает значение свойства для отдельной фигуры в коллекции, если все фигуры в коллекции имеют одинаковое значение для этого свойства. Если у фигур в коллекции разные значения свойства, возвращается «смешанная» константа.

Свойство коллекции, возвращающее простой тип данных (например, Long, Single или String), возвращает значение свойства для отдельной фигуры, если все фигуры в коллекции имеют одинаковое значение для этого свойства.

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

Предшествующие руководства также применяются при настройке свойств фигур, сгруппированных во вспомогательных объектах коллекции ShapeRange, например в объекте FillFormat. Если вспомогательный объект представляет операции, которые можно выполнять над несколькими выделенными объектами в пользовательском интерфейсе, можно вернуть объект из коллекции ShapeRange и настроить его свойства.

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

Циклический просмотр коллекций Shapes или ShapeRange

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

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

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

Выравнивание, распределение и группирование фигур в ShapeRange

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

Используйте метод Group или Метод Regroup , чтобы сформировать одну сгруппированную фигуру из набора фигур.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

VBA Показать / Скрыть изображения или фигуры при нажатии кнопки «Событие» для сортировки данных

Я разрабатываю программу, которая имеет несколько столбцов данных, которые могут быть отсортированы по нескольким столбцам. Для эстетики я использую событие нажатия кнопок управления, чтобы переключать сортировку в порядке возрастания или убывания. Мой код довольно прост. Я использую изображения стрелок «вверх» и «вниз» как восходящие / нисходящие индикаторы. Все изображения находятся на рабочем листе, и в зависимости от метода сортировки событие щелчка показывает или скрывает соответствующее изображение. Кодирование работает правильно с одной проблемой, о которой я не задумывался. Когда пользователь нажимает кнопку для сортировки, эта стрелка отображается и правильно скрывается для этого столбца, однако в других столбцах по-прежнему отображается стрелка, которая может сбить пользователя с толку. Я хотел бы скрыть другие изображения / стрелки за исключением изображений / стрелок в столбце, который сортируется.

См. Прикрепленное изображение для уточнения

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

Приведенный ниже код используется в модуле рабочей таблицы с использованием события нажатия кнопки.

Какие-либо предложения? Я искал ShapeRange, который является новым для меня и Shape Arrays, но еще не нашел то, что я ищу.

2 ответа

Я понял. Спасибо FaneDuru за помощь. Я использовал кодировку, предоставленную FaneDuru, но я разделил стрелки вверх и вниз, чтобы большинство из них оставалось сгруппированным, но мне пришлось по отдельности скрывать остальные. Например, в столбце «Идентификатор игрока». Для того, чтобы я мог переключать стрелки вверх и вниз, мне нужно было иметь как минимум две стрелки. В коде FaneDuru у меня осталась только 1 стрелка, так как остальные не были видны. Единственный способ понять это:

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

Сейчас это исправлено, но всегда есть место, где его можно улучшить. Код для модуля листа

Код для стандартного модуля

Попробуйте следующий подход, пожалуйста. Создайте Sub для вызова всеми кнопками Click события:

Затем используйте существующий код следующим образом:

Источник