PPT: 如何使用 AddLine 方法

文章翻譯 文章翻譯
文章編號: 162709 - 檢視此文章適用的產品。
全部展開 | 全部摺疊

在此頁中

結論

本文說明如何使用 Microsoft Visual Basic,為應用程式 AddLine 方法,在您的投影片上建立新行。

其他相關資訊

AddLine 方式使用下列語法:
.AddLine BeginX BeginY (EndX EndY)
注意: 所有 AddLine 參數資料型別是單一。

AddLine 參數

AddLine 方法有四個參數:
   BeginX    The X coordinate (in points) for the starting point of the
             line. The coordinate is relative to the top left corner of the
             slide.

   BeginY    The Y coordinate (in points) for the starting point of the
             line. The coordinate is relative to the top left corner of
             the slide.

   EndX      The X coordinate (in points) for the ending point of the
             line. The position is relative to the bottom left corner of
             the slide.

   EndY      The Y coordinate (in points) for the ending point of the
             line. The position is relative to the bottom left corner of
             the slide.
				

建立線條

Microsoft 僅,為了說明提供程式設計範例,不提供任何明示或默示的保證。這包括,但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已熟悉使用我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能,但它們不會修改這些範例以提供附加功能或建構程序,以符合您特定需求。下列的範例 Visual Basic 程序繪製水平直線跨簡報中第一張投影片的中間。
Sub DrawHorizontalLine()

      Dim longHeight As Long
      Dim longWidth As Long

      ' Get the slide height and width.
      longHeight = ActivePresentation.PageSetup.SlideHeight
      longWidth = ActivePresentation.PageSetup.SlideWidth

      With ActivePresentation.Slides(1).Shapes

         ' Create the line.
         .AddLine 0, (longHeight \ 2), longWidth, (longHeight \ 2)

      End With

   End Sub
				
下列的範例 Visual Basic 程序在簡報中繪製垂直線條下的第一張投影片中間。
   Sub DrawVerticalLine()

      Dim longHeight As Long
      Dim longWidth As Long

      ' Get the slide height and width.
      longHeight = ActivePresentation.PageSetup.SlideHeight
      longWidth = ActivePresentation.PageSetup.SlideWidth

      With ActivePresentation.Slides(1).Shapes

         ' Create the line.
         .AddLine (longWidth \ 2), 0, (longWidth \ 2), longHeight

      End With

   End Sub
				
下列的範例 Visual Basic 程序會繪製兩個斜線。對角線形成一個 X 在簡報中第一張投影片。
    Sub DrawDiagonalLines()

      Dim longHeight As Long
      Dim longWidth As Long

      ' Get the slide height and width.
      longHeight = ActivePresentation.PageSetup.SlideHeight
      longWidth = ActivePresentation.PageSetup.SlideWidth

      With ActivePresentation.Slides(1).Shapes

         ' Create line from top left to bottom right.
         .AddLine 0, 0, longWidth, longHeight

         ' Create line from top right to bottom left.
         .AddLine longWidth, 0, 0, longHeight

      End With

   End Sub

				

使用傳回的值

AddLine 方法會傳回至您所建立的圖形的參考。您可以使用參考來修改線條的屬性。

下列的範例 Visual Basic 程序會使用傳回的值來變更線條色彩和粗細。
Sub ChangeLineColor()

      Dim longHeight As Long
      Dim longWidth As Long

      Dim MyLine As Shape

      ' Get the slide height and width.
      longHeight = ActivePresentation.PageSetup.SlideHeight
      longWidth = ActivePresentation.PageSetup.SlideWidth

      With ActivePresentation.Slides(1).Shapes

         ' Get the return value and create the line.
         Set MyLine = .AddLine(100, 100, 300, 100)

         ' Change line weight to 50 point.
         MyLine.Line.Weight = 50

         ' Change line color to red.
         MyLine.Line.ForeColor.RGB = RGB(255, 0, 0)

      End With

   End Sub

				
注意: 由於 AddLine 方法傳回的物件,使用 Set 命令,取得傳回的圖形參考。

?考

如需有關如何建立 Visual Basic 應用程式的巨集的詳細資訊,按一下 [Office 小幫手] 在 Microsoft PowerPoint],鍵入 如何建立巨集]、 按一下 [搜尋],然後再按一下以檢視 [建立巨集在 Visual Basic 編輯器] 中。

如需有關如何執行 Visual Basic 應用程式的巨集的詳細資訊,按一下 [Office 小幫手] 在 Microsoft PowerPoint],鍵入 如何執行的巨集]、 按一下 [搜尋],然後再按一下來檢視執行巨集。

注意: 如果隱藏 [小幫手] 按一下 [一般] 工具列上的 [Office 小幫手] 按鈕。如果小幫手無法回答您的查詢,請參閱下列的 「 Microsoft 知識庫 」 中的文件:
176476OFF: Office 小幫手無法回答 Visual Basic 問題
如需有關如何取得應用程式的說明與 Visual Basic 的詳細資訊,請參閱 「 Microsoft 知識庫 」 中下列文:
163435VBA: 應用程式的 Visual Basic 程式設計資源

屬性

文章編號: 162709 - 上次校閱: 2006年10月11日 - 版次: 3.2
這篇文章中的資訊適用於:
  • Microsoft PowerPoint 98 for Macintosh
  • Microsoft PowerPoint 97 Standard Edition
關鍵字:?
kbmt kbcode kbdtacode kbhowto kbmacro kbprogramming KB162709 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:162709
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。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