VBA - 为图像创建动态路径答案

【问题标题】：VBA - Creating a dynamic path for an ImageVBA - 为图像创建动态路径
【发布时间】：2015-08-15 01:56:53
【问题描述】：

有人可以帮我为我在图像框中显示的图像创建路径吗？此工具旨在供其他人使用。因此，他们必须将其下载到他们的计算机中，并且图像的路径将会改变。我尝试了几种方法，但似乎没有任何效果。这是代码：

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")

非常感谢！！！！！！！！！！

【问题讨论】：

标签： image vba path

【解决方案1】：

试试 thisworkbook.path 或 activeworkbook.path 它将图像保存在同一文件夹中

【讨论】：

【解决方案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 的可能实现。

希望这会有所帮助！

【讨论】：