<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[Серый форум &mdash; AutoHotkey: прокрутка колесом мыши в редакторе кода VBA MS Office]]></title>
		<link>https://forum.script-coding.com/viewtopic.php?id=392</link>
		<atom:link href="https://forum.script-coding.com/extern.php?action=feed&amp;tid=392&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[Недавние сообщения в теме «AutoHotkey: прокрутка колесом мыши в редакторе кода VBA MS Office».]]></description>
		<lastBuildDate>Mon, 02 Apr 2007 16:34:00 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[AutoHotkey: прокрутка колесом мыши в редакторе кода VBA MS Office]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=2408#p2408</link>
			<description><![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>]]></description>
			<author><![CDATA[null@example.com (The gray Cardinal)]]></author>
			<pubDate>Mon, 02 Apr 2007 16:34:00 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=2408#p2408</guid>
		</item>
	</channel>
</rss>
