Здравствуйте! Для работы надо сделать, чтобы при нажатии кнопки-макроса она подсвечивалась цветом, затем при нажатии на другую та возвращает свой цвет, а новая нажатая так же подсвечивалась. Нашла на просторах код для элементов ActiveX, а как сделать для фигуры не пойму, помогите плиз. Файл прикладываю. Таких кнопок будет много, штук 15, может можно универсальное что то.
makkedonia, здравствуйте Вставьте фигуру, убедитесь, что она выделена, запустите макрокордер, измените цвет фигуры, остановите макрорекордер, используйте полученный код для написания своего, назначьте макрос на фигуру.
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
написал: makkedonia, здравствуйте Вставьте фигуру, убедитесь, что она выделена, запустите макрокордер, измените цвет фигуры, остановите макрорекордер, используйте полученный код для написания своего, назначьте макрос на фигуру.
Мне бы, чтобы мой макрос основной работал, а при нажатии на кнопку цвет менялся, чтобы видеть какая кнопка сработала. Т.е получается мне нужен макрос в макросе как с CommandButton, который задает мой макрос и плюс меняет цвет как во вложенном примере. Попробовала как Вы описали, выдает ошибку, код вот такой получился Sub Макрос6() ' ' Макрос6 Макрос '
' With Selection.ShapeRange.Fill .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorAccent .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 .Transparency = 0 .Solid End With End Sub
написал: а в свой макрос первой строкой напишите qq
Application.Caller не сработает, т.к. не все фигуры в книге будут опознаны по локальному имени. А еще ТС не учел тот момент, что на листе есть и другие фигуры(а-ля фирменные леблы).
написал: а в свой макрос первой строкой напишите qq
Application.Caller не сработает, т.к. не все фигуры в книге будут опознаны по локальному имени. А еще ТС не учел тот момент, что на листе есть и другие фигуры(а-ля фирменные леблы).
вставила, но выдает ошибку
Sub Показать_все() Columns.Hidden = False Rows.Hidden = False With Selection.Parent .DrawingObjects.Interior.Color = 12419407 .DrawingObjects(Application.Caller).Interior.Color = 255 End With End Sub
Здравствуйте! Помогите еще плиииз. Как в этом коде изменить задавать изначально цвет, т.е. тот цвет, который уже есть у фигуры надо его именно изменить на красный при нажатии кнопки. Т.е. вот эту сроку не привязывать к цвету в коде DrawingObjects.Interior.Color = 12419407, а сделать тот цвет, который есть в фигуре изначально.
Код
Sub Показать_все()
Columns.Hidden = False
Rows.Hidden = False
With Selection.Parent
.DrawingObjects.Interior.Color = 12419407
.DrawingObjects(Application.Caller).Interior.Color = 255
End With
End Sub
написал: Здравствуйте! Помогите еще плиииз. Как в этом коде изменить задавать изначально цвет, т.е. тот цвет, который уже есть у фигуры надо его именно изменить на красный при нажатии кнопки. Т.е. вот эту сроку не привязывать к цвету в коде DrawingObjects.Interior.Color = 12419407, а сделать тот цвет, который есть в фигуре изначально.Код ? 12345678Sub Показать_все() Columns.Hidden = False Rows.Hidden = FalseWith Selection.Parent .DrawingObjects.Interior.Color = 12419407 .DrawingObjects(Application.Caller).Interior.Color = 255 End WithEnd Sub
Попробую еще раз по другому) Если нет универсального решения, т.е. чтобы каждая фигура сохраняла свой цвет, а только при нажатии меняла на красный, а потом при нажатии на другую возвращала исходный цвет, тогда помогите пожалуйста с такой проблемой. Как изменить код, чтобы фигуры, на которые не нажимались сохранили свой цвет как в коде прописано, а не принимали общий цвет. Файл пример как это сейчас выглядет приложила.
Маугли, спасибо большое! Я сейчас пытаюсь всем своим 42 фигурам сделать по тому же подобию. Правильно ли я поняла, что например DrawingObjects(36), где 36 это номер в имени фигуры? Всем присвоила, но у меня фигуры например идет 37, потом 38 и потом 36, в коде порядок важен или только номер? А то почему то из 42 3 фигуры приняли не верный цвет. И еще файл стал ооочень тормозить. Прошу прощения, только месяц как макросы изучаю.
Маугли, помогло, спасибо еще раз. А не подскажите, файл при нажатии на кнопку стал тормозить из за присвоения цвета 42 фигурам? Тк макросы до присвоения цветов обрабатывали файл быстро.