Форматировать фигуры при помощи VBA

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

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

Форматировать фигуры при помощи VBA (Макросы/Sub)

Vladislav_9Q

Дата: Воскресенье, 14.03.2021, 00:15 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 29

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

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

Excel 2019

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

К сообщению приложен файл: ShapesVBA.xlsx (10.7 Kb)

Ответить

прохожий2019

Дата: Воскресенье, 14.03.2021, 02:14 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1298

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

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

365 Beta Channel

и вам здрасьте, по идее в xlsx макросы не хранятся, поэтому ваших попыток не видно

Ответить

Vladislav_9Q

Дата: Воскресенье, 14.03.2021, 02:17 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 29

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

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

Excel 2019

прохожий2019, потому что уже на первом этапе ничего не получилось: я не могу присвоить фигуре название из ячейки

Ответить

Pelena

Дата: Воскресенье, 14.03.2021, 08:30 | Сообщение № 4

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

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

Сообщений: 19404

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

Замечаний: ±

Excel 365 & Mac Excel

Цитата Vladislav_9Q, 14.03.2021 в 02:17, в сообщении № 3 ()

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

как-то так
[vba]

Код

    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        With shp
            .Name = Cells(.TopLeftCell.Row, 1).Value
        End With
    Next shp

[/vba]
А цвет лучше сделать не текстом, а заливкой ячейки. В файле пример названия фигуры, цвета заливки и шрифта. Остальное по аналогии

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

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

Ответить

Vladislav_9Q

Дата: Воскресенье, 14.03.2021, 10:28 | Сообщение № 5

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

Ранг: Новичок

Сообщений: 29

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

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

Excel 2019

Pelena, никогда прежде такой ошибки не видел. Но за подсказку спсибо.

К сообщению приложен файл: 5379526.png (44.3 Kb)

Ответить

Pelena

Дата: Воскресенье, 14.03.2021, 11:40 | Сообщение № 6

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

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

Сообщений: 19404

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

Замечаний: ±

Excel 365 & Mac Excel

Да, кнопку надо исключить
[vba]

Код

    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        With shp
            If .Type <> 8 Then
                .Name = Cells(.TopLeftCell.Row, 1).Value
            End If
        End With
    Next shp

[/vba]

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

Ответить

Vladislav_9Q

Дата: Воскресенье, 14.03.2021, 21:05 | Сообщение № 7

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

Ранг: Новичок

Сообщений: 29

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

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

Excel 2019

Pelena, Спасибо, всё работает

Ответить

Форматировать фигуры при помощи VBA (Макросы/Sub)

Страница 1 из 1
1