Câu trả lời:
Bạn có thể kết hợp các hộp văn bản, chèn hình ảnh và định dạng theo ý muốn. Hãy chắc chắn rằng đó là chiều rộng và chiều cao phù hợp với bảng trụ của bạn. Nó cũng có thể CHỈ LÀ một hình ảnh. Ví dụ của tôi sử dụng hai hình ảnh.
Nếu bạn từng thay đổi kích thước hộp văn bản được nhóm hoặc bất cứ thứ gì về nó, tên của nó sẽ thay đổi, vì vậy hãy xác định tên hộp văn bản được nhóm hiện tại và thay đổi nó thành một cái gì đó phù hợp
<<< >>>
Sub rename_afoot()
ActiveSheet.Shapes("Group 78").Name = "afoot"
End Sub
Vì vậy, bây giờ có một tên được biết đến cho hộp văn bản
Bảng trụ mẫu của tôi có nguồn dữ liệu dưới dạng tên được xác định trong sổ làm việc. Bất kỳ thay đổi nào mở rộng dữ liệu đều thay đổi kích thước của phạm vi bảng trụ.
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
Thao tác này sẽ di chuyển hộp văn bản đến ô bên dưới bảng trụ. Điều này chắc chắn không hoàn hảo, nhưng bạn có thể thích nghi với ý tưởng. Nếu dữ liệu mở rộng hoặc co lại theo chiều rộng, kích thước sẽ không khớp, nhưng ai đó có thể đưa ra câu trả lời cho điều đó.