Excel: Как динамически позиционировать изображение в Excel?

Question

Есть ли способ отобразить изображение всегда внизу сводной таблицы в Excel? По сути, мне интересно, есть ли способ создать нижний колонтитул для сводной таблицы.

Answer 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

Это переместит текстовое поле в ячейку ниже сводной таблицы. Это определенно не идеально, но вы могли бы адаптировать идею. Если данные расширяются или сужаются по ширине, размер не будет совпадать, но кто-то может предложить ответ на этот вопрос.