답변:
텍스트 상자를 결합하고 이미지를 삽입하고 원하는대로 서식을 지정할 수 있습니다. 피벗 테이블과 일치해야하는 너비와 높이인지 확인하십시오. 그것은 또한 단지 이미지 일 수 있습니다. 내 예제에서는 두 개의 이미지를 사용합니다.
그룹화 된 텍스트 상자 크기 나 그 외의 것에 대해 변경 한 경우 이름이 변경되므로 현재 그룹화 된 텍스트 상자 이름을 결정하고 일관된 텍스트로 변경하십시오
& lt; & gt; & gt;
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
그러면 텍스트 상자가 피벗 테이블 아래의 셀로 이동합니다. 이것은 완벽하지는 않지만 아이디어를 개작 할 수는 있습니다. 데이터가 너비를 늘리거나 줄이면 크기가 일치하지 않지만 누군가가 그 너비에 대한 응답을 제공 할 수 있습니다.