Saltar al contenido

¿Cómo actualizar los gráficos incrustados de Excel en PowerPoint?

Es imprescindible entender el código bien antes de usarlo a tu proyecto si ttienes algo que aportar puedes decirlo en los comentarios.

Solución:

Si necesita editar los gráficos, claramente necesitará editar los archivos de Excel subyacentes o podrá editar en PowerPoint

Como está utilizando PowerPoint 2007, que proporciona compatibilidad completa con Excel (a diferencia de PowerPoint 2003, que tiene una hoja de datos), yo

Parte 1

  1. Vincule los datos de su archivo de Excel a los datos de Excel debajo de cada gráfico
  2. Proporcione la capacidad de usar esos datos directamente o anularlos con datos de usuario

Muestra

Esto le brinda una solución flexible, excepto que el Excel subyacente a cada gráfico no se puede actualizar automáticamente a través del comando Actualizar enlaces del menú de PowerPoint.

Parte 2

Puede usar el código a continuación para probar si cada forma en cada diapositiva tiene un gráfico. Si es así, este código actualizará el primer enlace de Excel en el archivo de Excel debajo del gráfico (esta parte se puede modificar para manejar múltiples enlaces)

    Sub ChangeChartData()

    Dim pptChart As Chart
    Dim pptChartData As ChartData
    Dim pptWorkbook As Object
    Dim sld As Slide
    Dim shp As Shape

    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.HasChart Then
                Set pptChart = shp.Chart
                Set pptChartData = pptChart.ChartData
                pptChartData.Activate
                Set pptWorkbook = pptChartData.Workbook
                On Error Resume Next
                'update first link
                pptWorkbook.UpdateLink pptWorkbook.LinkSources(1)
                On Error GoTo 0
                pptWorkbook.Close True
            End If
        Next
    Next

    Set pptWorkbook = Nothing
    Set pptChartData = Nothing
    Set pptChart = Nothing

End Sub

Esto se logra con bastante facilidad, sin necesidad de ningún código VBA.

  1. Haga clic en el “Botón de Office”, seleccione “Editar enlaces al archivo” (está debajo de “Ejecutar verificación de compatibilidad”, tendrá que desplazarse hacia abajo para ver la última opción):

    menú de oficina,

  2. Seleccione todos los gráficos incrustados (referidos aquí como “enlaces”), haga clic en “Actualizar ahora”:

Puede usar la misma ventana para romper enlaces, así como para cambiar el archivo fuente de cualquier enlace dado.

Te mostramos las reseñas y valoraciones de los lectores

Si para ti ha resultado útil nuestro artículo, te agradeceríamos que lo compartas con más entusiastas de la programación de este modo contrubuyes a difundir este contenido.

¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)



Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *