あなたがチャートを編集する必要がある場合は、その後明らかにあなたは基礎となるExcelファイルを編集する必要があり、またはPowerPoint
に編集することができますどちらかあなたはPowerPoint2007を使用していると(パワーポイント2003とは違っています)データシートを持っているIだろう各チャートの下にExcelデータへ
パート1つの
- リンクExcelファイルのデータ
- 直接そのデータを使用するためのいずれかの機能を提供し、またはユーザデータと、それを乗り超える
これはExcelが各チャートの基礎となることはパワーポイントを経由して自動的に更新することができないことを除いて、あなたの柔軟なソリューションを提供しますメニュー更新リンクコマンド。
第2
は、各スライド上の各形状グラフを持っているかどうかをそれぞれをテストするために以下のコードを使用することができます。したがって、このコードは、チャートの下にExcelファイル内の最初のExcelリンクを更新する場合に必要なVBAコードせず、
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
すぐにお返事ありがとうございます。私はこのvbaをパワーポイントにコピーアンドペーストして、このvbaを実行することができました。しかし、私は私のドキュメントフォルダ内のファイルを更新するようにポップアップメニューを取得しています。私のソース、すなわちExcelファイルは私のデスクトップフォルダにあります。どうすればポップアップメニューを削除できますか?このVBAのおかげで多くの。 – user1199080
ありがとうございます。私はvbaコードを少し修正して、今は完全に更新しています。このコードは人生の節約になります。再度、感謝します。 – user1199080
これはすばらしい答えです。これもリンクを破ることができますか? – mooseman