如何使用PATH将照片上传到用户表单并在其他计算机上显示?

问题描述 投票:0回答:1

我建立了一个用户表单,其中有一个后选择配置,根据选择,该配置显示图像和文本结果。

我从将图像PATH写入图片框的单元中上传了图片。

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

我有两个问题:

  1. 图像被上下颠倒加载。我试图找到一个ROTATE命令,试图使图像预先在文件夹中成180度,甚至试图将其直接一个一个地直接上传到图片框,并且存在相同的问题。如何使其旋转180度?

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

excel vba picturebox
1个回答
0
投票

关于您的第一个问题,有一种使用vba代码旋转图像的方法,但是预先旋转它可能会更容易,这样它才能正确显示。有关更多信息,请参见this post

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

Application.ActiveWorkbook.Path

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

path=Application.ActiveWorkbook.Path & "\subfoldername"
© www.soinside.com 2019 - 2024. All rights reserved.