Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

43023 / 76732

←次へ　｜　前へ→


	【38770】Re:改ページする行の取得方法

ichinose - 06/6/9(金) 18:19 -


	引用なし

	パスワード

▼akko さん：
PageBreakオブジェクトにはいくつか不具合がありそうですねえ！！
（そう言えば、印刷ページ総数の算出もPagebreakオブジェクトからアプローチすると
正しい値が算出できなかったと思いました）。

Excel4Macroをさぐってみました。
（Helpを探すのに時間がかかりました、忘れちゃって・・、ファイル名を）
'====================================
Sub test()
　Dim hhpgnum As Long
　Dim hhbk As Long
　With ActiveSheet
　　　.PageSetup.PrintArea = .UsedRange.Address
　　　End With
　hhpgnum = ExecuteExcel4Macro("COLUMNS(GET.DOCUMENT(64))")
　For idx = 1 To hhpgnum
　　hhbk = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64),1," & idx & ")")
　　MsgBox hhbk & "==== " & IIf(Rows(hhbk).PageBreak = xlPageBreakAutomatic, "自動", "手動")
　　Next
End Sub

問題のシートをアクティブにして、試してみて下さい。
正常に作動すれば、改ページ行と改ページの種類が表示されます。
今まで大きく違う点は、Excel4Macroを使用した点と
印刷範囲を指定した点です。

こちらでは、私が提示した今までコードでも正常に作動しているので
うまくいくかわかりませんが、ページ設定で横１×縦○を選んで確認して下さい。

6 hits

▼

【38650】改ページする行の取得方法 akko 06/6/7(水) 19:22