Excel 将过滤范围复制到jpeg

我试图找到一种好方法，将vba代码转换为固定范围

'Create JPG file of the range
'Only enter the Sheet name and the range address
MakeJPG = CopyRangeToJPG("Rapport", "A1:H108")

到过滤范围

'Only the visible cells in the selection
Dim lr As Long
lr = Sheets("Registre").Cells(Application.Rows.Count, 1).End(xlUp).Row
Set Rng = Sheets("Rapport").Range("A1:H" & lr).SpecialCells(xlCellTypeVisible)

任何帮助

---

谢谢

将过滤后的数据复制/粘贴到新工作表或现有工作表上的空白区域，然后将其变为固定范围。将该固定范围传递给

CopyRangeToJPG

code。