Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите! Ярлык в UserForm (картинка внутри .xls файла) / 5 сообщений из 5, страница 1 из 1
07.06.2011, 14:43
    #37298866
rubberman
rubberman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите! Ярлык в UserForm (картинка внутри .xls файла)
Доброго дня всем!

KL (XL) - спасибо за ссылку на файл Стивена Буллена ( тема ). Наконец то подогнал свою форму под стили.

У меня только не получается прописать ярлык на картинку, вместо загрузки файла иконки.

В форме планирую использовать только 1 иконку, без возможности её замены.
Саму картинку иконки в битовом формате поместил в UserForm1. Её расположение - Me.Image1

Процедура отвечающая за инициализацию UserForm1 выглядит так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Private Sub UserForm_Activate()

    Set mclsFormChanger = New CFormChanger

    mclsFormChanger.Modal = True
    mclsFormChanger.ShowCaption = True
    mclsFormChanger.ShowCloseBtn = True
    mclsFormChanger.ShowTaskBarIcon = True
    mclsFormChanger.ShowIcon = True
    mclsFormChanger.ShowMaximizeBtn = False
    mclsFormChanger.ShowMinimizeBtn = True
    mclsFormChanger.Sizeable = False
    mclsFormChanger.ShowSysMenu = True
    mclsFormChanger.SmallCaption = False

    Set mclsFormChanger.Form = Me

End Sub

Как и какую процедуру заставить брать рисунок Image1 из UserForm1 и использовать его в качестве иконки?

Помогите, плиз, очень нужно!

Файл прикрепляю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2011, 08:27
    #37299835
Дмит
Дмит
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите! Ярлык в UserForm (картинка внутри .xls файла)
rubberman,

http://www.sql.ru/forum/actualthread.aspx?tid=846212

есть ваша задача, как часть. Только иконка берётся с листа Excel.
Обратите внимание на формат рисунка, не все типы файлов могут быть использованы в качестве иконки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2011, 10:36
    #37299999
rubberman
rubberman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите! Ярлык в UserForm (картинка внутри .xls файла)
Дмит, спасибо!

Какие форматы изображения подходят? Перепрововал вариации с .bmp 4,8,16 бит разрешение брал 12 х 12 (и 16x16)
Выдает ошибку 'Run-time error' Object required на эту строку:
Код: plaintext
    hIcon = pb.Image1.Picture.Handle
Лист и картинка с этим именем есть.

Дмит, если есть время, посмотрите пожалуйста, где моя ошибка. Файл прилагаю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2011, 14:38
    #37300630
Дмит
Дмит
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите! Ярлык в UserForm (картинка внутри .xls файла)
Обратите внимание, лист имеет свойства Name и (Name). Одно из них это надпись на ярлыке листа, тогда - Worksheets("pb").Cells(...), другое - Лист1.Cells(...).
Картинку в лист вставлять надо через панель элементы управления. Тогда проще находить Handle. Можно и на форму. Я использую файл *.ICO, допустимые размеры посмотрите опытным путём ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2011, 23:54
    #37301525
rubberman
rubberman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите! Ярлык в UserForm (картинка внутри .xls файла)
Дмит, наиогромнейшее спасибо!!! Вы очень меня выручили!!!

Употел искать по Инету темы про использование картинок, а вы все кратко-отлично-понятно объяснили. Вэри сэнкс!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите! Ярлык в UserForm (картинка внутри .xls файла) / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 434ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176788]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 153ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 202ms
total:  434ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]