Список рисунков

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Список рисунков - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Список рисунков (Макросы/Sub)

Список рисунков

Nic70y

Дата: Понедельник, 14.09.2015, 18:37 | Сообщение № 1

Группа: Друзья

Ранг: Экселист

Сообщений: 8791

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

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

Excel 2010

Уже 18 мин. не могу найти у кого стырить макрос

получить список объектов (рисунков) листа.
пробовал сам написать, где-то ошибаюсь - все выбросил.
подскажите неграмотному.

ЮMoney 41001841029809

Ответить

Rioran

Дата: Понедельник, 14.09.2015, 18:42 | Сообщение № 2

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

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

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

Excel 2013

Nic70y, привет!

Вот это подойдёт?

[vba]

Код

Sub Rio()
     Dim X
     For Each X In ActiveSheet.Shapes
         Debug.Print X.Name
     Next X
End Sub

[/vba]

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Ответить

Nic70y

Дата: Понедельник, 14.09.2015, 19:02 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 8791

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

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

Excel 2010

Спасибо Роман!
То что нужно
[vba]

Код

    Dim X
     i = 1
     For Each X In ActiveSheet.Shapes
         Debug.Print X.Name
     Sheets(1).Cells(i, 1).Offset(Cnt, 0) = X.Name
     i = i + 1
     Next

[/vba]

ЮMoney 41001841029809

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Список рисунков (Макросы/Sub)

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