Добрый день.
Тема находится в архиве и вопрос в ней не задать.
В посту 13 собственно находится макрос по выводу рисунков в форму.
Вопрос: Как сделать, чтобы в верхний левый угол формы выводилось не содержимое первого столбца, а данное из другого, допустим из 3 или 4-го столбца?[img]file:///C:/Users/User/Downloads/post_78019/01_01/img/%D0%A0%D0%B8%D1%81%20%D0%B2%20%D1%84%D0%BE%D1%80%D0%BC%D0%B5.jpg[/img][img]file:///C:/Users/User/Downloads/post_78019/01_01/img/%D0%A0%D0%B8%D1%81%20%D0%B2%20%D1%84%D0%BE%D1%80%D0%BC%D0%B5.jpg[/img]
Где изменить?
Тема находится в архиве и вопрос в ней не задать.
В посту 13 собственно находится макрос по выводу рисунков в форму.
Вопрос: Как сделать, чтобы в верхний левый угол формы выводилось не содержимое первого столбца, а данное из другого, допустим из 3 или 4-го столбца?[img]file:///C:/Users/User/Downloads/post_78019/01_01/img/%D0%A0%D0%B8%D1%81%20%D0%B2%20%D1%84%D0%BE%D1%80%D0%BC%D0%B5.jpg[/img][img]file:///C:/Users/User/Downloads/post_78019/01_01/img/%D0%A0%D0%B8%D1%81%20%D0%B2%20%D1%84%D0%BE%D1%80%D0%BC%D0%B5.jpg[/img]
Где изменить?
| Код |
|---|
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Dim cell As Range: Set cell = Target.EntireRow.Cells(2) '(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 .Top = Application.Top + 24 .Left = Application.Width + Application.Left - .Width - 18 .Caption = cell.Previous: .Show End With End If Else ' пустая строка Unload F End If End Sub |
Изменено: - 28.04.2016 08:23:26
