Добавить случайные изображения в ярлыки

UserForm 2 = 36 кнопок (btn1 thru btn36) Каждая кнопка имеет изображение на ней. Когда я нажимаю кнопку «ДОБАВИТЬ», я бы хотел, чтобы на трех изображениях randon на кнопках отображались три строки в UserForm 1, где указано «Случайное изображение 1».

Прямо сейчас, когда я нажимаю кнопку «ДОБАВИТЬ», он вызывает UserForm1. Когда я нажимаю «OK» на UserForm1, я хотел бы указать, какие три кнопки были вставлены в UserForm1 в электронной таблице.

Чтобы выбрать случайное изображение кнопки, вам нужно будет использовать коллекцию Me.Controls в форме. Например:

Dim cCont As Control For Each cCont In Me.Controls 'DO STUFF HERE Next cCont 

Если вы поместите часы на переменную cCont, вы увидите все свойства, которыми обладает каждый элемент управления. Во-первых, вам придется отфильтровать элементы управления, которые являются кнопками. Затем вам нужно будет посмотреть свойство изображения для этой кнопки, чтобы схватить его и установить во второй форме.

Наконец, чтобы ввести случайный элемент, просто используйте функцию Rand (). Это вернет случайное число от 0 до 1. Если вы умножаете это на количество элементов управления в Me.Controls и округлите его до целого числа, вы получите случайный контроль. Просто убедитесь, что элемент управления, который вы указали, является кнопкой, и вы можете использовать изображение этой кнопки в качестве одного из случайных изображений.

  • VBA: если формат ячейки - это дата, тогда сделайте что-нибудь
  • Преобразование числа в ГГГГММ
  • Отображать отрицательное значение как 0 в excel с использованием пользовательского формата
  • Использование Userform для определения pivot-полей в VBA
  • Как добавить 2 значения времени, которые находятся в разных форматах
  • Ошибка добавления столбцов ListObject в список combobox Userform
  • Захват изображения внутри метки
  • Обработка разных форматов в одном столбце
  • Как использовать данные, введенные в пользовательскую форму в основном модуле
  • Есть ли функция для отображения текущей даты и времени?
  • Как сохранить результат запроса в Integer В Excel VBA
  • Interesting Posts

    Как импортировать последнюю строку из массива файлов excel в другую, используя openpyxl

    Ошибка определения приложения при создании сводной таблицы

    Запланированная задача не запускается с использованием x86-версии Powershell

    «Определенная заявка или ошибка с определением объекта» – Возможность запуска сценария на некоторых ПК, но не другие

    VBA Excel заменяет разрывы строк в ячейке

    Выделение ячейки, если в строке отсутствуют записи

    Макрофункции для увеличения значения ячеек EXCEL

    Ограничение размера VARCHAR в таблицах Excel

    datatable для Excel в c #

    Возможно ли открыть и отредактировать файл Excel в веб-браузере?

    Корреляционная статистика

    Импорт файла Excel в MySQL

    VBA Excel – Блокировка / разблокировка ячеек с использованием условного форматирования?

    Попытка найти формулу excel для разделения сложного текста в excel

    VBA Преобразовать год "yyyy" в один разрядный год

    Давайте будем гением компьютера.