Макрос. Отображение картинки

[AnatolSh]

Помогите!!! Очень большая проблема в связи с нехваткой времени на чтение документации

Дано:
1. есть строка с каким-то текстом отображающим свойство предмета
2. строк очень много
3. каждому предмету присвоено его изображение
4. сейчас переход на это изображение осуществляется по гиперссылке, которая открывает его в IE во весь экран.

Необходимо:
1. Лучшее.
Хотелось бы, чтобы рядом со строкой, а может и в статическом окне появлялось изображение.
2. Худшее.
Если есть возможность открыть картинку в окне IE строго по ее размеру. (к сожалению от IE уйти не могу, нет возможности перестроить все компы, где будет просмотрен этот файл)

PS
Если, есть возможность, то киньте готовый код, если в лом, то хотя-бы по функциям (чтобы не читать лишнего)

[EducatedFool]

1. Лучшее.
Хотелось бы, чтобы рядом со строкой, а может и в статическом окне появлялось изображение.

Подойдёт вариант, когда при выделении на листе ячейки, ссылающейся на картинку (не той ячейки, где гиперссылка, а любой другой в той же строке), будет появляться форма указанного Вами размера (к примеру, 640 * 480), в которой будет отображаться нужная картинка?

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

Если такой вариант устроит, то прикрепите к сообщению архив, содержащий:
1) файл Excel, содержащий ячейки с гиперссылками (хотя бы 5 - 10 строк)
2) папку с картинками, на которые ссылаются гиперссылки.

Поясните, в какой части экрана требуется отображать форму (справа внизу, слева вверху, возле ячейки, ...)

PS: Делается всё это очень просто, но на создание примера файла и на подготовку картинок уйдет много времени... поэтому неохота
Будет пример файла с картинками - будет и код.
И никаких больше IE во весь экран

[AnatolSh]

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

Подойдёт вариант, когда при выделении на листе ячейки, ссылающейся на картинку (не той ячейки, где гиперссылка, а любой другой в той же строке), будет появляться форма указанного Вами размера (к примеру, 640 * 480), в которой будет отображаться нужная картинка?

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

[AnatolSh]

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

Поясните, в какой части экрана требуется отображать форму (справа внизу, слева вверху, возле ячейки, ...)

Совсем забыл, картинка справа (если нет затруднений, середина картинки, напротив строки с параметрами

Заранее очень благодарен

[EducatedFool]

Вот что пока получилось: (чувак с молотком в руках выглядит впечатляюще )




К сожалению, пока не знаю, как выровнять картинку относительно ячейки - пример такого кода мне где-то встречался, но сейчас найти его не смог... а реализовывать его с нуля долго (надо учитывать множество нюансов)

Вот весь макрос:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Dim cell As Range: Set cell = Target.EntireRow.Cells(2)
    If cell.Hyperlinks.Count > 0 Then    ' строка с гиперссылкой
        PicPath = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, cell.Hyperlinks(1).Address)
        If Dir(PicPath) <> "" Then    ' картинка найдена
            With F
                .Picture = LoadPicture(PicPath)
                .Width = F.Picture.Width / 33: .Height = F.Picture.Height / 33
                .Caption = cell.Previous: .Show
            End With
        End If
    Else    ' пустая строка
        Unload F
    End If
End Sub

Посмотрите вложение.
Пощелкайте на заполненных ячейках с столбцах Код и Описание
При выделении ячейки в пустой строке (таковой считается строка, во второй ячейке которой отсутствует гиперссылка) форма исчезает с экрана.


========== (добавлено спустя несколько месяцев) ================
Новую (более функциональную) версию этого макроса можно найти здесь: http://excelvba.ru/ShowPictures
(реализован вывод нескольких изображений, и т.д.)

[AnatolSh]

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

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

Огромное спасибо!
И этого с головой для чернового варианта хватит.

[wenden]

Добрый день,не нашел на форуме подходящего решения есть книга с 4
колонками в трех текст, в 4 имя картинки, как сделать чтобы в пятой была сама картинка?
Т.е. считывалась информация с 4 и автоматом в 5 появилась картинка с папки, как должна выглядить строка в 4 чтобы получилось.
Много картинок через копипаст затруднительно..
Да размер картинок одинаков.

[wenden]

Посмотрел на http://www.programmersforum.ru/showp...1&postcount=13 красивое решение,есть ли варианты как то его изменить, чтобы данные считывались с определенной колонки в экселе,надо для работы в школе- журнал для школьников, т.е. имя картинки бралось со столбца,а не с папки.

[EducatedFool]

не нашел на форуме подходящего решения

Ну так создавайте новую тему, прикрепляйте примеры файлов, и ждите ответа.

Закрыто.