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
- Vincule los datos de su archivo de Excel a los datos de Excel debajo de cada gráfico
- Proporcione la capacidad de usar esos datos directamente o anularlos con datos de usuario
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.
-
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):
-
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.