PPT2000: 範例 Visual Basic 程式碼來更新 Excel 圖表中的連結

文章翻譯 文章翻譯
文章編號: 251337 - 檢視此文章適用的產品。
本文已封存。本文係以「現狀」提供且不會再更新。
全部展開 | 全部摺疊

在此頁中

結論

本文提供範例 Microsoft Visual Basic 應用程式巨集 (Sub 程序),更新在 Microsoft PowerPoint 投影片上的 Microsoft Excel 圖表物件內連結。

其他相關資訊

Microsoft 僅,為了說明提供程式設計範例,不提供任何明示或默示的保證。這包括,但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已熟悉使用我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能,但它們不會修改這些範例以提供附加功能或建構程序,以符合您特定需求。注意: 只在 PowerPoint 中的下列的巨集範例運作。Microsoft PowerPoint 檢視器不支援 Visual Basic 應用程式的巨集。如需詳細資訊按一下 [下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項]:您可以執行範例 Visual Basic 巨集之前您必須加入至 Microsoft Excel 9.0 物件程式庫模型的參考。若要新增參考:
  1. 在 [工具] 功能表上指向 [巨集,然後按一下 [Visual Basic 編輯器]。
  2. 按一下 [工具] 功能表 引用項目
  3. 在 [引用項目-VBAProject] 對話方塊按一下以選取 [Microsoft Excel 9.0 物件程式庫] 核取方塊。
  4. 按一下 [確定]

    現在您已經有這個專案中) 中的參考至圖表 9.0 物件模型。

應用程式程序的範例 Visual Basic

   Sub UpdateAllGraphs()

      Dim oShape As Shape
      Dim oSlide As Slide
      Dim oGraph As Object

      ' Loop through each slide in the presentation.
      For Each oSlide In ActivePresentation.Slides

         ' Loop through all the shapes on the current slide.
         For Each oShape In oSlide.Shapes

            ' Check whether the shape is an Excel linked OLE object.
            If oShape.Type = msoLinkedOLEObject Then

               ' Check whether the OLE object is a Chart or a Sheet object.
               If oShape.OLEFormat.ProgID = "Excel.Chart.9" _
               Or oShape.OLEFormat.ProgID = "Excel.Sheet.9" Then

                  ' Found a Chart; obtain object reference, and
                  ' then update.
                  Set oGraph = oShape.OLEFormat.Object
                  oGraph.Application.Update

               End If
            End If
         Next oShape
      Next oSlide

   End Sub
				

?考

如需有關如何使用本文中的範例程式碼的詳細資訊,按一下 [下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項]:
212536OFF2000: 如何執行範例程式碼從眭舑恅梒

屬性

文章編號: 251337 - 上次校閱: 2013年10月20日 - 版次: 2.2
這篇文章中的資訊適用於:
  • Microsoft PowerPoint 2000 Standard Edition
關鍵字:?
kbnosurvey kbarchive kbmt kbcode kbdtacode kbhowto kbprogramming KB251337 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:251337
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com