Word (VBA)

Word VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(指定なし : 指定なし)
カーソル位置変更前後の画面表示位置
投稿日時: 21/01/23 11:26:33
投稿者: rodeo540
メールを送信

 
 マクロ実施前のカーソル位置と実施後前後で以下のようにカーソル位置を記憶させますが、
 実施後に表示される画面範囲が違ってきます。
 カーソル位置はもちろん同じなのですが、表示される画面範囲が異なるため、
 初めに違和感を感じてしまいます。
 カーソル位置だけでなく、画面表示まで同じにさせる方法は無いでしょうか?
 
 St = Selection.Start
 Ed = Selection.End
 〜〜ここでカーソル位置を動かしてマクロ実施〜〜
 ActiveDocument.Range(St, Ed).Select
 
 よろしくお願い致します。

回答
投稿日時: 21/01/26 09:35:12
投稿者: Suzu

引用:
カーソル位置はもちろん同じなのですが、表示される画面範囲が異なるため、
 初めに違和感を感じてしまいます。
 カーソル位置だけでなく、画面表示まで同じにさせる方法は無いでしょうか?

 
カーソル位置と言いますか 選択位置ですね。
それを復元しているだけなので、画面表示は追従しません。
 
選択位置が画面外でもこの動作は成り立ちますよね。
 
 
画面のスクロール位置になります。
 
Dim sc As Long
sc = ActiveWindow.ActivePane.VerticalPercentScrolled
 
' 〜〜ここでカーソル位置を動かしてマクロ実施〜〜
 
ActiveWindow.ActivePane.VerticalPercentScrolled = sc

トピックに返信