Embedding images to PowerPoint

Thu, 27 Mar 2014 07:05:44 GMT

Hi,

I tried coping pasting a table from Access Point to Power Point , I got a package convert pop up box as attached in the image.

Can somebody guide me with the right steps to paste charts from Access Point to Power Point??

Thanks in advance!!

Regards,

Pooja

Re: Embedding images to PowerPoint

VishalWaghole — Thu, 27 Mar 2014 07:43:02 GMT

Use this macro.

Sub ppt

'An array with the objects you want to export to powerpoint

Dim myArray(1)

myArray(0) = "LB01"

'Create ppt object

Set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add

'Apply a template if you want one

'objPresentation.ApplyTemplate _

' ("C:\mytemplate.ppt")

'For each object in the array create a new slide and paste it.

For each item in myArray

Set PPSlide = objPresentation.Slides.Add(1,11)

ActiveDocument.GetSheetObject(item).CopyBitmapToClipboard

PPSlide.Shapes.Paste

Next

'Clean up

Set PPSlide = Nothing

Set PPPres = Nothing

Set PPApp = Nothing

End Sub

then create one button,

Go to button properties -> Action -> select (Run Macro) Action -> In Text box Write Macro Name as ppt -> ok.

Note : Instead of LB01 put your object Id.

- Regards,

Vishal Waghole