Я могу скопировать большой диапазон из 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