VBA excel to PowerPoint help

[Dremzy]

Hi guys,

I need a macro to copy and paste two images (picture 1 and picture 2) from excel to a new powerpoint slide AS WELL as the following range (F28:O44).

Ideally I would like the two pictures to be in the top left and right of the slide and then the range to be below that (in the powerpoint file).

Can anyone help??

I have found some codes to copy the full range including the pictures however it pastes it like one big image (including gridlines) which is not ideal

 

[Worf]

Hi

See if this helps. What Office version are you using?

' at Excel module
Sub Dremzy()
Dim pres As PowerPoint.Presentation, oppapp As Object, sl As PowerPoint.Slide
On Error Resume Next
Set oppapp = GetObject(, "PowerPoint.Application")
If Err.Number <> 0 Then Set oppapp = CreateObject("PowerPoint.Application")
Err.Clear
On Error GoTo 0
oppapp.Visible = True
Set pres = oppapp.Presentations.Add
Set sl = pres.Slides.Add(1, ppLayoutBlank)
ActiveSheet.Pictures("Image2").Copy
oppapp.ActiveWindow.View.PasteSpecial ppPasteDefault
sl.Shapes(1).Top = 0
sl.Shapes(1).Left = 0
sl.Shapes(1).Height = pres.PageSetup.SlideHeight / 2
ActiveSheet.Pictures("Image3").Copy
oppapp.ActiveWindow.View.PasteSpecial ppPasteDefault
sl.Shapes(2).Top = 0
sl.Shapes(2).LockAspectRatio = msoTrue
sl.Shapes(2).Height = pres.Slides(1).Shapes(1).Height
sl.Shapes(2).Left = pres.PageSetup.SlideWidth - pres.Slides(1).Shapes(2).Width
ActiveSheet.Range("f28:o44").CopyPicture xlScreen, xlBitmap
oppapp.ActiveWindow.View.PasteSpecial ppPasteDefault
sl.Shapes(3).LockAspectRatio = msoTrue
sl.Shapes(3).Height = pres.PageSetup.SlideHeight / 2
sl.Shapes(3).Top = pres.PageSetup.SlideHeight / 2
sl.Shapes(3).Left = (pres.PageSetup.SlideWidth - pres.Slides(1).Shapes(3).Width) / 2
End Sub