графический объект. вопрос

[Bezdar]

SAS888, спасибо, ссылка помогла, все получилось, все классно! НО! У меня нет места на листе, чтобы разместить компактненько эту меняющуюся картинку. Может, есть другое решение? - появилась/исчезла. И еще желательно и описание к картинке добавить (текст). Как и где бы все это совместить?

[SAS888]

Может, есть другое решение? - появилась/исчезла. И еще желательно и описание к картинке добавить (текст).

По событию выбора (изменения) значения в ячейке, отображайте картинку требуемого размера и Label (или TextBox) с соответствующим текстом. Можно на рабочем листе, можно в форме. И запускайте функцию Application.OnTime(...), которая будет закрывать картинку и текст после заданного времени.

[Bezdar]

Сообщение от SAS888

По событию выбора (изменения) значения в ячейке, отображайте картинку требуемого размера и Label (или TextBox) с соответствующим текстом. Можно на рабочем листе, можно в форме. И запускайте функцию Application.OnTime(...), которая будет закрывать картинку и текст после заданного времени.

Спасибо большое! А на форме как картинку отобразить (просто ни разу не сталкивалась)? А картинки загружаются из папки? Надо путь прописывать?

[SAS888]

Создайте форму. Разместите на ней элементы управления "Image" и "Label".
В модуль формы поместите код:

Private Sub UserForm_Initialize()
    Image1.Picture = LoadPicture("E:\Temp\111.jpg")
    Image1.PictureSizeMode = fmPictureSizeModeZoom
    Label1.Caption = "Картинка1"
End Sub

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

[Bezdar]

Спасибо!!!