Image VBA的资源图像文件？

我有一个word文档，我一直在为它编写VBA，在其中我经常使用它：

LoadPicture(ThisDocument.Path & "image_name")

然而，为了实现这一点，我需要用户在同一个目录中有一个“Images”文件夹，这非常不方便

是否有更好的方法将资源包含在VBA项目中

---

谢谢

为什么不检查文档打开时是否存在该文件夹，如果不存在，则创建该文件夹

Private Sub Document_Open()
    Dim imagesFolder As String

    imagesFolder = ThisDocument.Path & "\images\"
    If Len(Dir(imagesFolder, vbDirectory)) = 0 Then MkDir imagesFolder

End Sub

---

为什么不检查文档打开时是否存在文件夹，如果不存在，则创建文件夹

Private Sub Document_Open()
    Dim imagesFolder As String

    imagesFolder = ThisDocument.Path & "\images\"
    If Len(Dir(imagesFolder, vbDirectory)) = 0 Then MkDir imagesFolder

End Sub

---

我使用Word中的QuickParts来存储它们。创建一个新的文档模板，将图像粘贴到页面上并选择它。然后转到QuickParts并将其添加到库中并保存模板。对要添加的每个项目重复此操作。然后使用VBA代码将模板应用于文档，QuickPart将从模板中拉入。然后使用第二个宏从QuickPart中提取图像。

我使用Word中的QuickPart来存储它们。创建一个新的文档模板，将图像粘贴到页面上并选择它。然后转到QuickParts并将其添加到库中并保存模板。对要添加的每个项目重复此操作。然后使用VBA代码将模板应用于文档，QuickPart将从模板中拉入。然后使用第二个宏从QuickPart中提取图像。

我不知道，但如果有帮助，您可以将图像存储在工作表中？我已经考虑过这一点，但实际上我不太确定如何实现它。这是一个单词，博士。是否有某种方法可以隐藏页面上的一组图像，并通过VBA访问它们？我正好为您提供了一个正确的示例：）请参见此链接饼图是存储在工作表中的图像。该链接中还有一个可下载的文件。在隐藏用户窗体上的图像控件中？我不知道，但如果有帮助的话，您可以将图像存储在工作表中？我考虑过这一点，但实际上我不太确定如何实现它。这是一个单词，博士。是否有某种方法可以隐藏页面上的一组图像，并通过VBA访问它们？我正好为您提供了一个正确的示例：）请参见此链接饼图是存储在工作表中的图像。该链接中还有一个可下载的文件。在隐藏用户窗体上的图像控件中？创建文件夹没有帮助，因为文件夹中仍然没有所有图像。创建文件夹没有帮助，因为文件夹中仍然没有所有图像。