返回列表 上一主題 發帖

excel頁尾如何像word一樣編輯？

chlich99

帖子
2 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
10 
性別
女 
註冊時間
2012-5-8 
最後登錄
2012-5-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-22 13:54 | 只看該作者

excel頁尾如何像word一樣編輯？

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

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

報價單(空白格式).rar (8.74 KB)

範例

收藏 分享
carol

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
280  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
報價單(空白格式).zip (45.04 KB)
學海無涯_不恥下問

TOP

chlich99

帖子
2 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
10 
性別
女 
註冊時間
2012-5-8 
最後登錄
2012-5-31 
3#
發表於 2012-5-22 16:22 | 只看該作者
回復 2# Hsieh


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

TOP

        靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。
返回列表 上一主題