☰

Excel：如何在 Excel 中动态定位图像？

tag-icon • tag-icon microsoft-excel pivot-table
Excel：如何在 Excel 中动态定位图像？

有没有办法在 Excel 中始终在数据透视表底部显示图像？基本上，我想知道是否有办法为数据透视表创建图像“页脚”。

答案1

您可以根据需要组合文本框、插入图片和设置格式。确保其宽度和高度应与您的数据透视表相匹配。它也可以只是一张图片。我的示例使用了两张图片。

如果你改变了分组文本框的大小或任何有关的内容，它的名称就会改变，因此确定当前分组文本框的名称并将其更改为一致的名称

在此处输入图片描述 <<< >>>在此处输入图片描述

Sub rename_afoot()
    ActiveSheet.Shapes("Group 78").Name = "afoot"
End Sub

现在文本框有一个已知名称

在此处输入图片描述

我的示例数据透视表在工作簿中将数据源作为定义名称。任何扩展数据的更改都会改变数据透视表范围的大小。

Sub addfooter()
Dim LastRow
ActiveSheet.PivotTables("PivotTable1").RefreshTable
    LastRow = Sheet1.Range("h" & Rows.Count).End(xlUp).Row
ActiveSheet.Shapes("afoot").Select
    Selection.Cut
Range("H" & LastRow + 1).Select
    ActiveSheet.Paste
Range("H" & LastRow + 1).Select
End Sub

在此处输入图片描述

这会将文本框移动到数据透视表下方的单元格。这肯定不是完美的，但你可以调整这个想法。如果数据扩大或缩小宽度，大小将不匹配，但有人可能会对此提供答案。

相关内容