VBA - 为图像创建动态路径

Question

是否有人可以帮我创建一个我在图像框中显示的图像的路径？此工具旨在用于其他人。因此，他们必须将其下载到他们的电脑中，并且图像的路径将会改变。我尝试了几种方法，但似乎没有任何工作。下面是代码：

Me.cmdImage2.Picture = LoadPicture("G:\Pedestrian Bridges\New folder with organization\Visual Basic Tool\Tool\New folder\TRB paper Version\Imagenes Finales\Alternative 2.JPG") 

非常感谢!!!!!!!!!!

Answer 1

尝试thisworkbook.path或activeworkbook.path将在同一文件夹

Answer 2

这是一个很好的问题，这是我最近一直在努力保存图像。我会告诉你几行我的代码，这对你也有好处。

您可以使用的第一种可能的方法是实现IO类能够返回应用程序从中运行的路径。你可以通过下面这个例子：

MessageBox.Show(IO.Path.Combine(IO.Directory.GetParent(Application.ExecutablePath).FullName, "myimage.jpg")) 

另一种可能的解决方案是使用环境变量。

为了做到这一点，你需要导入IO类：

using System.IO; 

那么你可以参考一下环境变量是这样的：

DirectoryInfo dst = new DirectoryInfo(Environment.GetEnvironmentVariable("UserProfile") + @"\Desktop\!#!Desktop_Cleanup\" + s + @"_Desktop\" + category); 
Sorters.CopyFiles(src, dst, true, "*."+ extension); 

在我的例子中，我使用存储在Windows中的UserProfile环境变量。然后，知道该路径的位置，我可以将路径添加到我用于清理桌面的桌面上的文件系统。请记住，您需要在包含反斜杠的字符串之前使用@符号，以便正确读取它们而不是转义字符。

Sorters是我制作的一个类，不适用于您的应用程序，但我包含该行，以便您可以看到您创建的DirectoryInfo的可能实现。

希望这会有所帮助！