パワーポイントでExcelの埋め込みチャートを更新するには？

Question

私はExcelから作成され、パワーポイントスライドに貼り付けられた30のチャートを持っています。毎月、チャートを手動でクリックして編集して30個の埋め込みチャートを更新する必要があります。

私は、特別なペーストを使用するオプションがあることを知っています。そのため、更新リンクをクリックしてチャートのデータを自動的に更新することができます。ただし、私のグラフは一部のユーザーによって編集する必要があります。特殊オプションを貼り付けても、ユーザーはチャートを編集できません。したがって、私はこのペーストの特別なオプションを使用することができません。

解決策は、パワーポイントにvbaを書くことにあります。どの専門家も、このvbaコードを書いて、すべてのチャートをパワーポイントで更新できるようにすることができますか？私は現在、パワーポイント2007を使用しています。完全なExcelのサポートを提供し

Answer 1

あなたがチャートを編集する必要がある場合は、その後明らかにあなたは基礎となるExcelファイルを編集する必要があり、またはPowerPoint

に編集することができますどちらかあなたはPowerPoint2007を使用していると（パワーポイント2003とは違っています）データシートを持っているIだろう各チャートの下にExcelデータへ

パート1つの

1. リンクExcelファイルのデータ
2. 直接そのデータを使用するためのいずれかの機能を提供し、またはユーザデータと、それを乗り超える

これは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 

Answer 2

これはかなり容易に達成される（この部分は、複数のリンクを処理するように微調整することができます）。

1. （それは、「ファイル名を指定して実行の互換性チェック」の下だ、あなたはその最後のオプションを表示するには、スクロールダウンする必要があります）「ファイルにリンク編集」を選択し、「Officeボタン」をクリックしてください：

   

2. （ "リンク" とここで呼ばれる）すべての埋め込みグラフを選択し、 "今すぐ更新" をクリックします。

   

同じウィンドウを使用して、リンクを切断し、任意のリンクのソースファイルを変更することができます。