Excel: Wie positioniere ich ein Bild dynamisch in Excel?

Gibt es eine Möglichkeit, ein Bild immer am unteren Rand der Pivot-Tabelle in Excel anzuzeigen? Grundsätzlich frage ich mich, ob es eine Möglichkeit gibt, eine Bildfußzeile für eine Pivot-Tabelle zu erstellen.

Sie können Textfelder kombinieren, Bilder einfügen und formatieren, wie Sie möchten. Stellen Sie sicher, dass Breite und Höhe mit Ihrem Pivot-Tisch übereinstimmen. Es kann auch nur ein Bild sein. In meinem Beispiel werden zwei Bilder verwendet.

Wenn Sie jemals die Größe des gruppierten Textfelds oder etwas anderes ändern, ändert sich dessen Name. Ermitteln Sie daher den aktuellen Namen des gruppierten Textfelds und ändern Sie ihn in einen konsistenten Namen

<<< >>>

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

Daher gibt es jetzt einen bekannten Namen für das Textfeld

Meine Beispiel-Pivot-Tabelle enthält die Datenquelle als definierten Namen in der Arbeitsmappe. Alle Änderungen, die die Daten erweitern, ändern die Größe des Pivot-Tabellenbereichs.

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

Dadurch wird das Textfeld in die Zelle unter der Pivot-Tabelle verschoben. Dies ist definitiv nicht perfekt, aber Sie können die Idee möglicherweise anpassen. Wenn die Daten die Breite vergrößern oder verkleinern, stimmt die Größe nicht überein, aber möglicherweise bietet jemand eine Antwort darauf an.