Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Graphics in Word to PowerPoint
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
01071512
Message ID:
01071875
Views:
20
Yuri,
Many thanks for this - it will certainly enable me to give them something to achieve their requirement. It now just becomes a question of how complex they want it!

It's just annoying that PowerPoint doesn't appear to import graphics directly from Word.
Many thanks
Caroline

>This may help you started:
>http://support.microsoft.com/default.aspx?scid=kb;en-us;230154
>
>Also, here is an example: copy the contents of the word document, page by page into slides, one slide per page.
>
>
>
>PptApp = CreateObject("Powerpoint.Application")
>PptApp.Visible=.t.
>PptPres = PptApp.Presentations.Add(1)
>
>oWord = Getobject(,"Word.Application")
>lnPageCount=oWord.ActiveDocument.ComputeStatistics(2)
>with oWord.Selection
>	FOR pnPage=1 TO lnPageCount
>		.GoTo(,,,pnPage)
>		lnStart=.Range.Start
>		if lnPageCount >pnPage
>			.GoToNext(1)
>			lnEnd=.Range.Start - 1
>		else
>			.Endkey(6)
>			lnEnd=.Range.Start
>		endif
>		oWord.Activedocument.Range(lnStart,lnEnd).copy
>		
>		* Add a slide
>		= PptPres.Slides.Add(pnPage,pnPage+1)
>		PptPres.Slides(pnPage).Select
>		WITH PptApp.ActiveWindow
>			.Selection.SlideRange.Layout = ppLayoutBlank
>			.View.Paste
>		ENDWITH
>						
>	ENDFOR
>ENDWITH
>
>.....
>
>
>
>
>
>
>>Hi All,
>>This may be a little off subject but I thought someone here might be able to help.
>>I have a program that currently creates mailmerged reports in Word that include various pictures. The client is very happy with the result but someone is now asking to have the same result in PowerPoint.
>>As far as I can see you can create a PowerPoint presentation from a Word document using Outlines and Headings to format the presentation. However this only seems to hold true for text, graphics do not appear to come across.
>>Does anyone have any thoughts on this?
>>Or as a last resort is it easy/possible to automate PowerPoint?
>>Many thanks in anticipation.
>>Caroline
Caroline
Previous
Reply
Map
View

Click here to load this message in the networking platform