標題: [發問] 圖示自動轉JPG問題請教 [打印本頁]

---

作者: rouber590324    時間: 2019-5-22 16:45     標題: 圖示自動轉JPG問題請教

DEAR  ALL 大大
1.圖一為將   Sheet1.Range("A1:B11") 傳存至 \\pcbfs02\C701\生產指示卡圖檔\ -- 以JPG方式.
2.請問若要將EXCEL內部之圖檔  "Picture 1"傳存至 \\pcbfs02\C701\生產指示卡圖檔\ -- 以JPG方式.
   請問圖一程式如何修改.
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\生產指示卡圖檔\ABC.JPG", FilterName:="JPG"
        .Parent.Delete
    End With
End Sub

---

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