Selection.Align 方法 (Visio)
會對齊兩個以上選取的圖形。
語法
運算式。align (AlignHorizontal、 AlignVertical、 GlueToGuide)
表達 代表 Selection 物件的變數。
參數
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
AlignHorizontal | 必要 | VisHorizontalAlignTypes | 會對齊選取的圖形與橫軸。 如需可能的值,請參閱<備註>。 |
AlignVertical | 必要 | VisVerticalAlignTypes | 會對齊選取的圖形與縱軸。 如需可能的值,請參閱<備註>。 |
GlueToGuide | 選用 | 布林值 | 如果 為 True,則會建立輔助線並黏附選取的圖形;如果 為 False,則不會。 預設值為 False 。 |
傳回值
無
註解
下列 AlignHorizontal的可能值會在Visio 類型程式庫的 VisHorizontalSelectionTypes中宣告。
常數 | 值 | 描述 |
---|---|---|
visHorzAlignCenter | 2 | 會對齊至主要選取圖形的中心 |
visHorzAlignLeft | 1 | 會對齊至主要選取圖形的左側 |
visHorzAlignNone | 0 | 不需水平對齊 |
visHorzAlignRight | 3 | 會對齊至主要選取圖形的右側 |
下列 AlignVertical的可能值會在Visio 類型程式庫的 VisVerticalSelectionTypes中宣告。
常數 | 值 | 描述 |
---|---|---|
visVertAlignBottom | 3 | 會對齊至主要選取圖形的底部 |
visVertAlignMiddle | 2 | 會對齊至主要選取圖形的中間 |
visVertAlignNone | 0 | 不需垂直對齊 |
visVertAlignTop | 1 | 會對齊至主要選取圖形的頂部 |
如果您將非零的值傳遞給 AlignHorizontal 和 AlignVertical,則選取的圖形會重疊。 最近建立的圖形會顯示在疊置順序的前面。
呼叫Align方法相當於按一下 [常用] 索引標籤上的 [位置],然後在 [對齊圖形] 底下設定選項。
範例
這個 Microsoft Visual Basic for Applications (VBA) 巨集會顯示如何使用 Align 方法,將三個圖形垂直對齊。
Public Sub Align_Example()
Dim vsoShape1 As Visio.Shape
Dim vsoShape2 As Visio.Shape
Dim vsoShape3 As Visio.Shape
Set vsoShape1 = Application.ActiveWindow.Page.DrawRectangle(1, 9, 3, 7)
Set vsoShape2 = Application.ActiveWindow.Page.DrawRectangle(3, 6, 5, 5)
Set vsoShape3 = Application.ActiveWindow.Page.DrawRectangle(6, 4, 8, 2)
ActiveWindow.DeselectAll
ActiveWindow.Select vsoShape1, visSelect
ActiveWindow.Select vsoShape2, visSelect
ActiveWindow.Select vsoShape3, visSelect
Application.ActiveWindow.Selection.Align visHorzAlignRight, visVertAlignNone, False
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。