Тип данных ppPasteMetaFilePicture не копирует карту из Excel в PowerPoint - PullRequest
0 голосов
/ 21 октября 2019

Я могу скопировать большой диапазон из Excel, включая несколько диаграмм и таблиц. Однако он не копирует карту, созданную процессом карты Excel. Копирует область карты, но не копирует саму карту. Я использую DataType: = ppPasteMetafilePicture

   Dim newPowerPoint As PowerPoint.Application
    Dim activeSlide As PowerPoint.Slide
    Dim cht As Excel.ChartObject

 'Look for existing instance
    On Error Resume Next
    Set newPowerPoint = GetObject(, "PowerPoint.Application")
    On Error GoTo 0

'Let's create a new PowerPoint
    If newPowerPoint Is Nothing Then
        Set newPowerPoint = New PowerPoint.Application
    End If
'Make a presentation in PowerPoint
    If newPowerPoint.Presentations.Count = 0 Then
        newPowerPoint.Presentations.Add
    End If

'Show the PowerPoint
    newPowerPoint.Visible = True

много кода, за которым следует

Range ("A1: N36"). Выберите Selection.Copy newPowerPoint.ActivePresentation.Slides.Add newPowerPoint. ActivePresentation.Slides.Count +1, ppLayoutObject) .Select

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...