Код отображения фотографий

[Hugo121]

За неимением лучшего
Но может есть другой путь? Я не нашёл...

[Jockernsk]

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

Получается, но немного через ж...
Сделал копию этой формы как F2:

        If Dir(PicPath) <> "" Then    ' картинка найдена
            With F
                .Picture = LoadPicture(PicPath)
                .Width = F.Picture.Width / 33: .Height = F.Picture.Height / 33
                .Top = Application.Top + 24
                .Left = Application.Width + Application.Left - .Width - 18
                .Caption = cell.Previous: .Show
            End With
            With F2
                .Picture = LoadPicture(PicPath)
                .Width = F.Picture.Width / 33: .Height = F.Picture.Height / 33
                .Top = Application.Top + 24
                .Left = Application.Width + Application.Left - .Width - 18
                .Caption = cell.Previous: .Show
            End With
            Unload F2
        End If

Сперва пробовал перебить другой маленькой формой, но она заметно мигает на экране, а так мигает, но хоть не другая

Похоже в конце не хватает End If.
А еще у меня ничего не изменилось. Держись стрелку вниз, курсор добегает до первой строки с картинкой и останавливается, т.к. открылась картинка.

[Hugo121]

В примере хватает - посмотрите внимательно. Это часть Вашего кода...
А копию формы как F2 сделали? Перетащите форму в другой файл, там переименуйте, потом тащите назад - так имхо проще сделать.

[VictorM]

Похоже в конце не хватает End If.

да , нужно добавить.

А еще у меня ничего не изменилось

Все работает!
Только что проверял. Правда мигает форма при переходе, но...

За неимением лучшего

[Jockernsk]

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

В примере хватает - посмотрите внимательно. Это часть Вашего кода...
А копию формы как F2 сделали? Перетащите форму в другой файл, там переименуйте, потом тащите назад - так имхо проще сделать.

Вы правы форму F2 забыл добавить!
Ну что прям не знаю как благодарить! Спасибо большое.
Сильно сократит мне время на проверку фоток на работе!

Понаглею еще чуток: там в первом посте еще вопрос про отображение заголовка был....Помогите, если это возможно.


И еще не знаю как это ко всей книге применить, а не к одному листу.

[Hugo121]

Слепой я, что-ли: один If, один End If есть...
А мигает при переходе с ячейки на ячейку форма и так, внимательно на оригинале посмотрел.

[VictorM]

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

Слепой я, что-ли: один If, один End If есть...
А мигает при переходе с ячейки на ячейку форма и так, внимательно на оригинале посмотрел.

Да, все нормально, все работает!
p.s.
А отзыв поставить не дает))

[Hugo121]

Заголовок:
cell.Previous.Previous

И положите весь этот код в
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

[Jockernsk]

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

Заголовок:
cell.Previous.Previous

мда, своего мозга не хватило допетрить....

А ко всей книги чтоб применить нужно что то вначале изменить...что?

[Hugo121]

Дописал....