.. highlightlang:: us

.. index:: PageSendToPowerPoint

.. _pagesendtopowerpoint:

PageSendToPowerPoint
====================

.. us.tag  PageSendToPowerPoint GERMAN New5700 PageSet

:ref:`PageSendToPowerPoint` erzeugt eine PowerPoint Datei von den gegebenen
Seiten. Damit die Funktion aufgerufen werden kann, muss PowerPoint auf dem
Rechner installiert sein.

.. function::  bool = PageSendToPowerPoint(hvPage, ssTemplate, ssSaveName, bAppend, bClose)

.. us.return

**Returnwert**

*bool* ist TRUE (1), wenn die Funktion erfolgreich war und sonst FALSE (0).

.. us.params

**Parameter**

.. uparam:: hvPage

   Vektor mit Zugriffsnummern von Dokumentseiten.

.. uparam:: ssTemplate

   *ssTemplate* ist der Namen einer PowerPoint Vorlagendatei. Sieh
   :ref:`file-send-to-powerpoint`. Wenn ein leerer Text übergeben wird, wird
   keine Vorlage verwendet.

.. uparam:: ssSaveName

   Ist der Name unter dem die PowerPoint Datei gespeichert wird.

.. uparam:: bAppend

   Falls *bAppend* TRUE (1) is und eine PowerPoint Datei mit dem *ssSaveName* 
   existiert, werden die Seiten an die existierende Datei angehängt. Falls
   *bAppend* FALSE (0) ist, wird die Datei überschrieben.

.. uparam:: bClose

   Falls *bClose* TRUE ist, wird die PowerPoint-Datei geschlossen.

.. us.example

**Beispiel**

::

   // Select UniPlot document and export to PowerPoint
   RegisterCommand("File", "MyPPExport", "Export IPW/IPZ to Powerpoint");
   UserBar_Add("MyPPExport");

   def MyPPExport()
   {
       ssFilter = _s("UniPlot Files (*.ipw;*.ipz) |*.ipw;*.ipz|All (*.*)  |*.*|");
       svFile = GetOpenFileName("", ssFilter, 1, 1);
       if (svFile[1] == "") {
           return;
       }
   
       ssTemplate = "";
       ssUseTemplate = GetProfileString("settings", "PowerPointTemplate_use");
       if (ssUseTemplate == "1") {
           ssTemplate = GetProfileString("settings", "PowerPointTemplate");
           ssTemplate = MakeFullPath(ssTemplate);
       }
       bAppend = FALSE;
       bClose = TRUE;
       bBoundingBox = (GetProfileInt("settings", "PowerPoint_UseBoundingBox", "", 1) == 1);
   
   
       nFiles = len(svFile);
       for (iFile in 1:nFiles) {
           hDoc = _DocIsOpen(svFile[iFile]);
           if (hDoc != 0) {
               log_warning("", "Ignore open file", "Please close all IPW/IPZ files");
               // ignore open files
               continue;
           }
           
           hDoc = DocCreate(svFile[iFile]);
           if (hDoc == 0) {
               log_error("", svFile[iFile], "Cannot open file");
               continue;
           }
           hvPage = DocGetAllPages(hDoc);
   
           for (i in 1:len(hvPage)) {
               if (PageGetAttrib(hvPage[i]) == 1) {
                   // remove pages with do not print attribute
                   hvPage[i] = 0;
               }
           }
           hvPage = remove(hvPage);
   
           svPath = SplitPath(svFile[iFile]);
           ssSaveName = sum(svPath[1:3]) + ".pptx";
   
           PageSendToPowerPoint(hvPage, ssTemplate, ssSaveName, bAppend, bClose, bBoundingBox);
           DocDestroy(hDoc);
       }
   }

.. seealso::
   :ref:`uberblick-dokument-seiten`,
   :ref:`PageSaveAsMetafile`,
   :ref:`PageSaveAsBitmapEx`,
   :ref:`file-send-to-powerpoint`

:sub:`id-551`