Cómo: utilizar controles de ActiveX en las diapositivas

Importante

Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

Puede agregar controles a las diapositivas para proporcionar un medio sofisticado para intercambiar información con el usuario mientras se esté ejecutando una presentación con diapositivas. Por ejemplo, podría utilizar controles en las diapositivas para permitir que la audiencia de una presentación diseñada para ejecutarse en una exposición pueda seleccionar opciones y, a continuación, ejecutar una presentación personalizada según las opciones elegidas.

Para obtener información general sobre cómo agregar y trabajar con controles, vea How to: Use ActiveX Controls on Documents y How to: Create Custom Dialog Boxes.

Tenga en cuenta lo siguiente cuando trabaje con controles en las diapositivas.

• Un control de una diapositiva está en modo Diseño excepto cuando se está ejecutando la presentación.

• Si desea que el control aparezca en todas las diapositivas de la presentación, agréguelo al patrón de diapositivas.

• La palabra clave Me de un procedimiento de evento para un control de una diapositiva hace referencia a la diapositiva, no al control.

Escribir código de eventos para los controles en las diapositivas es muy similar a escribir código de evento para los controles de formularios. El procedimiento siguiente establece el fondo de la diapositiva el botón "CambiarColor" es sobre cuando se hace clic en el botón.

Private Sub cmdChangeColor_Click()
    With Me
        .FollowMasterBackground = Not .FollowMasterBackground
        .Background.Fill.PresetGradient _
            msoGradientHorizontal, 1, msoGradientBrass
    End With
End Sub

Puede utilizar controles para ofrecer la presentación con diapositivas con herramientas de exploración que son más complejas que las integradas en PowerPoint de Microsoft Office. Por ejemplo, si agrega dos botones denominados "cmdBack" y "cmdForward" al patrón de diapositivas y escribir el código siguiente detrás de ellos, todas las diapositivas basadas en el patrón (y establecidas para que muestren gráficos de fondo del patrón) tendrán estos botones de exploración de aspecto profesional que estarán activos durante una presentación con diapositivas.

Private Sub cmdBack_Click()
    Me.Parent.SlideShowWindow.View.Previous
End Sub

Private Sub cmdForward_Click()
    Me.Parent.SlideShowWindow.View.Next
End Sub

Para trabajar con todos los controles ActiveX en una diapositiva sin que afecte a las otras formas de la diapositiva, puede crear una colección ShapeRange que sólo contenga controles. Después, podrá aplicar propiedades y métodos a toda la colección o recorrer en iteración la colección para trabajar con cada control de forma individual. En el ejemplo siguiente, se alinean todos los controles de la diapositiva uno de la presentación activa y se distribuyen verticalmente.

With ActivePresentation.Slides(1).Shapes
    numShapes = .Count
    If numShapes > 1 Then
        numControls = 0
        ReDim ctrlArray(1 To numShapes)
        For i = 1 To numShapes
            If .Item(i).Type = msoOLEControlObject Then
                numControls = numControls + 1
                ctrlArray(numControls) = .Item(i).Name
            End If
        Next
        If numControls > 1 Then
            ReDim Preserve ctrlArray(1 To numControls)
            Set ctrlRange = .Range(ctrlArray)
            ctrlRange.Distribute msoDistributeVertically, True
            ctrlRange.Align msoAlignLefts, True
        End If
    End If
End With

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.