Insert PowerPoint Slide in Word and open (not edit) from one macro

[Erwin Ahlers]

Hello,
I would like to have a macro that inserts a pointer point slide, and
opens it automatically.
I insert the slide with
Set newShape =
Selection.InlineShapes.AddOLEObject(ClassType:="PowerPoint.Slide", _
fileName:="", LinkToFile:=False, DisplayAsIcon:=False)
But after this the slide is already open, but shown in a separate frame
of Word, not in a full screen PowerPoint Window.
I have to click with the mouse outside the frame to close the slide.
Then I can right click on it and select open. Now I have it running in
the normal PowerPoint window.
I played around with the OLEFormat property of the new created shape
(newShape.OKEFormat...). But nothing worked because it is already open.
And I found nothing to close is.
Does anyone have an idea?

Erwin

 

[Cindy M -WordMVP-]

Hi Erwin,

I would like to have a macro that inserts a pointer point slide, and
opens it automatically.
I insert the slide with
Set newShape =
Selection.InlineShapes.AddOLEObject(ClassType:="PowerPoint.Slide", _
fileName:="", LinkToFile:=False, DisplayAsIcon:=False)
But after this the slide is already open, but shown in a separate frame
of Word, not in a full screen PowerPoint Window.
I have to click with the mouse outside the frame to close the slide.
Then I can right click on it and select open. Now I have it running in
the normal PowerPoint window.
I played around with the OLEFormat property of the new created shape
(newShape.OKEFormat...). But nothing worked because it is already open.

Try toggling field code display on (record using Alt+F9 in a macro to get
the syntax). If field codes are displayed that will force Word to
create/open an OLE object in a separate application window, rather than
in-place editing mode.

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail