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

[Jockernsk]

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

Дописал....

куда дописали? =)

[Hugo121]

В предыдущий ответ

[Jockernsk]

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

В предыдущий ответ

Увидел! Спасибо!

[Jockernsk]

В итоге мы имеем готовый макрос:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Dim cell As Range: Set cell = Target.EntireRow.Cells(4)
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
.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
End If
Unload F2
End If

End Sub