返回列表 上一主題 發帖

[發問] 表格內容存成相片檔

[發問] 表格內容存成相片檔

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檔 麻煩老師解答

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

TOP

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

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題