如何零基础学习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"分别表示要操作的工作表和形状或对象的名称，你需要根据实际情况进行修改。另外，代码示例中针对形状和对象的处理方式略有差异，具体取决于你的需求和使用的对象类型。