本示例显示当前工作表的垂直分页符个数。
MsgBox ActiveSheet.VPageBreaks.Count