Hsieh

¦^´_ 1# chlich99


    ­¶­º­¶§À¨ÃµLªk³]­pªí®æ
¥u¯àÂÇ¥ÑVBA±Nªí®æ³¡¤À°µ¦¨¹Ï¤ù´¡¤J
½s¿è¶À¦â°Ï¶ô«á«ö¹wÄý¦C¦L«K¯à±o¨ì®ÄªG
thisworkbook¼Ò²Õ

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

½Æ»s¥N½X

¤@¯ë¼Ò²Õ

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.                 '±NShapeªº¹Ï¤ù¶K¤W¹Ïªíª«¥ó¤¤
   
8.                 With Cht
   
9.                     .Border.LineStyle = 0
   
10.                     .Chart.Paste
    
11.                     '¦b¨Ï¥ÎExport¤èªk, ¹Ïªí¶×¥X¦¨JPG¹ÏÀÉ
    
12.                     .Chart.Export PicName             ', filtername:="JPG"
    
13.                     '§R°£¹Ïªí
    
14.                     .Delete
    
15.                 End With
    
16.            .PageSetup.CenterFooterPicture.Filename = PicName
    
17.            .PageSetup.CenterFooter = "&G"
    
18.             End With
    
19.             Kill PicName
    
20. End Sub

½Æ»s¥N½X

³ø»ù³æ(ªÅ¥Õ®æ¦¡).zip (45.04 KB)

¤U¸ü¦¸¼Æ: 9

2012-5-22 16:00