excel­¶§À¦p¦ó¹³word¤@¼Ë½s¿è¡H

chlich99

·Q½Ð°Ý¦¹ª©ªºexcel°ª¤â
excel­¶­º¥i°µ½s¿è¡A¦ý¬O­¶§À«oµLªk¹³word¤@¼Ë½s¿èªí®æ¡A¤£ÁA±o¬O§_¦³¨ä¥¦¤èªk¸Ñ¨M
ªþ¤WÀɮסAÀɮפº§Ú¥Î¶À¦âmark°_¨Óªº³¡¥÷¬O­n°µ¬°­¶§À¤º®eªº[attach]11094[/attach]¡CÀµ½Ð¦U¦ì¤j¤jÀ°§Ú·Q·Q¡AÁÂÁ¡I

chlich99

¦^´_ 2# Hsieh


    ÁÂÁ¤j¤j±zªº¦^À³¡A¤£¹L¥i§_³Â·Ð±z§âvbaµ{¦¡ª½±µ¶K¤W¨Ó³o¸Ì¡A¦]¬°§ÚªºÅv­­¤£°÷µLªk¶}±ÒÀɮסAÁÂÁ±z¤F:$

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