我有一個作業簿，我可以在其中為某種待辦事項串列創建列印輸出。每個待辦事項串列具有相同數量的單元格/大小。我想將每個串列匯出為 jpg 檔案，而不是列印這些串列。我找到了這個執行緒：VBA - Range to jpg 圖片這讓我開始了，但我不確定如何將檔案名設定為所選范圍內的 2 個單元格的組合。
范圍始終為 6x23 單元格
示例范圍 1：B2:G24
檔案名應為 = F2& C24&".jgp"
示例范圍 2：J27:O49
檔案名應為 = N27& K49&".jgp"
此代碼將所選范圍匯出為 Case.jpg
Sub Export()
Dim oWs As Worksheet
Dim oRng As Range
Dim oChrtO As ChartObject
Dim lWidth As Long, lHeight As Long
Set oWs = ActiveSheet
Set oRng = Selection
oRng.CopyPicture xlScreen, xlPicture
lWidth = oRng.Width
lHeight = oRng.Height
Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight)
oChrtO.Activate
With oChrtO.Chart
.Paste
.Export Filename:="Case.jpg", Filtername:="JPG"
End With
oChrtO.Delete
End Sub
uj5u.com熱心網友回復：
如果oRng是您的選擇，則第一個單元格（Range1 的 F2）將是oRng.Cells(1, 5)，另一個（Range1 的 C24）將是oRng.Cells(23, 2)
所以：
.Export Filename:="C:\Test\" & oRng.Cells(1, 5).Value & "-" & _
oRng.Cells(23, 2).Value & ".jpg", Filtername:="JPG"
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/372347.html
上一篇：Excel按可變小數位舍入