Выбрать 2 фигуры с одинаковым именем - Microsoft Office Excel

GAS1979 · 14.10.2014, 15:39

Необходимо выбрать 2 фигуры, у которых одинаковое имя, для дальнейшего применения к ним свойств (цвет например).
Фигуры не должны изменять свое расположение.

EducatedFool · 14.10.2014, 15:53

ну и?
в чем ваш вопрос-то?

GAS1979 · 14.10.2014, 16:16

Цитата:

Сообщение от EducatedFool

ну и?
в чем ваш вопрос-то?

Как выбрать 2 фигуры?

Код:

ActiveSheet.Shapes.Range("Фигура").Fill.ForeColor.RGB = RGB(0, 176, 80)

Применяет только к одной из двух
А на листе 2 одинаковые фигуры с именем "Фигура"

EducatedFool · 14.10.2014, 16:42

Код:

dim sha as shape
for each sha in ActiveSheet.shapes
  if sha.name = "Фигура" then sha.Fill.ForeColor.RGB = RGB(0, 176, 80)
next

GAS1979 · 14.10.2014, 16:44

Отлично, получилось. Спасибо.

GAS1979 · 14.10.2014, 17:04

А сгруппировать такие фигуры не удастся?

Код:

dim sha as shape
    For Each sha In ActiveSheet.Shapes
        If sha.Name = "Фигура" Then sha.Group.Select
    Next

14.10.2014, 15:39	#1
GAS1979 Пользователь Регистрация: 22.04.2013 Сообщений: 17	Выбрать 2 фигуры с одинаковым именем Необходимо выбрать 2 фигуры, у которых одинаковое имя, для дальнейшего применения к ним свойств (цвет например). Фигуры не должны изменять свое расположение.

14.10.2014, 15:53	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	ну и? в чем ваш вопрос-то? __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

14.10.2014, 16:42	#4
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Код: `dim sha as shape for each sha in ActiveSheet.shapes if sha.name = "Фигура" then sha.Fill.ForeColor.RGB = RGB(0, 176, 80) next` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

14.10.2014, 17:04	#6
GAS1979 Пользователь Регистрация: 22.04.2013 Сообщений: 17	А сгруппировать такие фигуры не удастся? Код: `dim sha as shape For Each sha In ActiveSheet.Shapes If sha.Name = "Фигура" Then sha.Group.Select Next`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
программа на алгоритмическом языке в турбо паскале: из списка студентов выбрать с одинаковым днём рождения	igor278130	Помощь студентам	10	10.01.2014 11:58
File1 .Дана строка S. Если S является допустимым именем файла, то создать пустой файл с этим именем и вывести True.	Евгений1240	Помощь студентам	0	24.04.2012 14:26
Одинаковым данным-одинаковый номер!	Любопытная	Microsoft Office Excel	16	03.08.2011 10:16
Движение одной фигуры,вслед изменения высоты другой фигуры.	7vlad37	Microsoft Office Excel	3	21.07.2011 18:01
слова с одинаковым началом и концом	shelest	Помощь студентам	2	28.02.2010 15:07

14.10.2014, 16:44	#5
GAS1979 Пользователь Регистрация: 22.04.2013 Сообщений: 17	Отлично, получилось. Спасибо.