[µo°Ý] ¹Ï¥Ü¦Û°ÊÂàJPG°ÝÃD½Ð±Ð

rouber590324

DEAR  ALL ¤j¤j
1.¹Ï¤@¬°±N   Sheet1.Range("A1:B11") ¶Ç¦s¦Ü \\pcbfs02\C701\¥Í²£«ü¥Ü¥d¹ÏÀÉ\ -- ¥HJPG¤è¦¡.
2.½Ð°Ý­Y­n±NEXCEL¤º³¡¤§¹ÏÀÉ  "Picture 1"¶Ç¦s¦Ü \\pcbfs02\C701\¥Í²£«ü¥Ü¥d¹ÏÀÉ\ -- ¥HJPG¤è¦¡.
   ½Ð°Ý¹Ï¤@µ{¦¡¦p¦ó­×§ï.
3.·Ð¤£§[½ç±Ð   THANKS*10000  

¹Ï¤@
Sub AAAAA2()
   Dim rngCopy As Range
    Set rngCopy = Sheet1.Range("A1:B11")
    rngCopy.CopyPicture Format:=xlBitmap
   With ActiveSheet.ChartObjects.Add(, , rngCopy.Width, rngCopy.Height).Chart
        .Paste
        .Export Filename:="\\pcbfs02\C701\¥Í²£«ü¥Ü¥d¹ÏÀÉ\ABC.JPG", FilterName:="JPG"
        .Parent.Delete
    End With
End Sub