[XL2002] HPageBreaks または VPageBreaks.Location 使用時の "インデックスが有効範囲にありません" エラーについて

発生条件

この現象は、次のすべての条件に該当する場合に発生することがあります。

• HPageBreaks インデックスによって参照されている水平方向の改ページより上にアクティブ セルがある場合。または、VPageBreaks インデックスによって参照されている垂直方向の改ページより左にアクティブ セルがある場合。
  
  
  

• 垂直方向の改ページ位置または水平方向の改ページ位置が、表示可能なウィンドウよりも右側またはブックの表示可能なウィンドウよりも下側にあり、画面から見えなくなっている場合。
  
  

• 次のコードに似た VBA マクロを使用している場合。

  Sub TestHorizontal()
      ActiveSheet.Range("CZ1000").Value = 1
      MsgBox ActiveSheet.HPageBreaks.Count
      MsgBox ActiveSheet.HPageBreaks(1).Location.Address
      MsgBox ActiveSheet.HPageBreaks(2).Location.Address
  End Sub
  
  Sub TestVertical()
      ActiveSheet.Range("CZ1000").Value = 1
      MsgBox ActiveSheet.VPageBreaks.Count
      MsgBox ActiveSheet.VPageBreaks(1).Location.Address
      MsgBox ActiveSheet.VPageBreaks(2).Location.Address
      MsgBox ActiveSheet.VPageBreaks(3).Location.Address
  End Sub
  

注意

このサンプル コードは、プログラミング言語の使用方法の一例であり、マイクロソフトにてその動作を保証するものではありません。
適用するアプリケーションに合わせて修正し、かつ十分なテストを実施したうえで使用してください。

Sub TestHorizontal()

    ActiveSheet.Range("CZ1000").Value = 1

    '"currcell" オブジェクトにアクティブ セルを保存する
    Set currcell = ActiveCell
    Range("a1").SpecialCells(xlCellTypeLastCell).Select

    MsgBox ActiveSheet.HPageBreaks.Count
    MsgBox ActiveSheet.HPageBreaks(1).Location.Address
    MsgBox ActiveSheet.HPageBreaks(2).Location.Address

    '保存しておいたアクティブ セルを再び選択する
    currcell.Select

End Sub

通常、Location プロパティを使用した後、最初のアクティブ セルを再度選択します。最初のセルと最後のセルの間をスクロールするコードを使用した場合、または最後のセルを選択した直後に最初のセルを再選択した場合、エラーは引き続き発生します。このエラーを回避するには画面を再描画し、Location プロパティを再計算する必要があります。前述のコードに以下のコードを追加すると、

Application.ScreenUpdating = False

画面が再描画されないため、問題は引き続き発生します。