VBA в Excel: Сохранить группу фигур как изображение в формате JPG?

Question

Я помещаю несколько фигур на изображение в Excel, используя VBA, и хочу сохранить всю группу в формате JPG!

Это НЕ работает вообще:

Sub SaveImageTEST()

    ActiveSheet.Shapes.Range(Array("Picture 1")).SaveAsPicture "worldmap.jpg"

End Sub

Идея состоит в том, чтобы визуализировать данные на карте:

Любой совет, как программировать это на VBA ?!

Answer 1

Лучшее, что я могу придумать, это экспортировать в формате PDF, надеюсь, это поможет.

Sub SaveImage()
    'On Error Resume Next
    Set ws = ActiveSheet
    Set shp = ws.Shapes.Range(Array("Picture 1"))

    Set ch = ws.ChartObjects.Add(shp.Left, shp.Top, shp.Width, shp.Height)
    shp.Select
    Selection.Copy

    ch.Chart.Paste
    Set tt = ch.Chart

    'tt.ExportAsFixedFormat Type:=xlTypePDF, Filename:="c:\outputFileName"
    tt.Export Filename:="C:\test.png", filtername:="PNG"

    ch.Delete

End Sub