Иметь файлы.jpg в Excel при использовании ActiveX Image Control

Question

У меня есть файл Excel с несколькими кнопками переключения. Когда кнопка переключения включена и нажата командная кнопка "Рассчитать", мой кадр изображения ActiveX изменяется. Тем не менее, у меня есть все эти файлы в одном каталоге, поэтому я должен был отправить файл моим сотрудникам в архиве. Есть ли способ понравиться, может быть, загрузить их в книгу Excel на скрытом листе?

Спасибо

Answer 1

Я думаю, что функция LoadPicture() будет искать системный файл, так что вы этого не хотите.

Добавить фотографии в изображения на листе. Таким образом, они будут в рабочей книге.

Затем щелкните правой кнопкой мыши на изображение, которое вы только что добавили, и выберите свойства. Выберите свойство изображения и перейдите к файлу изображения.

Вы можете изменить имя, чтобы понять ваши фотографии. Таким образом, они не должны быть Image1 Image2 и т. Д.

Затем в вашем коде установите изображение, которое вы хотите изменить = изображение, которое вы хотите.

If something
    Image1.Picture = Image2.Picture
Else
    Image1.Picture = Image3.Picture
End If

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

Если вы собираетесь хранить их на каком-либо другом листе, вам может потребоваться объявить объект листа и установить его на этот лист

Dim ws As Excel.Worksheet
Set ws = ActiveWorkbook.Sheets("ImageWorksheet")
Image1.Picture = ws.Image3.Picture

или что-то подобное может работать.

ActiveWorkbook.Sheets("ImageWorksheet").Image3.Picture

Что-то вроде того.