I can't execute the following macro. It kept getting stuck at the line
pptChartData.Activate
please help. thks
Option Explicit
Sub ChangeChartData()
Dim pptChart As Chart
Dim pptChartData As ChartData
Dim xlWorkbook As Object
Dim sld As Slide
Dim shp As Shape
Dim pptWorkbook As Workbook
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.Type = msoChart Then
If shp.HasChart Then
Set pptChart = shp.Chart
Set pptChartData = pptChart.ChartData
pptChartData.Activate
Set pptWorkbook = pptChartData.Workbook
pptWorkbook.Close SaveChanges:=False
End If
End If
Next shp
Next
Set pptWorkbook = Nothing
Set pptChartData = Nothing
Set pptChart = Nothing
SlideShowWindows(1).Activate
End Sub
pptChartData.Activate
please help. thks
Option Explicit
Sub ChangeChartData()
Dim pptChart As Chart
Dim pptChartData As ChartData
Dim xlWorkbook As Object
Dim sld As Slide
Dim shp As Shape
Dim pptWorkbook As Workbook
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.Type = msoChart Then
If shp.HasChart Then
Set pptChart = shp.Chart
Set pptChartData = pptChart.ChartData
pptChartData.Activate
Set pptWorkbook = pptChartData.Workbook
pptWorkbook.Close SaveChanges:=False
End If
End If
Next shp
Next
Set pptWorkbook = Nothing
Set pptChartData = Nothing
Set pptChart = Nothing
SlideShowWindows(1).Activate
End Sub