Помогите решить следующую задачу.
Имеются 10 рисунков (с1, с2,...,с10). Необходимо чтобы на лист загружалась одна картинка из 10 в случайном порядке.
Имена файлов нужно указать в коде макроса.
1. В коде пунктами помечено, куда вам надо внести изменения.
2. Вверху модуля вставьте эти строки:
Option Explicit
Option Compare Text
Option Base 1
Макрос
Sub Макрос()
'1. В массиве FNs укажите в скобках, сколько рисунков.
Dim Путь As String, FNs(2)
Dim случ As Long
'2. Здесь укажите полное имя папк, в которой находятся файлы.
' На конце не указывайте слеш.
Путь = "C:\Users\User\Desktop\Рисунки"
'3. Здесь укажите имена файлов.
FNs(1) = "Chrysanthemum.jpg"
FNs(2) = "Desert.jpg"
' Подготовка к работе генератора случайных чисел.
Randomize
' Генерирование случайного числа.
случ = Int((UBound(FNs) - 1 + 1) * Rnd + 1)
' Вставка на активный лист рисунка.
ActiveSheet.Pictures.Insert Путь & "\" & FNs(случ)
End Sub