отображение-сокрытие фигур и расстановка картинок с текстом

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

отображение-сокрытие фигур и расстановка картинок с текстом (Макросы/Sub)

SkyGreen

Дата: Четверг, 19.09.2019, 04:04 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 83

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Доброго времени суток.
Помогите решить задачу.

На листе изображено несколько фигур в виде ветвей MindMap.
Рядом стоит таблица.
В таблице указано - если в названиях фигур имеется данный текстовый фрагмент - то они должны быть невидимы или видимы (если невидимы - то в столбцах AB и AF стоит 0, если видимы то 1).
Напротив конечных узлов конкретной ветви - нужно как-то расставить текст, прописав его в ячейки и картинки (чуть повыше этой ячейки)

К сообщению приложен файл: 8838677.rar (80.1 Kb)

Ответить

SkyGreen

Дата: Суббота, 28.09.2019, 06:59 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 83

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Помогите.

Ответить

Pelena

Дата: Суббота, 28.09.2019, 11:43 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Не совсем поняла с картинками.
Сделала для первой ветки. Думаю, основная идея понятна

К сообщению приложен файл: 9268576.xlsm (29.8 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

SkyGreen

Дата: Суббота, 28.09.2019, 13:49 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 83

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Pelena, поменял содержимое ячейки AC4, но на фигуре "Ветка1-2т" - ничего не изменилось (даже после срабатывания макроса).

Также насчет картинок - после срабатывания макроса - они не отображаются.
Я имею ввиду - сами картинки, а не адреса с ними.
Сейчас отображаются не сами картинки - а адреса.

К сообщению приложен файл: 9268576-.xlsm (29.8 Kb)

Сообщение отредактировал SkyGreen - Суббота, 28.09.2019, 13:51

Ответить

Pelena

Дата: Суббота, 28.09.2019, 20:08 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Цитата SkyGreen, 28.09.2019 в 13:49, в сообщении № 4 ()

содержимое ячейки AC4

относится к Ветка1, а не Ветка1-2

Цитата SkyGreen, 28.09.2019 в 13:49, в сообщении № 4 ()

Сейчас отображаются не сами картинки - а адреса

Сделайте заливку надписи нужной картинкой

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

SkyGreen

Дата: Суббота, 28.09.2019, 20:56 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 83

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Pelena, да все верно - это "Ветка1-2"

Цитата Pelena, 28.09.2019 в 20:08, в сообщении № 5 ()

Сделайте заливку надписи нужной картинкой

Да, можно и так.
А как это макросом сделать ?

К сообщению приложен файл: 9268576-2.xlsm (41.4 Kb)

Ответить

Pelena

Дата: Суббота, 28.09.2019, 22:45 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

А зачем макросом? Они будут меняться?
Запишите макрорекодером, будет макрос

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

SkyGreen

Дата: Воскресенье, 29.09.2019, 06:07 | Сообщение № 8

Группа: Пользователи

Ранг: Участник

Сообщений: 83

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Цитата Pelena, 28.09.2019 в 22:45, в сообщении № 7 ()

Запишите макрорекодером, будет макрос

Макрорекордер - формирует заливку для одной конкретной фигуры и для одного конкретного адреса.
[vba]

Код

Sub Макрос1()

    ActiveSheet.Shapes.Range(Array("Ветка1-2р")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .UserPicture _
        "C:\1\1 - копия.jpg"
        .TextureTile = msoFalse
    End With
    Range("U18").Select
    Application.CommandBars("Format Object").Visible = False
End Sub

[/vba]

Но там же десятки ячеек в столбцах AD, AA и AH,AE.
Как под остальные ячейки этот макрос подстроить ?