Yes it is possible, you asked for "objects or images" in your question, so for example, if you have chart sheets (not charts embeded on a worksheet in this example, but charts on a chart sheet) in your workbook and you want to transfer each one to its own slide in a PowerPoint file, then do this:
Open PowerPoint. Not any file in PowerPoint, just PowerPoint.
Go back to your workbook, press Alt+F11, and from the menu, click Tools > References and establish a reference (by clicking in the box to put a checkmark next to) "Microsoft PowerPoint 11.0 Object Library" where 11.0 will depend on your version of Excel, 11 = version 2003.
Click OK.
Click Insert > Module and paste in the below macro, then press Alt+Q to return to the worksheet.
I stuck a bunch of comments in the code to help explain the process, which tested no problem for me.
If you need objects other than chart sheets (which was only a wild guess on my part to provide an example, as you did not say what "object" you had in mind) then just modify the code accordingly depending on the object you really are dealing with.
Code:
Sub CopyPowerPointTest()
'Open PowerPoint but do not open the destination file
Dim oPowerPoint As New PowerPoint.Application
Dim appPPT As PowerPoint.Application
Dim pptPres As Presentation
Dim pptSlide As Slide
Dim ch As Chart
Dim aChtObj As ChartObject
Dim SlideCount As Long
'Create a new Presentation and add title slide
Set pptPres = oPowerPoint.Presentations.Add
With pptPres.Slides
Set pptSlide = .Add(.Count + 1, ppLayoutTitleOnly)
pptSlide.Shapes.Title.TextFrame.TextRange.Text = "mmol_75's chart copy test"
pptPres.SaveCopyAs (ThisWorkbook.Path & "\mmol_75Test.ppt")
'Reference existing instance of PowerPoint
Set appPPT = GetObject(, "Powerpoint.Application.11")
'Reference active presentation
Set pptPres = appPPT.ActivePresentation
appPPT.ActiveWindow.ViewType = ppViewSlide
'Place each chart sheet in a slide
For Each ch In ThisWorkbook.Charts
ch.CopyPicture Appearance:=xlScreen, Format:=xlPicture, Size:=xlScreen
'Add a new slide
SlideCount = pptPres.Slides.Count
Set pptSlide = pptPres.Slides.Add(SlideCount + 1, ppLayoutBlank)
appPPT.ActiveWindow.View.GotoSlide pptSlide.SlideIndex
'paste and select the chart picture
pptSlide.Shapes.Paste.Select
'align the chart
appPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, msoTrue
appPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, msoTrue
appPPT.ActiveWindow.Selection.SlideRange.Shapes.AddLabel(msoTextOrientationHorizontal, 300, 20, 500, 50).Select
appPPT.ActiveWindow.Selection.ShapeRange.TextFrame.WordWrap = msoFalse
With appPPT.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange
.Characters(Start:=1, Length:=0).Select
.Text = "This is " & ch.Name
With .Font
.Name = "Arial"
.Size = 12
.Bold = msoTrue
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppForeground
End With
End With
Next ch
End With
'Clean up
Set oPowerPoint = Nothing
Set pptSlide = Nothing
Set pptPres = Nothing
Set appPPT = Nothing
End Sub
