標題: excel頁尾如何像word一樣編輯？ [打印本頁]

---

作者: chlich99    時間: 2012-5-22 13:54     標題: excel頁尾如何像word一樣編輯？

本帖最後由 chlich99 於 2012-5-22 13:55 編輯

想請問此版的excel高手
excel頁首可做編輯，但是頁尾卻無法像word一樣編輯表格，不瞭得是否有其它方法解決
附上檔案，檔案內我用黃色mark起來的部份是要做為頁尾內容的[attach]11094[/attach]。懇請各位大大幫我想想，謝謝！

---

作者: Hsieh    時間: 2012-5-22 16:00

本帖最後由 Hsieh 於 2012-5-22 23:33 編輯

回復 1# chlich99


    頁首頁尾並無法設計表格
只能藉由VBA將表格部分做成圖片插入
編輯黃色區塊後按預覽列印便能得到效果
thisworkbook模組

1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
   
2. LoadFootPic
   
3. End Sub

複製代碼

一般模組

1. Sub LoadFootPic()
   
2. PicName = ThisWorkbook.Path & "\temp.jpg"
   
3.             With ActiveSheet
   
4.             Set shp = .Range("A19:G26")
   
5.             shp.CopyPicture
   
6.                 Set Cht = .ChartObjects.Add(0, 0, shp.Width * 0.95, shp.Height * 0.95)
   
7.                 '將Shape的圖片貼上圖表物件中
   
8.                 With Cht
   
9.                     .Border.LineStyle = 0
   
10.                     .Chart.Paste
    
11.                     '在使用Export方法, 圖表匯出成JPG圖檔
    
12.                     .Chart.Export PicName             ', filtername:="JPG"
    
13.                     '刪除圖表
    
14.                     .Delete
    
15.                 End With
    
16.            .PageSetup.CenterFooterPicture.Filename = PicName
    
17.            .PageSetup.CenterFooter = "&G"
    
18.             End With
    
19.             Kill PicName
    
20. End Sub

複製代碼

[attach]11100[/attach]

---

作者: chlich99    時間: 2012-5-22 16:22

回復 2# Hsieh


    謝謝大大您的回應，不過可否麻煩您把vba程式直接貼上來這裡，因為我的權限不夠無法開啟檔案，謝謝您了:$

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)