Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/иконка на кнопке - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
иконка на кнопке
ASSEI Дата: Воскресенье, 14.01.2018, 12:53 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 69
Репутация: 0 ±
Замечаний: 40% ±

MS Excel prof 2010 плюс
Здравствуйте Ребята! подскажите как кодом установить иконку на кнопку, которая находится на листе1, пример приложил
К сообщению приложен файл: 3459412.rar (17.7 Kb)
 
Ответить
СообщениеЗдравствуйте Ребята! подскажите как кодом установить иконку на кнопку, которая находится на листе1, пример приложил

Автор - ASSEI
Дата добавления - 14.01.2018 в 12:53
sboy Дата: Понедельник, 15.01.2018, 09:49 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
А почему именно с листа? Ведь куда проще из файла загружать.
[vba]
Код
Private Sub UserForm_Initialize()
    fpic = ThisWorkbook.Path & Application.PathSeparator
        For Each cb In Me.Controls
            i = i + 1
            cb.Picture = LoadPicture(fpic & i & "cb.jpg")
        Next
End Sub
[/vba]
К сообщению приложен файл: pic.zip (20.5 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
А почему именно с листа? Ведь куда проще из файла загружать.
[vba]
Код
Private Sub UserForm_Initialize()
    fpic = ThisWorkbook.Path & Application.PathSeparator
        For Each cb In Me.Controls
            i = i + 1
            cb.Picture = LoadPicture(fpic & i & "cb.jpg")
        Next
End Sub
[/vba]

Автор - sboy
Дата добавления - 15.01.2018 в 09:49
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!