Добрый день. В файле, на каждом листе - только 1 уникальное изображение. Возможно ли как то при помощи UserForm1 в Listbox3 видеть список именно названий всех листов книги?, а не диапазон, указанный мной в ручную в свойствах RowSource Listbox3 и можно ли в какой-то "..Box" рядом c Listbox3 уложить это самое уникальное изображение, находящееся на листе?
Заранее благодарен, С уважением, Артем
Извините, отредактирую файл - выставлю сразу же, так как с изображениями не могу к 100 кб подогнать..
Добрый день. В файле, на каждом листе - только 1 уникальное изображение. Возможно ли как то при помощи UserForm1 в Listbox3 видеть список именно названий всех листов книги?, а не диапазон, указанный мной в ручную в свойствах RowSource Listbox3 и можно ли в какой-то "..Box" рядом c Listbox3 уложить это самое уникальное изображение, находящееся на листе?
Заранее благодарен, С уважением, Артем
Извините, отредактирую файл - выставлю сразу же, так как с изображениями не могу к 100 кб подогнать..artika2000
StoTisteg, Спасибо большое за оперативность, с Listbox уже работаю дальше, благодарю Вас. По поводу картинок. Понимаю Ваше предложение, и хочу сказать, что листов с такими картинками - планируется до 300-400, я думаю, что это наглядно не даст того ожидаемого эффекта, который я бы хотел получить в итоге. извините, может это даст более полное представление, я работаю в полиграфии, это будет список красок и их смешения, и в идеале хотелось бы при выборе в Listbox рядом видеть краску, ее цвет и процент смешения, который как раз указан на картинке. Жаль конечно что в другом цифровом виде таких данных у меня нет :-)
Ну я все равно надеюсь на помощь, с уважением, Артем
StoTisteg, Спасибо большое за оперативность, с Listbox уже работаю дальше, благодарю Вас. По поводу картинок. Понимаю Ваше предложение, и хочу сказать, что листов с такими картинками - планируется до 300-400, я думаю, что это наглядно не даст того ожидаемого эффекта, который я бы хотел получить в итоге. извините, может это даст более полное представление, я работаю в полиграфии, это будет список красок и их смешения, и в идеале хотелось бы при выборе в Listbox рядом видеть краску, ее цвет и процент смешения, который как раз указан на картинке. Жаль конечно что в другом цифровом виде таких данных у меня нет :-)
Ну я все равно надеюсь на помощь, с уважением, Артемartika2000
Тогда Вам, наверно, надо не ListBox, а выпадающий список, сиречь ComboBox и рядом с ним картинку, которая при выборе из ComboBox'а будет меняться "на лету".
Тогда Вам, наверно, надо не ListBox, а выпадающий список, сиречь ComboBox и рядом с ним картинку, которая при выборе из ComboBox'а будет меняться "на лету".StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Сообщение отредактировал StoTisteg - Воскресенье, 27.03.2016, 18:23
StoTisteg, Спасибо Вам, я Вас понимаю, но сделать сам это не могу :-), теоретически - мне все равно через какую кнопку это сделать List или ComboBox, но чесно говоря, мои познания мне не позволили самому это воплотить в жизнь :-)
С уважением, Артем
StoTisteg, Спасибо Вам, я Вас понимаю, но сделать сам это не могу :-), теоретически - мне все равно через какую кнопку это сделать List или ComboBox, но чесно говоря, мои познания мне не позволили самому это воплотить в жизнь :-)
Спасибо. Был бы признателен - за саму идею, я думаю, даже если есть варианты с выносом отдельными файлами excel рисунков (не знаю насколько это удобно, хотя представить вес файла с моими 300 -400 картинками, а не теми,что прикреплены в примере), принципиально возможно выйти на такой выбор картинок??
Спасибо. Был бы признателен - за саму идею, я думаю, даже если есть варианты с выносом отдельными файлами excel рисунков (не знаю насколько это удобно, хотя представить вес файла с моими 300 -400 картинками, а не теми,что прикреплены в примере), принципиально возможно выйти на такой выбор картинок??artika2000
Нашел пока одно, кривое, на мой взгляд решение - вставки картинки в ячейку из файла (если речь пойдет о разделении рисунков по файлам). можно пробовать отточить, но не то что-то. [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("B:B"), Target) Is Nothing Then If Application.Dialogs(xlDialogInsertPicture).Show Then With Selection .ShapeRange.LockAspectRatio = msoTrue .Height = Target.Height If .Width > Target.Width Then .Width = Target.Width End If End With End If End If End Sub
[/vba]
Нашел пока одно, кривое, на мой взгляд решение - вставки картинки в ячейку из файла (если речь пойдет о разделении рисунков по файлам). можно пробовать отточить, но не то что-то. [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("B:B"), Target) Is Nothing Then If Application.Dialogs(xlDialogInsertPicture).Show Then With Selection .ShapeRange.LockAspectRatio = msoTrue .Height = Target.Height If .Width > Target.Width Then .Width = Target.Width End If End With End If End If End Sub
Да, спасибо за то что пытаетесь вникнуть в суть. Но здесь скорее уже как мне кажется нечто профессиональное выходит на первый план. Я правильно понимаю- Вы хотите что бы я цвета в цифровом виде из шкалы RGB взял? (если это не так - не смейтесь пожалуйста.) Но - как раз специфика такова, что все цифровые линейки поделены на свои цифровые значения, а вот на моей линейке написано сколько компонентов и именно ЛИТРОВ краски надо мешать в частях, и нет перевода RGB шкалы цифровой в мою PANTON литрах, так сказать. Если такую найдете, я конечно с Вами встречусь, посмотреть в Ваши добрые глаза спасибо сказать :-) Пакеты полиэтиленовые, живая краска, на горячий полиэтилен :-), как мы говорим это у Вас шкала РГБ, а у нАс шкала на глАз :-)
Да, спасибо за то что пытаетесь вникнуть в суть. Но здесь скорее уже как мне кажется нечто профессиональное выходит на первый план. Я правильно понимаю- Вы хотите что бы я цвета в цифровом виде из шкалы RGB взял? (если это не так - не смейтесь пожалуйста.) Но - как раз специфика такова, что все цифровые линейки поделены на свои цифровые значения, а вот на моей линейке написано сколько компонентов и именно ЛИТРОВ краски надо мешать в частях, и нет перевода RGB шкалы цифровой в мою PANTON литрах, так сказать. Если такую найдете, я конечно с Вами встречусь, посмотреть в Ваши добрые глаза спасибо сказать :-) Пакеты полиэтиленовые, живая краска, на горячий полиэтилен :-), как мы говорим это у Вас шкала РГБ, а у нАс шкала на глАз :-)artika2000
нет перевода RGB шкалы цифровой в мою PANTON литрах, так сказать
А это не проблема. Программ, которые вернут вам RGB любой точки любой картинки, в которую Вам угодно будет ткнуть мышою — полон интернет. И тогда Ваша задача сильно упрощается. Делаем палитру на одном листе и выбираем просто и непринуждённо.Тем более если
нет перевода RGB шкалы цифровой в мою PANTON литрах, так сказать
А это не проблема. Программ, которые вернут вам RGB любой точки любой картинки, в которую Вам угодно будет ткнуть мышою — полон интернет. И тогда Ваша задача сильно упрощается. Делаем палитру на одном листе и выбираем просто и непринуждённо.Тем более если
StoTisteg, Спасибо, но совсем не та информация в этом случае мне нужна. Причем совсем не та, что я сейчас вижу. Спасибо Вам за Ваш труд, вернитесь завтра к теме, если можно, я прикреплю файл.
С уважением, Артем
StoTisteg, Спасибо, но совсем не та информация в этом случае мне нужна. Причем совсем не та, что я сейчас вижу. Спасибо Вам за Ваш труд, вернитесь завтра к теме, если можно, я прикреплю файл.