将页脚的图像分配给 excel 文件而不是外部路径

Question

我目前正在创建一个带有数据验证的模板，以便有一个包含 5 个不同位置名称的下拉菜单。选择时，将适当的地址图像插入到 excel 页脚中。我计划分发模板，但我需要将图像保存到 excel 文件中，因为当前文件路径不适用于其他用户。

非常感谢任何帮助

ActiveSheet.PageSetup.LeftFooterPicture.Filename = _
        "X:\Adrian\19.0 Templates\19.1 Test\UK Footer address"

Answer 1

我最初误解了这个问题，但留下这个答案以防将来对其他人有用。作为参考，我将问题陈述误解为：

我担心如果我从本地文件路径创建页眉/页脚图像，当我将文件分发给其他人时，这些图像不会呈现。

这不是页眉/页脚数据的工作方式，这里有一个冗长的解释。

我通过从文件路径添加图片，然后从该位置删除图片（"c:\debug\Leftfooter.png"）进行了测试。换句话说，原始文件路径中不存在文件。这应该与具有不同驱动器映射或权限等的同事基本相同。

重新打开文件后，我仍然可以看到页脚图像，即使它不再存在于我的硬盘上：

如果文件不再存在，图片如何保留在 Excel Footer 中？

现在，图像文件以xl\media\picture1.png 存在在 XLSX 的 .ZIP 存档中。因此，该文件已被合并为 Excel 工作簿的部分，并且不作为对外部文件对象的引用。

我观察到在查询 Sheet1.PageSetup.LeftFooterPicture.Filename 时，返回值现在只是“Leftfooter”（原始文件名，没有 path 限定符）。

再深入挖掘底层 xml，关系似乎映射在 xl\drawings\_rels\vmlDrawing1.vml.rels 中，它通过“rID1”关系 ID 连接到 xl\worksheets\sheet1.xml。

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
    <Relationship Id="rId1" 
      Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" 
      Target="../media/image1.png"/>

Answer 2

您有多种选择，而不是使用本地文件路径：

1. 将映像托管在所有用户都可以访问的共享网络驱动器上。在这种情况下，您需要使用 UNC 路径名，而而不是本地驱动器映射。
2. 在 imgur 等可公开访问的网站上托管图像。这假设用户可以访问互联网，但当然，如果需要，您可以捕获错误。以这种方式添加图像的语法完全相同，您只需将图像 URL 用于 Filename 属性即可。

    Sub f()
    With Sheet1.PageSetup.LeftFooterPicture
        .Filename = "https://i.stack.imgur.com/wc4Ew.jpg"
    End With
    Sheet1.PageSetup.LeftFooter = "&G"
    End Sub

1. 第三种选择是使用嵌入在工作簿中的图像，但这种方法更复杂。

我建议反对选项 #3，而支持上述更简单的选项之一，但如果您倾向于追求它，那么我认为您需要这样做。

1. 在工作簿/工作表中找到图片（这应该不会太难，取决于其名称或其他自定义属性/元数据）。
2. 将图片复制到剪贴板（例如，picture.Select: picture.Copy。
3. 将剪贴板内容转储到用户计算机上的某个位置，这并不像听起来那么容易，并且需要使用一些 WinAPI 调用（可能 -- 这里是 an older and quite verbose way of doing this 和 here 至少更容易，如果不是通过探索ChartObject 类来做这件事的一种小技巧）。进一步的复杂性比比皆是，因为您不能总是假设写入访问、特殊文件夹的存在/位置等，并且通常您还希望之后清理/删除图像，以免弄乱用户的磁盘。李>

Answer 3

正如其他人所说，将图片放入没有文件路径的标题中很棘手。这是我要工作的一个：

Sub ExcelPicToWord()

    'optional - to set the height of the logo in inches
    Const logoHeight As Single = 0.5

    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")

    WordApp.Documents.Add
    
    With WordApp.ActiveDocument
    
        'copy from excel - wherever your logo is
        Sheet1.Shapes("footerLogo").Copy
        
        'paste into text body first
        .Range.Paste
        
        'select the pasted picture - i just have the one picture
        .InlineShapes(.InlineShapes.Count).Select
        
        WordApp.Selection.Cut
        
        With .Sections(1).Headers(wdHeaderFooterPrimary)
            
            'needs to be visible for header paste to work. otherwise, crashes
            WordApp.Visible = True
            
            'this finally pastes the pic into the header
            .Range.Paste
            
            WordApp.Visible = False
            
            'optional - sets the height of the logo, keeping proportions
            With .Range.InlineShapes(.Range.InlineShapes.Count)
            
                .width = Application.InchesToPoints(logoHeight) * (.width / .Height)

                .Height = Application.InchesToPoints(logoHeight)
            
            End With
        
        End With
        
        'because Application.CutCopyMode = False doesn't work here
        ClearClipBoard
    
    End With
    
    WordApp.Visible = True

End Sub

Private Sub ClearClipBoard()
    Dim oData   As New DataObject 'object to use the clipboard

    oData.SetText text:=Empty 'Clear
    oData.PutInClipboard 'take in the clipboard to empty it
End Sub

我得到了 ClearClipboard() 代码here。