Добрый день! Нашел отличный пример создания списка изображений для комплектующих. Сам пример во вложении. Проблема в том, что помимо заполнения маленькими картинками (размер 100*80) в таблице на Листе1, нужно еще заполнить каталог в бОльшем масштабе на Листе2 (200*160, например). В итоге, при смене маленького изображения будет меняться и большое изображение. Вот используемый код:
Код |
---|
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)Dim sAddress As String Dim MyCell As Range On Error Resume Next Set MyCell = Target.Range ChDir ThisWorkbook.Path & "\Банк изображений\" & Target.Name sAddress = Application.GetOpenFilename(Title:="Выберите файл") MyCell.Font.ThemeColor = xlThemeColorDark1 'MyCell.Clear Shapes.AddPicture _ sAddress, False, True, MyCell.Left + 5, MyCell.Top + 5, 100, 80 End Sub |