Блог

Главная - Вопросы по программированию - Как создать 2 диаграммы Excel одну под другой и экспортировать их в 1 изображение в VBScript?

Как создать 2 диаграммы Excel одну под другой и экспортировать их в 1 изображение в VBScript?

#vbscript

Вопрос:

Я должен создать 2 диаграммы Excel друг под другом и экспортировать их вместе в 1 изображение. На данный момент я могу создать 1 диаграмму и экспортировать ее. Я должен работать с VBScript! Только не VBA!

Для этого процесса я должен открыть файл Excel, создать 1 диаграмму с первого листа на первом листе. Затем создайте диаграмму со второго листа, эта диаграмма должна располагаться под первой диаграммой на первом листе. После этого две диаграммы необходимо экспортировать в 1 изображение.

Это код, который я уже создал, но он создает только диаграмму и экспортирует ее в 1 изображение:

 Function TEST()


' *** Save Screenshot

Set Excel = CreateObject("Excel.Application")
Set Stundenreport = Excel.Workbooks.Open ("C:UsersXXXStundenreport_06_2021.xlsx")

Const xlScreen = 1
Const xlPicture = -4147

x = 1
y = Excel.WorksheetFunction.CountIf(Excel.Worksheets(1).UsedRange.Columns, "18.06.2021")

Set strRng1 = Excel.Worksheets(1).Range(Excel.Worksheets(1).Cells(1,x), Excel.Worksheets(1).Cells(1,y))
Set strRng2 = Excel.Worksheets(2).Range("A1:G10")


' 1. Seite

strRng1.CopyPicture xlScreen, xlPicture
lWidth = strRng1.Width
lHeight = strRng1.Height

Set Cht = Excel.Worksheets(1).ChartObjects.Add(0,0,lWidth,lHeight)
Cht.Activate
With Cht.Chart
  .Paste
  .Export "C:UsersXXXScreenshot_Seite1.gif", "GIF"
End With

Cht.Delete


' 2. Seite 

strRng2.CopyPicture xlScreen, xlPicture
lWidth = strRng2.Width
lHeight = strRng2.Height

Set Cht = Excel.Worksheets(1).ChartObjects.Add(0,0,lWidth,lHeight)
Cht.Activate
With Cht.Chart
  .Paste
  .Export "C:UsersXXXScreenshot_Seite2.gif", "GIF"
End With

Cht.Delete

Stundenreport.Close
Excel.Application.Quit

Set Stundenreport = Nothing

End Function```
Метки: