PP in Excel via Makro nach Präsentation wieder schließen

Question

Hallo zusammen,

ich möchte eine in Excel als Object eingebettete PowerPoint via Makro öffnen, laufen und anschließend wieder schließen lassen.

Öffnen und laufen lassen funktioniert

ActiveSheet.Shapes.Range(Array("Object 3")).Select
Selection.Verb Verb:=xlPrimary

aber schließen klappt leider nicht:

ActiveSheet.Shapes.Range("Object 3").Exit

Statt die PP zu schließen und zur Tabelle zurückzukehren wird der klassische, schwarze Endbildschirm dargestellt und man muss manuell schließen.

Wie muss ich die Zeile umgestalten, damit dies klappt?

Gruß

Answer 1

Hallo,

Nimm unter PowerPoint>>Optionen>Ansicht>Mit schwarzer Folie beenden den Haken raus, damit wäre ein Makro verzichtbar.
Zusätzlich Im Folienübergang der letzten Folie>letzte Folie>automatisch einstellen!

Gruß

Paul1

Answer 2

Nachtrag es soll richtig lauten:

Zusätzlich Im Folienübergang der letzten Folie>nächste Folie>automatisch einstellen!


Gruß

Paul1

[sub]Excel > Access > MS-Office 2003
MS Windows XP Professional SP3
MS Windows 7 Professional SP1
ECDL-Syllabus Version 4.0
FIBU/KORE/PV/KA/AB[/sub]

Answer 3

Hallo Paul1,

vielen Dank für deinen Tipp!

Es läuft :)

Gruß