Mover diapositivas a una nueva posición en una presentación

En este tema se muestra cómo usar las clases del SDK de Open XML para Office para mover una diapositiva a una nueva posición en una presentación mediante programación.

---

Obtención de un objeto Presentation

En Open XML SDK, la clase PresentationDocument representa un paquete de documentos de presentación. Para trabajar con un documento de presentación, debe crear primero una instancia de la clase PresentationDocument y, a continuación, trabajar con esa instancia. Para crear la instancia de clase a partir del documento, llame al método Open(String, Boolean) que usa una ruta de acceso de archivo y un valor booleano como segundo parámetro para especificar si un documento es editable. Para contar el número de diapositivas de una presentación, se recomienda abrir el archivo con acceso de solo lectura para evitar escribir accidentalmente el archivo. Para ello, especifique el valor false para el parámetro booleano como se muestra en la siguiente instrucción using. En este código, el parámetro presentationFile es una cadena que representa la ruta del archivo a partir desde donde desea abrir el documento.

C#

    // Open the presentation as read-only.
    using (PresentationDocument presentationDocument = PresentationDocument.Open(presentationFile, false))
    {
        // Insert other code here.
    }

Visual Basic

    ' Open the presentation as read-only.
    Using presentationDocument As PresentationDocument = PresentationDocument.Open(presentationFile, False)
        ' Insert other code here.
    End Using

La instrucción using proporciona una alternativa recomendada a la típica secuencia .Open, .Save, .Close. Asegura que se llamará automáticamente al método Dispose (un método interno que Open XML SDK usa para limpiar recursos) cuando se llegue a la llave de cierre. El bloque que sigue a la instrucción using establece un ámbito para el objeto que se crea o se nombra en la instrucción using, en este caso presentationDocument.

---

Estructura básica de un documento de presentación

La estructura básica de un documento PresentationML consta de varias partes, entre las que se encuentra la parte principal que contiene la definición de la presentación. El siguiente texto de la especificación ISO/IEC 29500 presenta la forma general de un paquete de PresentationML.

La parte principal de un paquete PresentationML comienza con un elemento raíz de presentación. Dicho elemento contiene una presentación que, a su vez, hace referencia a una lista de diapositivas, a otra de patrones de diapositivas, a otra de patrones de notas y a otra de patrones de documentos. La lista de diapositivas hace referencia a todas las diapositivas de la presentación, la de patrones de diapositivas a todos los patrones de diapositivas que se han usado en la presentación, el patrón de notas contiene información acerca del formato de las páginas de notas y el patrón de documentos describe la apariencia de los documentos.

Un documento es un conjunto impreso de diapositivas que se pueden proporcionar a un público.

Al igual que el texto y los gráficos, cada diapositiva puede incluir comentarios y notas, tener un diseño y formar parte de una o varias presentaciones personalizadas. Un comentario es una anotación dirigida a la persona que se encarga del mantenimiento de las diapositivas de la presentación. Una nota es un aviso o texto dirigido al moderador o al público.

Otras características que un documento PresentationML puede incluir son las siguientes: animación, audio, vídeo y transiciones entre diapositivas .

Los documentos PresentationML no se almacenan como un gran cuerpo en una sola parte. En su lugar, los elementos que implementan ciertas agrupaciones de funcionalidades se almacenan en partes independientes. Por ejemplo, todos los comentarios de un documento se almacenan en una parte de comentarios mientras que cada diapositiva cuenta con su propia parte.

© ISO/IEC29500: 2008.

El siguiente ejemplo de código XML representa una presentación que contiene dos diapositivas denotadas por los identificadores 267 y 256.

    <p:presentation xmlns:p="…" … > 
       <p:sldMasterIdLst>
          <p:sldMasterId
             xmlns:rel="https://…/relationships" rel:id="rId1"/>
       </p:sldMasterIdLst>
       <p:notesMasterIdLst>
          <p:notesMasterId
             xmlns:rel="https://…/relationships" rel:id="rId4"/>
       </p:notesMasterIdLst>
       <p:handoutMasterIdLst>
          <p:handoutMasterId
             xmlns:rel="https://…/relationships" rel:id="rId5"/>
       </p:handoutMasterIdLst>
       <p:sldIdLst>
          <p:sldId id="267"
             xmlns:rel="https://…/relationships" rel:id="rId2"/>
          <p:sldId id="256"
             xmlns:rel="https://…/relationships" rel:id="rId3"/>
       </p:sldIdLst>
           <p:sldSz cx="9144000" cy="6858000"/>
       <p:notesSz cx="6858000" cy="9144000"/>
    </p:presentation>

Con el SDK de Open XML, puede crear contenido y estructura de documentos mediante clases fuertemente tipadas que corresponden a elementos PresentationML. Puede encontrar estas clases en el espacio de nombres DocumentFormat.OpenXml.Presentation . En la tabla siguiente se enumeran los nombres de las clases que corresponden a los elementos sld, sldLayout, sldMaster y notesMaster.

Elemento de PresentationML	Open XML SDK (clase)	Descripción
Sld	Diapositiva	Diapositiva de presentación. Es el elemento raíz de SlidePart.
sldLayout	SlideLayout	Diseño de la diapositiva. Es el elemento raíz de SlideLayoutPart.
sldMaster	SlideMaster	Patrón de diapositivas. Es el elemento raíz de SlideMasterPart.
notesMaster	NotesMaster	Patrón de notas (o handoutMaster). Es el elemento raíz de NotesMasterPart.

Funcionamiento del código de ejemplo

Para mover una diapositiva de un archivo de diapositivas a una nueva ubicación, debe conocer el número de diapositivas de la presentación. Por lo tanto, el código de este tema se divide en dos partes. La primera cuenta el número de diapositivas y la segunda mueve la diapositiva a una nueva ubicación.

---

Recuento del número de diapositivas

El código de ejemplo para el recuento del número de diapositivas consta de dos sobrecargas del método CountSlides. La primera sobrecarga usa un parámetro string y la segunda sobrecarga usa un parámetro PresentationDocument. En el primer método CountSlides, el código de ejemplo abre el documento de presentación en la instrucción using. Posteriormente, pasa el objeto PresentationDocument al segundo método CountSlides, que devuelve un número entero que representa la cantidad de diapositivas de la presentación.

C#

    // Pass the presentation to the next CountSlides method
    // and return the slide count.
    return CountSlides(presentationDocument);

Visual Basic

    ' Pass the presentation to the next CountSlides method
    ' and return the slide count.
    Return CountSlides(presentationDocument)

En el segundo método CountSlides, el código comprueba que el objeto PresentationDocument pasado no sea null y si no lo es, obtiene un objeto PresentationPart del objeto PresentationDocument. Mediante el uso de SlideParts, el código obtiene slideCount y lo devuelve.

C#

    // Check for a null document object.
    if (presentationDocument == null)
    {
        throw new ArgumentNullException("presentationDocument");
    }

    int slidesCount = 0;

    // Get the presentation part of document.
    PresentationPart presentationPart = presentationDocument.PresentationPart;

    // Get the slide count from the SlideParts.
    if (presentationPart != null)
    {
        slidesCount = presentationPart.SlideParts.Count();
    }
    // Return the slide count to the previous method.
    return slidesCount;

Visual Basic

    ' Check for a null document object.
    If presentationDocument Is Nothing Then
        Throw New ArgumentNullException("presentationDocument")
    End If

    Dim slidesCount As Integer = 0

    ' Get the presentation part of document.
    Dim presentationPart As PresentationPart = presentationDocument.PresentationPart

    ' Get the slide count from the SlideParts.
    If presentationPart IsNot Nothing Then
        slidesCount = presentationPart.SlideParts.Count()
    End If
    ' Return the slide count to the previous method.
    Return slidesCount

---

Movimiento de una diapositiva de una ubicación a otra

El movimiento de una diapositiva a una nueva ubicación requiere abrir el archivo con acceso lectura/escritura y especificar el valor true en el parámetro booleano como se muestra en la siguiente instrucción using. El código para mover una diapositiva consta de dos sobrecargas del método MoveSlide. El primer método MoveSlide sobrecargado toma tres parámetros: una cadena que representa el nombre y la ruta del archivo de presentación, dos números enteros que representan la ubicación de índice actual de la diapositiva y la ubicación de índice a la que se desea mover la diapositiva, respectivamente. Abre el archivo de presentación, obtiene un objeto PresentationDocument y, a continuación, pasa ese objeto y los dos enteros, de y hacia, al segundo método MoveSlide sobrecargado, que realiza el movimiento real.

C#

    // Move a slide to a different position in the slide order in the presentation.
    public static void MoveSlide(string presentationFile, int from, int to)
    {
        using (PresentationDocument presentationDocument = PresentationDocument.Open(presentationFile, true))
        {
            MoveSlide(presentationDocument, from, to);
        }
    }

Visual Basic

    ' Move a slide to a different position in the slide order in the presentation.
    Public Shared Sub MoveSlide(ByVal presentationFile As String, ByVal [from] As Integer, ByVal [to] As Integer)
        Using presentationDocument As PresentationDocument = PresentationDocument.Open(presentationFile, True)
            MoveSlide(presentationDocument, From, [to])
        End Using
    End Sub

En el segundo método MoveSlide sobrecargado, se llama al método CountSlides para obtener el número de diapositivas de la presentación. El código comprueba si los índices de base cero, de y a, están dentro del intervalo y difieren entre sí.

C#

    public static void MoveSlide(PresentationDocument presentationDocument, int from, int to)
    {
        if (presentationDocument == null)
        {
            throw new ArgumentNullException("presentationDocument");
        }

        // Call the CountSlides method to get the number of slides in the presentation.
        int slidesCount = CountSlides(presentationDocument);

        // Verify that both from and to positions are within range and different from one another.
        if (from < 0 || from >= slidesCount)
        {
            throw new ArgumentOutOfRangeException("from");
        }

        if (to < 0 || from >= slidesCount || to == from)
        {
            throw new ArgumentOutOfRangeException("to");
        }

Visual Basic

    Public Shared Sub MoveSlide(ByVal presentationDocument As PresentationDocument, ByVal [from] As Integer, ByVal [to] As Integer)
        If presentationDocument Is Nothing Then
            Throw New ArgumentNullException("presentationDocument")
        End If

        ' Call the CountSlides method to get the number of slides in the presentation.
        Dim slidesCount As Integer = CountSlides(presentationDocument)

        ' Verify that both from and to positions are within range and different from one another.
        If
            From < 0 OrElse
            From >= slidesCount Then
            Throw New ArgumentOutOfRangeException("from")
        End If

        If [to] < 0 OrElse
            From >= slidesCount OrElse [to] =
            From Then
            Throw New ArgumentOutOfRangeException("to")
        End If

Un objeto PresentationPart se declara y establece como igual a la parte de la presentación del objeto PresentationDocument pasado. El objeto PresentationPart se usa para crear un objeto Presentation y, a continuación, crear un objeto SlideIdList que represente la lista de diapositivas de la presentación desde el objeto Presentation. Se obtiene el identificador de diapositiva de la diapositiva de origen (diapositiva que desea mover) y, a continuación, se identifica la ubicación de la diapositiva de destino (la diapositiva en el orden de diapositivas a la que moverá la diapositiva de origen).

C#

    // Get the presentation part from the presentation document.
    PresentationPart presentationPart = presentationDocument.PresentationPart;

    // The slide count is not zero, so the presentation must contain slides.            
    Presentation presentation = presentationPart.Presentation;
    SlideIdList slideIdList = presentation.SlideIdList;

    // Get the slide ID of the source slide.
    SlideId sourceSlide = slideIdList.ChildElements[from] as SlideId;

    SlideId targetSlide = null;

    // Identify the position of the target slide after which to move the source slide.
    if (to == 0)
    {
        targetSlide = null;
    }
    else if (from < to)
    {
        targetSlide = slideIdList.ChildElements[to] as SlideId;
    }
    else
    {
        targetSlide = slideIdList.ChildElements[to - 1] as SlideId;
    }

Visual Basic

    ' Get the presentation part from the presentation document.
    Dim presentationPart As PresentationPart = presentationDocument.PresentationPart

    ' The slide count is not zero, so the presentation must contain slides.            
    Dim presentation As Presentation = presentationPart.Presentation
    Dim slideIdList As SlideIdList = presentation.SlideIdList

    ' Get the slide ID of the source slide.
    Dim sourceSlide As SlideId = TryCast(slideIdList.ChildElements(From), SlideId)

    Dim targetSlide As SlideId = Nothing

    ' Identify the position of the target slide after which to move the source slide.
    If to = 0 Then
        targetSlide = Nothing
    ElseIf From < to Then
        targetSlide = TryCast(slideIdList.ChildElements(to), SlideId)
    Else
        targetSlide = TryCast(slideIdList.ChildElements(to - 1), SlideId)
    End If

El método Remove del objeto SlideID se usa para eliminar la diapositiva de origen de su ubicación actual y, a continuación, el método InsertAfter del objeto SlideIdList se usa para insertar la diapositiva de origen en la ubicación del índice después de la diapositiva de destino. Por último, se guarda la presentación modificada.

C#

    // Remove the source slide from its current position.
    sourceSlide.Remove();

    // Insert the source slide at its new position after the target slide.
    slideIdList.InsertAfter(sourceSlide, targetSlide);

    // Save the modified presentation.
    presentation.Save();

Visual Basic

    ' Remove the source slide from its current position.
    sourceSlide.Remove()

    ' Insert the source slide at its new position after the target slide.
    slideIdList.InsertAfter(sourceSlide, targetSlide)

    ' Save the modified presentation.
    presentation.Save()

---

Código de ejemplo

A continuación se presenta el código de ejemplo completo que puede usar para mover una diapositiva de una ubicación a otra en el mismo archivo de presentación. Por ejemplo, puede llamar a su programa para mover una diapositiva de la ubicación 0 a la ubicación 1 en un archivo de presentación que se denomina "Myppt11.pptx".

C#

    MoveSlide(@"C:\Users\Public\Documents\Myppt11.pptx", 0, 1);

Visual Basic

    MoveSlide("C:\Users\Public\Documents\Myppt11.pptx", 0, 1)

Después de ejecutar el programa, compruebe la nueva colocación de las diapositivas en el archivo de presentación.

A continuación se incluye el código de ejemplo completo en C# y Visual Basic.

C#

using DocumentFormat.OpenXml.Packaging;
using DocumentFormat.OpenXml.Presentation;
using System;
using System.Linq;

CountSlides(args[0]);

// Counting the slides in the presentation.
static int CountSlides(string presentationFile)
{
    // Open the presentation as read-only.
    using (PresentationDocument presentationDocument = PresentationDocument.Open(presentationFile, false))
    {
        // Pass the presentation to the next CountSlides method
        // and return the slide count.
        return CountSlidesFromPresentation(presentationDocument);
    }
}

// Count the slides in the presentation.
static int CountSlidesFromPresentation(PresentationDocument presentationDocument)
{
    int slidesCount = 0;

    // Get the presentation part of document.
    PresentationPart? presentationPart = presentationDocument.PresentationPart;

    // Get the slide count from the SlideParts.
    if (presentationPart is not null)
    {
        slidesCount = presentationPart.SlideParts.Count();
    }

    // Return the slide count to the previous method.
    return slidesCount;
}

// Move a slide to a different position in the slide order in the presentation.
static void MoveSlide(string presentationFile, int from, int to)
{
    using (PresentationDocument presentationDocument = PresentationDocument.Open(presentationFile, true))
    {
        MoveSlideFromPresentation(presentationDocument, from, to);
    }
}
// Move a slide to a different position in the slide order in the presentation.
static void MoveSlideFromPresentation(PresentationDocument presentationDocument, int from, int to)
{
    if (presentationDocument is null)
    {
        throw new ArgumentNullException("presentationDocument");
    }

    // Call the CountSlides method to get the number of slides in the presentation.
    int slidesCount = CountSlidesFromPresentation(presentationDocument);

    // Verify that both from and to positions are within range and different from one another.
    if (from < 0 || from >= slidesCount)
    {
        throw new ArgumentOutOfRangeException("from");
    }

    if (to < 0 || from >= slidesCount || to == from)
    {
        throw new ArgumentOutOfRangeException("to");
    }

    // Get the presentation part from the presentation document.
    PresentationPart? presentationPart = presentationDocument.PresentationPart;

    // The slide count is not zero, so the presentation must contain slides.            
    Presentation? presentation = presentationPart?.Presentation;

    if (presentation is null)
    {
        throw new ArgumentNullException(nameof(presentation));
    }

    SlideIdList? slideIdList = presentation.SlideIdList;

    if (slideIdList is null)
    {
        throw new ArgumentNullException(nameof(slideIdList));
    }

    // Get the slide ID of the source slide.
    SlideId? sourceSlide = slideIdList.ChildElements[from] as SlideId;

    if (sourceSlide is null)
    {
        throw new ArgumentNullException(nameof(sourceSlide));
    }

    SlideId? targetSlide = null;

    // Identify the position of the target slide after which to move the source slide.
    if (to == 0)
    {
        targetSlide = null;
    }
    else if (from < to)
    {
        targetSlide = slideIdList.ChildElements[to] as SlideId;
    }
    else
    {
        targetSlide = slideIdList.ChildElements[to - 1] as SlideId;
    }

    // Remove the source slide from its current position.
    sourceSlide.Remove();

    // Insert the source slide at its new position after the target slide.
    slideIdList.InsertAfter(sourceSlide, targetSlide);

    // Save the modified presentation.
    presentation.Save();
}

Visual Basic

Imports DocumentFormat.OpenXml.Packaging
Imports DocumentFormat.OpenXml.Presentation


Module MyModule

    Sub Main(args As String())
    End Sub

    ' Count the slides in the presentation.
    Public Function CountSlides(ByVal presentationFile As String) As Integer

        ' Open the presentation as read-only.
        Dim presentationDocument As PresentationDocument = presentationDocument.Open(presentationFile, False)
        Using (presentationDocument)

            ' Pass the presentation to the next CountSlide method
            ' and return the slide count.
            Return CountSlides(presentationDocument)
        End Using
    End Function
    ' Count the slides in the presentation.
    Public Function CountSlides(ByVal presentationDocument As PresentationDocument) As Integer

        ' Check for a null document object.
        If (presentationDocument Is Nothing) Then
            Throw New ArgumentNullException("presentationDocument")
        End If
        Dim slidesCount As Integer = 0

        ' Get the presentation part of the document.
        Dim presentationPart As PresentationPart = presentationDocument.PresentationPart
        If (((presentationPart) IsNot Nothing) AndAlso ((presentationPart.Presentation) IsNot Nothing)) Then

            ' Get the Presentation object from the presentation part.
            Dim presentation As Presentation = presentationPart.Presentation
            If ((presentation.SlideIdList) IsNot Nothing) Then

                ' Get the slide count from the slide ID list.
                slidesCount = presentation.SlideIdList.Elements.Count()

            End If
        End If

        ' Return the slide count to the previous function.
        Return slidesCount
    End Function
    ' Move a slide to a different position in the slide order in the presentation.
    Public Sub MoveSlide(ByVal presentationFile As String, ByVal from As Integer, ByVal moveTo As Integer)
        Dim presentationDocument As PresentationDocument = presentationDocument.Open(presentationFile, True)

        Using (presentationDocument)
            MoveSlide(presentationDocument, from, moveTo)
        End Using

    End Sub
    ' Move a slide to a different position in the slide order in the presentation.
    Public Sub MoveSlide(ByVal presentationDocument As PresentationDocument, ByVal from As Integer, ByVal moveTo As Integer)
        If (presentationDocument Is Nothing) Then
            Throw New ArgumentNullException("presentationDocument")
        End If

        ' Use the CountSlides sample to get the number of slides in the presentation.
        Dim slidesCount As Integer = CountSlides(presentationDocument)

        ' Verify that both from and to positions are within range and different from one another.
        If ((from < 0) OrElse (from >= slidesCount)) Then
            Throw New ArgumentOutOfRangeException("from")
        End If

        If ((moveTo < 0) _
                    OrElse ((from >= slidesCount) _
                    OrElse (moveTo = from))) Then
            Throw New ArgumentOutOfRangeException("moveTo")
        End If

        ' Get the presentation part from the presentation document.
        Dim presentationPart As PresentationPart = presentationDocument.PresentationPart

        ' The slide count is not zero, so the presentation must contain slides. 
        Dim presentation As Presentation = presentationPart.Presentation
        Dim slideIdList As SlideIdList = presentation.SlideIdList

        ' Get the slide ID of the source slide.
        Dim sourceSlide As SlideId = CType(slideIdList.ChildElements(from), SlideId)
        Dim targetSlide As SlideId = Nothing

        ' Identify the position of the target slide after which to move the source slide.
        If (moveTo = 0) Then
            targetSlide = Nothing
        ElseIf (from < moveTo) Then
            targetSlide = CType(slideIdList.ChildElements(moveTo), SlideId)
        Else
            targetSlide = CType(slideIdList.ChildElements((moveTo - 1)), SlideId)
        End If

        ' Remove the source slide from its current position.
        sourceSlide.Remove()

        ' Insert the source slide at its new position after the target slide.
        slideIdList.InsertAfter(sourceSlide, targetSlide)

        ' Save the modified presentation.
        presentation.Save()

    End Sub
End Module

Vea también

• Referencia de la biblioteca de clases del SDK de Open XML