PPT: 如何使用 AddLine 方法

重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。

按一下這裡查看此文章的英文版本: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 程式設計資源
8.00 ppt8 vba vbe powerpnt 8 ppt8.0

警告:本文為自動翻譯

內容

文章識別碼:162709 - 最後檢閱時間:12/04/2015 16:14:17 - 修訂: 3.2

Microsoft PowerPoint 98 for Macintosh, Microsoft PowerPoint 97 Standard Edition

  • kbnosurvey kbarchive kbmt kbcode kbdtacode kbhowto kbmacro kbprogramming KB162709 KbMtzh
意見反應