Сохранение скриншота в excel

[EducatedFool]

Вот так работает:

Sub RngToJPG()
    Dim rng As Range, oChart As ChartObject, ppApp
    On Error Resume Next
    
    Set ppApp = CreateObject("PowerPoint.Application")

    Application.DisplayAlerts = False: Application.ScreenUpdating = False
    Range("A1:D10").CopyPicture

    Set x = ppApp.Presentations.Add
    Set y = x.Slides.Add(1, ppLayoutBlank)
    y.Shapes.Paste
    x.SaveAs Filename:="D:\123.jpg", FileFormat:=ppSaveAsJPG, EmbedTrueTypeFonts:=msoFalse
    x.Close
    ppApp.Quit

    Application.DisplayAlerts = True: Application.ScreenUpdating = True
End Sub

Если заменить константы значениями - то будет работать и без раннего связывания.

Проблемы:
1) создаётся не файл 123.jpg, а папка 123, содержащая картинки слайдов
2) картинки надо подгонять под размер слайда (или наоборот, не знаю как правильно), иначе на выходе совсем не то что надо

Ваш код не работал, так как надо было запускать приложение ДО помещения картинки в буфер обмена.

[ikki_pf]

мой код из поста #6 работал, создавал папку и картинки со слайдами.
но это не то.
нужна отдельная картинка для отдельного шейпа.

через интерфейс PP - можно сохранить.
через VBA - нельзя.

[ikki_pf]

добавлю (на всякий случай).

макрорекодер - штука безусловно хорошая и полезная.
сам постоянно пользуюсь, даже в знакомом приложении (Excel).
но иногда глючит.

еще раз.
вот то, что записал макрорекодер при сохранении отдельного шейпа через интерфейс PP:

Sub Макрос1()
  ActiveWindow.View.Paste
  ActiveWindow.Selection.Unselect
  ActiveWindow.Selection.SlideRange.Shapes("Picture 5").Select
  ActivePresentation.SaveAs FileName:="D:\Рисунок1.jpg", FileFormat:=ppSaveAsJPG, EmbedTrueTypeFonts:=msoFalse
End Sub

(в буфере обмена имеется картинка)
результат - создан файл D:\Рисунок1.jpg, представлящий собой именно картинку шейпа, а не слайда.

делаем наоборот - копируем картинку в буфер, запускаем чистый PP, создаем макрос в новом модуле

Sub Макрос1()
  ActiveWindow.View.Paste
  ActiveWindow.Selection.Unselect
  With ActiveWindow.Selection.SlideRange
    .Shapes(.Shapes.Count).Select
  End With
  ActivePresentation.SaveAs FileName:="D:\Рисунок1.jpg", FileFormat:=ppSaveAsJPG, EmbedTrueTypeFonts:=msoFalse
End Sub

(макрос чуть подправлен, но не суть)
возвращаемся в PP и запускаем этот макрос.

результат - создается папка D:\Рисунок1, в которой находится один рисунок Слайд1.jpg, представлящий картинку целого слайда.


пс. я, конечно, не профессионал, а любитель. поэтому и спрашиваю совета.
но совет, повторяющий мои "достижения" - это, согласитесь, немного не то, что нужно