Excel: Como posicionar a imagem dinamicamente no Excel?

Question

Existe uma maneira de exibir uma imagem sempre na parte inferior da tabela dinâmica no Excel? Basicamente, estou querendo saber se existe uma maneira de criar um rodapé de imagem para uma tabela dinâmica.

    

Answer 1

Você pode combinar caixas de texto, inserir imagens e formatar como quiser. Certifique-se de que é uma largura e altura que deve corresponder à sua tabela dinâmica. Também pode ser apenas uma imagem. Meu exemplo usa duas imagens.

Se você alterar o tamanho da caixa de texto agrupada ou algo sobre ela, o nome dela mudará, então Determine o nome atual da caixa de texto agrupada e altere-o para algo consistente

<<<>>>

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

Então, agora há um nome conhecido para a caixa de texto

Minhatabeladinâmicadeexemplotemaorigemdedadoscomoumnomedefinidonapastadetrabalho.Quaisqueralteraçõesqueexpandemosdadosalteramotamanhodointervalodatabeladinâmica.

Subaddfooter()DimLastRowActiveSheet.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

Isso move a caixa de texto para a célula abaixo da tabela dinâmica. Isso definitivamente não é perfeito, mas você pode adaptar a ideia. Se os dados se expandirem ou contrairem a largura, o tamanho não corresponderá, mas alguém pode oferecer uma resposta para isso.