本示例显示当前工作表的垂直分页符个数。

MsgBox ActiveSheet.VPageBreaks.Count