Excel VBA質問箱 IV

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

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


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

20941 / 76732

←次へ　｜　前へ→


	【61199】Re:グラフシート（チャートシート）の左上にスクロールしたい

Abyss - 09/4/16(木) 0:46 -


	引用なし

	パスワード

とにかくScrollさせたいなら↓の方法で。

Private Declare Function FindWindowExA Lib "User32" _
　　(ByVal hParent As Long, _
　　 ByVal hChildAfter As Long, _
　　 ByVal lpszClass As String, _
　　 ByVal lpszWindow As String) As Long
　　
Private Declare Function SendMessageA Lib "User32" _
　　(ByVal Hwnd As Long, _
　　 ByVal Msg As Long, _
　　 ByVal wParam As Long, _
　　 ByVal lParam As Long) As Long

Private Declare Function GetDlgItem Lib "User32" _
　　(ByVal Hwnd As Long, _
　　 ByVal nIDDlgItem As Long) As Long
　　
Private Const WM_HSCROLL = &H114&
Private Const WM_VSCROLL = &H115&
Private Const SB_TOP = &H6&

Public Sub ScrollTopLeft()

　　Dim Hwnd As Long
　　Hwnd = FindWindowExA(Application.Hwnd, 0&, "XLDESK", vbNullString)
　　Hwnd = FindWindowExA(Hwnd, 0&, "EXCEL7", vbNullString)
　　
　　SendMessageA Hwnd, WM_VSCROLL, SB_TOP, GetDlgItem(Hwnd, 2&)
　　SendMessageA Hwnd, WM_HSCROLL, SB_TOP, GetDlgItem(Hwnd, 4&)

End Sub

なお、C#用にAPIを変換するならこちらが
ご参考になるでしょう。

ｈｔｔｐ://www.pinvoke.net/default.aspx/user32.FindWindowEx
ｈｔｔｐ://www.pinvoke.net/default.aspx/user32.SendMessage

0 hits

▼

【61114】グラフシート（チャートシート）の左上にスクロールしたい ほんこ 09/4/10(金) 9:47