将过滤范围复制到jpeg

Question

我正在尝试找到一种将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)

任何帮助！

谢谢！