私はいくつかの VBA を書いている単語ドキュメントを持っており、その中でこれをよく使用します。
LoadPicture(ThisDocument.Path & "image_name")
ただし、これを機能させるには、ユーザーが同じディレクトリに「Images」フォルダーを作成する必要があり、これは非常に不便です。
VBA プロジェクトにリソースを含めるためのより良い方法はありますか?
ありがとう!
Word の QuickParts を使用してそれらを保存します。新しいドキュメント テンプレートを作成し、画像をページに貼り付けて選択します。次に、QuickParts に移動してライブラリに追加し、テンプレートを保存します。追加するアイテムごとに繰り返します。次に、VBA コードを使用してテンプレートをドキュメントに適用すると、QuickPart がテンプレートから取り込まれます。次に、2 つ目のマクロを使用して、QuickPart から画像を取得します。
ドキュメントを開いたときにフォルダが存在するかどうかを確認し、存在しない場合はフォルダを作成してみませんか?
Private Sub Document_Open()
Dim imagesFolder As String
imagesFolder = ThisDocument.Path & "\images\"
If Len(Dir(imagesFolder, vbDirectory)) = 0 Then MkDir imagesFolder
End Sub