表格內容存成相片檔(頁 1) - 程式設計不分區

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

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=98898&ptid=19673]2#[/url] [i]denniswave[/i] [/b]
可以幫忙修改嗎

頁: [1]

麻辣家族討論版版's Archiver

表格內容存成相片檔