如何零基礎學習VBA—HorizontalPageBreak和HorizontalResizeMode

2023年06月29日21:52:03 科技 1446

HorizontalPageBreak

在VBA中用於表示Excel工作表中的水平分頁符。水平分頁符用於在打印時將工作表內容劃分為多個頁面。通過使用HorizontalPageBreak對象，可以對工作表進行動態地分頁設置和管理。

HorizontalPageBreak對象具有以下一些常用的屬性和方法：

Location：表示分頁符所在的行號。
DragOff(Direction, RegionIndex)：將分頁符拖動到其他位置。Direction參數指定向上或向下拖動分頁符，RegionIndex參數指定拖動的範圍索引。
Delete：刪除分頁符。

通過使用HorizontalPageBreaks對象，可以訪問和管理工作表中的所有水平分頁符。例如，可以通過以下方式添加一個水平分頁符：

Worksheets("Sheet1").HorizontalPageBreaks.Add Before:=Worksheets("Sheet1").Range("A10")

此代碼將在單元格A10之前添加一個水平分頁符。

1、Location屬性：表示分頁符所在的行號。

Sub GetHorizontalPageBreak()
    Dim ws As Worksheet
    Dim hpb As HorizontalPageBreak
    
    Set ws = Worksheets("Sheet1")
    
    For Each hpb In ws.HPageBreaks
        MsgBox "分頁符位置: " & hpb.Location
    Next hpb
End Sub

這個示例代碼會遍歷名為"Sheet1"的工作表上的所有水平分頁符，並通過消息框顯示每個分頁符的行號。

2、DragOff方法：將分頁符拖動到其他位置。

Sub DragHorizontalPageBreak()
    Dim ws As Worksheet
    Dim hpb As HorizontalPageBreak
    
    Set ws = Worksheets("Sheet1")
    
    '將第一個水平分頁符向下拖動5行
    Set hpb = ws.HPageBreaks(1)
    hpb.DragOff Direction:=xlDown, RegionIndex:=5
End Sub

這個示例代碼將會將名為"Sheet1"的工作表上的第一個水平分頁符向下拖動5行，即將該分頁符從原來的位置移動到當前位置的下方第5行。

3、Delete方法：刪除分頁符。

Sub DeleteHorizontalPageBreak()
    Dim ws As Worksheet
    Dim hpb As HorizontalPageBreak
    
    Set ws = Worksheets("Sheet1")
    
    '刪除第一個水平分頁符
    Set hpb = ws.HPageBreaks(1)
    hpb.Delete
End Sub

這個示例代碼會刪除名為"Sheet1"的工作表上的第一個水平分頁符。

HorizontalResizeMode

是Excel VBA中的一個枚舉類型，用於指定水平調整大小模式。它可以用於調整水平方向上的圖表、形狀和對象的大小。

HorizontalResizeMode枚舉類型具有以下幾個常量：

Both：同時調整對象的左邊界和右邊界以進行水平調整大小。
Center：僅調整對象的左右邊界的位置，而不改變其大小。
Left：僅調整對象的左邊界的位置，而不改變其大小。
None：不進行水平調整大小。
Right：僅調整對象的右邊界的位置，而不改變其大小。

使用HorizontalResizeMode枚舉類型，可以在對圖表、形狀和對象進行水平調整大小時，根據具體需求選擇合適的模式。例如，可以將Left屬性設置為HorizontalResizeMode.Right來使對象的左邊界保持固定，只調整該對象的右邊界位置。

當需要對圖表、形狀和對象進行水平調整大小時，可以使用HorizontalResizeMode枚舉類型中的常量來指定調整方式。以下是根據前面提到的5個常量進行的代碼示例：

1、調整對象的左邊界和右邊界以進行水平調整大小：

Sub ResizeBoth()
    Dim obj As Object
    Set obj = Worksheets("Sheet1").Shapes("Rectangle1") '將Rectangle1替換為實際的形狀或對象名稱
    
    obj.LockAspectRatio = False
    obj.Resize shapeRange.Width * 2, shapeRange.Height '將shapeRange替換為實際的形狀或對象包含的範圍
    
    obj.HorizontalResizeMode = HorizontalResizeMode.Both
End Sub

2、僅調整對象的左右邊界的位置，而不改變其大小：

Sub ResizeCenter()
    Dim obj As Object
    Set obj = Worksheets("Sheet1").Shapes("Rectangle1") '將Rectangle1替換為實際的形狀或對象名稱
    
    obj.HorizontalResizeMode = HorizontalResizeMode.Center
End Sub

3、僅調整對象的左邊界的位置，而不改變其大小：

Sub ResizeLeft()
    Dim obj As Object
    Set obj = Worksheets("Sheet1").Shapes("Rectangle1") '將Rectangle1替換為實際的形狀或對象名稱
    
    obj.HorizontalResizeMode = HorizontalResizeMode.Left
End Sub

4、不進行水平調整大小：

Sub NoResize()
    Dim obj As Object
    Set obj = Worksheets("Sheet1").Shapes("Rectangle1") '將Rectangle1替換為實際的形狀或對象名稱
    
    obj.HorizontalResizeMode = HorizontalResizeMode.None
End Sub

5、僅調整對象的右邊界的位置，而不改變其大小：

Sub ResizeRight()
    Dim obj As Object
    Set obj = Worksheets("Sheet1").Shapes("Rectangle1") '將Rectangle1替換為實際的形狀或對象名稱
    
    obj.HorizontalResizeMode = HorizontalResizeMode.Right
End Sub

注意：上述示例中的"Sheet1"和"Rectangle1"分別表示要操作的工作表和形狀或對象的名稱，你需要根據實際情況進行修改。另外，代碼示例中針對形狀和對象的處理方式略有差異，具體取決於你的需求和使用的對象類型。