標題: [發問] 表格內容存成相片檔 [打印本頁]

---

作者: fusahe    時間: 2017-5-13 06:46     標題: 表格內容存成相片檔

Private Sub CommandButton1_Click()
Range("A2:i48").Select  
    Range("I1").Activate
Dim Newshape As Shape
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    ActiveSheet.Paste
     Set Newshape = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
     With ActiveSheet.ChartObjects.Add(1, 1, 1, 1)
         .Width = Newshape.Width
         .Height = Newshape.Height
          Newshape.Copy
         .Chart.Paste
         .Chart.Export ActiveWorkbook.Path & "\a1.jpg"
         .Delete
     End With
     Newshape.Delete
   MsgBox "恭喜!圖片已生成並存放在" & ActiveWorkbook.Path

End Sub
此原碼只能存一頁a1.jpg 如果頁次很多就很麻煩,
表格第一頁是(A2:I48) 存檔為A1.JPG
表格第二頁是(A49:I95)存檔為A2.JPG
表格第三頁是(A96:I142)存檔為A3.JPG
表格第四頁是(A143:I189)存檔為A4.JPG
依表格多寡存成JPG檔 麻煩老師解答

---

作者: denniswave    時間: 2017-5-14 08:42

看起來圖片佔的儲存格大小都一樣。
可以用 For 迴圈把
Range("A2:i48").Select
中間的 A2:I48 用變數來去替換就好了。

---

作者: fusahe    時間: 2017-5-14 15:13

回復 2# denniswave
可以幫忙修改嗎

---

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