怎样删除Sheet中的垂直分页符

eatmore

我

在一个Sheet中插入了很多图片，希望每个图片能在一页中单独居中打印出来，我已经将图片尺寸放缩到适合一页A4显示，但是总是会有一个右边的垂直分页

符出现，导致打印预览的时候一张图片被垂直分成了两份，但是如果手动把该垂直分页符拖放以删除它，就可以适合页面显示了，现在想在程序里面删除垂直分页

符，用ActiveSheet.VPageBreaks[1].Delete

和DragOff都不行，报数组越界错误，但是明明用ActiveSheet.VPageBreaks.Count可以查看到大于0.请问怎么样做才能把

这些图片每页居中显示并打印？谢谢

方漠

试试以下代码：[em05]

Sub ClearAllVPageBreak()
Dim Sline As VPageBreak
Do
On Error Resume Next
For Each Sline In ActiveSheet.VPageBreaks
    Sline.Delete
Next
Loop Until ActiveSheet.VPageBreaks.Count = 0
End Sub