PageSendToPowerPoint

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

bool = PageSendToPowerPoint(hvPage, ssTemplate, ssSaveName, bAppend, bClose)

Returnwert

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

Parameter

hvPage

Vektor mit Zugriffsnummern von Dokumentseiten.

ssTemplate

ssTemplate ist der Namen einer PowerPoint Vorlagendatei. Sieh Datei=>Sende an PowerPoint. Wenn ein leerer Text übergeben wird, wird keine Vorlage verwendet.

ssSaveName

Ist der Name unter dem die PowerPoint Datei gespeichert wird.

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.

bClose

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

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);
    }
}

Siehe auch

Überblick Dokument-Seiten, PageSaveAsMetafile, PageSaveAsBitmapEx, Datei=>Sende an PowerPoint

_id-551