Как загрузить фотографию в пользовательскую форму (Excel-VBA) с помощью PATH и поделиться другими компьютерами? - PullRequest
Новая
       21

Как загрузить фотографию в пользовательскую форму (Excel-VBA) с помощью PATH и поделиться другими компьютерами?

0 голосов
/ 03 ноября 2019

Я использовал EXCEL VBA и создал пользовательскую форму, в которой есть конфигурация после выбора, зависимость выбора, показывающая результаты изображения и текста. Я загрузил изображения из ячейки, в которой изображение PATH записано в графическом окне.

Я использовал следующий код: 

Image1.Picture = LoadPicture (Sheets ("XXX"). Cells (34, 5))

У меня 2 проблемы:

  1. Изображение загружается вверх ногами. Я попытался найти команду ROTATE, заранее попытался сделать изображение на 180 градусов в папке, даже попытался загрузить его в графический блок один за другим, и та же проблема. Кто-нибудь сталкивался с этой проблемой и знает, как помочь мне сделать это на 180 градусов?

  2. Я отправил файл своим коллегам, и они смогли открыть форму пользователя, но когда они щелкнуликнопка SHOW, в которой произошла ошибка, говорит о том, что PATH не найден. Я думаю, это потому, что изображение находится в папке только на моем компьютере. Как я могу поместить его в общую папку и сделать PATH релевантным для всех (при условии, что для каждого компьютера есть разные ПОЛЬЗОВАТЕЛИ)?

Буду признателен за помощь, спасибо, Raz

1 Ответ

0 голосов
/ 03 ноября 2019

Что касается вашей первой проблемы, существует способ поворота изображений с помощью кода VBA, но может быть проще просто повернуть его заранее, чтобы оно отображалось правильно. См. этот пост для получения дополнительной информации.

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

Application.ActiveWorkbook.Path

, чтобы динамически находить путь к файлу Excel, который также будет путем к изображению. Вы также можете сохранить изображение в подпапке в папке файла Excel и создать этот путь следующим образом: 

path=Application.ActiveWorkbook.Path & "\subfoldername"
...