<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Серый форум &mdash; AutoHotkey: прокрутка колесом мыши в редакторе кода VBA MS Office]]></title>
	<link rel="self" href="https://forum.script-coding.com/extern.php?action=feed&amp;tid=392&amp;type=atom" />
	<updated>2007-04-02T16:34:00Z</updated>
	<generator>PunBB</generator>
	<id>https://forum.script-coding.com/viewtopic.php?id=392</id>
		<entry>
			<title type="html"><![CDATA[AutoHotkey: прокрутка колесом мыши в редакторе кода VBA MS Office]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=2408#p2408" />
			<content type="html"><![CDATA[<p>Автор скрипта - <strong>Rujj</strong>.<br />После запуска VBE подводим курсор мыши к стрелке прокрутки вверх, нажимаем на ALT и прокручиваем колесико мыши вверх. Затем подводим курсор мыши к стрелке прокрутки вниз, нажимаем на ALT и прокручиваем колесико вниз. После этого начинает работать прокрутка кода колесом мыши.<br />Скрипт работает только в окне VBE.<br /></p><div class="codebox"><pre><code>;WellUp и Down для VBA Excell и Word.ahk
#IfWinActive, Microsoft Visual Basic 

~WheelDown::
BlockInput, on
MouseGetPos, x, y
MouseClick, L,  tx,  ty1, 6, 0
mouseMove, %x%, %y%
BlockInput, off
return

~WheelUp::
BlockInput, on
MouseGetPos, x, y
MouseClick, L,  tx,  ty2, 6, 0
mouseMove, %x%, %y%
BlockInput, off
return

!WheelUP::MouseGetPos, tx, ty2
!WheelDown::MouseGetPos, tx, ty1</code></pre></div>]]></content>
			<author>
				<name><![CDATA[The gray Cardinal]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=2</uri>
			</author>
			<updated>2007-04-02T16:34:00Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=2408#p2408</id>
		</entry>
</feed>
