Изображение в форме в зависимости от активного листа

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

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

DreOne

Дата: Пятница, 29.01.2016, 21:32 | Сообщение № 1

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

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

Сообщений: 35

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

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

Excel 2010

Здравствуйте, форумчане!
Хочу сделать подарок другу - файл.Пока 2 страницы, но их будет больше.
Есть необходимость в привязке изображения к форме в зависимости от активного листа.
Открыт первый лист - в форме фото первого паука, 2ой лист, фото соответственно второго.
Фотографии будут находиться в одной папке с файлом.
Листов будет около 80 в итоге.Файл прикрепляю в архиве, весит 590.
Заранее спасибо.

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

Саморазвитие - это всё...

Ответить

krosav4ig

Дата: Суббота, 30.01.2016, 01:19 | Сообщение № 2

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

названия файлов должны совпадать со значениями ячейки H3, т.е. Avicularia Versicolor.jpg, Brachipelma Boehmei.jpg и т.д.

К сообщению приложен файл: 9587419.zip (42.6 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

doober

Дата: Суббота, 30.01.2016, 01:20 | Сообщение № 3

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

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

Сообщений: 995

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

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

Excel 2010

Здравствуйте.
2 варианта имени картинки.
Привязано к индексу или имени листа[vba]

Код

Private Sub UserForm_Activate()
    Dim iPath As String

    iPath = ThisWorkbook.Path & "\" & ActiveSheet.Name & ".jpg"
    iPath = ThisWorkbook.Path & "\" & ActiveSheet.Index & ".jpg"
    Image1.Picture = LoadPicture(iPath)
    TextBox1.Text = Now
    TextBox2.Text = "1 таракан"
    TextBox2.SetFocus
End Sub

[/vba]