如何使用PATH将照片上传到用户表单（Excel-VBA）并共享其他计算机？

Question

我使用EXCEL VBA并构建了一个用户表单，其中有一个后选择配置，该选择依赖显示图像和文本结果的选择。我从将图像PATH写入其中的单元格中的图片上传到图片框。

我使用了以下代码：

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

我有2个问题：

1. 图像被上下颠倒加载。我试图找到一个ROTATE命令，试图使图像预先在文件夹中成180度，甚至试图将它直接一个一个地直接上传到图片框，并且存在相同的问题。任何有此问题并知道如何帮助我使其达到180度的人吗？

2. 我已将文件发送给我的同事，他们可以打开用户表单，但是当他们单击SHOW按钮时，发生错误，他们说找不到PATH。我猜是因为图像仅在我的计算机上的文件夹中。如何将其放在共享文件夹中并使PATH与所有人相关（假设每台计算机都有不同的USER）？

非常感谢您的帮助，谢谢，拉兹

Answer 1

您的第二个问题可以通过多种方式解决，您可以在工作簿中包含图像并从那里加载它，但是如果您不喜欢它，则可以动态指定路径。当然，在这种情况下，您还必须向同事提供图像文件。如果图像与excel文件存储在同一文件夹中，则可以使用

Application.ActiveWorkbook.Path

以动态查找excel文件的路径，该路径也将是图像的路径。您也可以将图像存储在excel文件文件夹的子文件夹中，然后按以下方式创建该路径：

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