[решено] Не работает скрипт смены цвета

[victor21043]

Уважаемый пользователи портала,
Есть docm word 2010 c несколькими кнопками в нём(button,button2 итд).
Как при наведении на конкретную active-кнопку(имя-button) указателем оптического манипулятора("мышь") произвести смену цвета,а при отведении-базовый цвет?
Есть код-но он не работает.
Благодарю
Пример:
For Each ИмяОбъекта In ИмяКоллекции
Операции над объектами
Next ИмяОбъекта
В этом примере показано, как изменить свойство BackColor у всех этикеток (Label), лежащих на форме
Dim x As Object
For Each x In Me.Controls
If TypeName(x) = "Label" Then
x.BackColor = 0
End If
Next x

Листинг


Public Sub button_MouseMove(ByVal Button As Integer, ByVal Shift _
As Integer, ByVal X As Single, ByVal Y As Single)
Dim ctr As Object
For Each Button In Me.Controls
If ctr = Button Then
Me.Button.ForeColor = RGB(180, 91, 62)
End If
Next Button
Me.Button.ForeColor = vbBlack
End Sub

Public Sub Button_click()
With Button
.Caption = IIf(.Caption Like "+*", ">> Ñlose", "+ English")
Me.Shapes(6).Visible = .Caption Like ">> *"
Me.Button.ForeColor = vbBlack
End With
End Sub


Файл

colour.doc 2003 (https://cloud.mail.ru/public/4SzT/TVcUX7keD)
colour.docm 2010 (https://cloud.mail.ru/public/uo3K/XUCA9h38z)

[Iska]

Есть docm word 2010 c несколькими кнопками в нём(button,button2 итд). »
Для тех, кто будет смотреть — упакуйте документ в архив и приложите к сообщению.

[victor21043]

Добавлено

[Iska]

Есть код-но он не работает. »
Вот Ваш код (из файла, формат 2003):
Public Sub button_MouseMove(ByVal Button As Integer, ByVal Shift _
As Integer, ByVal X As Single, ByVal Y As Single)
'Dim ctr As Object
'For Each Button In Me.Controls
' If ctr = Button Then
Me.Button.ForeColor = RGB(180, 91, 62)
' End If
' Next Button
' Me.Button.ForeColor = vbBlack
End Sub

и он работает, цвет шрифта меняется на указанный.

[victor21043]

1)Код модуля работает-оставлен частично неработающий код,который не может привести к overflow у кого-либо.
Как при наведении на конкретную active-кнопку(имя-button) указателем оптического манипулятора("мышь") произвести смену цвета,а при отведении-базовый цвет
2)Часть кода модуля (подпрограмма) закомментирована, при дебаггинге она вызывает ошибку компиляции
(не знаю почему-подпрограмма "собрана"по образцу("Пример")

[Iska]

Оставлен частично неработающий код, »
2)Часть кода модуля (подпрограмма) закомментирована, значит при дебаггинге она вызывает ошибку компиляции
(не знаю почему »
У Вас ошибочное использование переменной «Button» (вот для чего нужен «Option Explicit»). Понимаете почему?

[victor21043]

Спасибо,
Элемент – это переменная, которая будет хранить значение при каждой итерации (переборе коллекции)
Коллекция – собственно, то, что нам надо обработать.Коллекция – по своей природе этот тот же массив, но количество элементов в нем нам неизвестно(нет счётчика). Элемент должен принадлежать коллекции.
Код переделан,но не работает

Public Sub button_MouseMove(ByVal Button As Integer, ByVal Shift _
As Integer, ByVal X As Single, ByVal Y As Single) 'button_x имя процедуры\событие
Dim ctr As Object 'элемент\переменная
'Начинаем перебор коллекции
For Each ctr In Me.CommandBars 'элемент In коллекция
If ctr = Button Then
Me.Button.ForeColor = RGB(180, 91, 62) 'оператор
Else
Me.Button.ForeColor = vbBlack 'в противном случае
End If
Next ctr
End Sub

[a_axe]

Код переделан,но не работает »
Код для изменения цвета при наведении мышки приведен в посте №4 (http://forum.oszone.net/post-2613937-4.html), его и используйте. Вопрос, как я понимаю, каким образом вернуть кнопке исходный цвет.
Подходящего события (типа указатель уходит за пределы вашей кнопки "control 2") я не увидел. Единственный (правда уж очень кривой, но уж какой есть) вариант могу предложить следующий: вставьте в документ элемент управления - рисунок, подложите его под вашу кнопку, размеры задайте чуть больше вашей кнопки чтобы рисунок образовывал некую окантовку (рамку). Событие, когда мышка находится над рисунком будет активировать код, который будет менять цвет вашей кнопки на исходный.

То есть логика следующая: когда курсор прошелся над кнопкой - активируется код из поста №4. Если курсор уйдет с кнопки, он обязательно пройдет над рамкой (рисунком) и активирует код, приведенный в конце этого поста, который перекрасит кнопку в исходный цвет.

К сожалению, ширину рамки нужно брать достаточно большую, иначе обработчик не всегда срабатывает при быстром перемещении мышки, но вы можете настроить цвет этой рамки (например - белый в цвет листа, или синий - в цвет скрываемого поля и ширину взять равной ширине поля), чтобы эта рамка не сильно бросалась в глаза.

Для этого:
во вкладке меню Word "Разработчик" (помнится по умолчанию отображение этой вкладки отключено, возможно придется включить в параметрах) предварительно отобразив ваше текстовое поле, нажмите кнопку "Режим конструктора". В этом же секторе вкладки "Разработчик" -> "Элементы управления" выбрать вставку элемента управления "Изображения" (вставится пустая рамка). Щелкнуть по рамке рисунка и выбрать "формат объекта" -> "положение" -> "За текстом". Переместить поле под кнопку, но так чтобы оно было над вашем текстовым полем (поле можно сдвинуть ниже). В режиме конструктор доступна кнопка "свойства", чтобы поменять например цвет рамки рисунка, фон и т.д. Высоту и ширину изображения подгоняете слегка побольше чем кнопка, чтобы получилась некая рамка, после чего отключаете режим конструктора.
Необходимо вставить следующий код:
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

ActiveDocument.Shapes("Control 2").OLEFormat.Object.ForeColor = vbRed
End Sub
С любопытством ознакомлюсь с любым более "правильным" вариантом по возвращению кнопке исходного цвета.

[victor21043]

Вопрос, как я понимаю, каким образом вернуть кнопке исходный цвет
Да +при отведении мышки-я думал ,что это будет очень просто реализовать!
Так переделан-упрощён-не работает.
-Dim ctr As Object почему? не др. тип данных VBA(ошибки,кроме Variant)
Object-используется только для хранения ссылок на объекты. Требуемая память: 4 байта
Данную переменную нельзя ,оказывается, глобально объявить(Public str),как другие в этом коде("перемен не объявлена")
-For Each ctr In "Me.CommandBars" Вообще не понятно ,что такое коллекция me.X?
Код
Sub button_MouseMove(ByVal Button As Integer, ByVal Shift _
As Integer, ByVal X As Single, ByVal Y As Single) 'button_x имя процедуры\событие
Dim ctr As Variant 'переменная
For ctr = 0 To 1 'счётчик step=1 по умолч
If ctr = Button Then
Me.Button.ForeColor = RGB(180, 91, 62) 'оператор
Else 'в противном случае
Me.Button2.ForeColor = vbBlack
End If
Next ctr

[a_axe]

victor21043, еще раз терпеливо вам объясняю:
1. чтобы менялся цвет при наведении на кнопку - используйте следующий код:
Public Sub button_MouseMove(ByVal Button As Integer, ByVal Shift _
As Integer, ByVal X As Single, ByVal Y As Single)
Me.Button.ForeColor = RGB(180, 91, 62)
End Sub »
2. чтобы вернуть исходный цвет кнопки, выполните шаги начиная со слов:
Для этого: »
3. Отпишитесь о выполненных шагах, если что-то не работает - приложите файл.
4.По вашему вопросу - в вашем случае этого не нужно, но если хотите почитать:
-Dim ctr As Object почему? не single,string(коллекция -массив)
-For Each ctr In Me.CommandBars Вообще не понятно для каждой переменной ,что такое коллекция me.X? »
Ключевое слово Me. (https://msdn.microsoft.com/ru-ru/library/office/gg251792.aspx)
Оператор for... each. (https://msdn.microsoft.com/ru-ru/library/office/gg264596.aspx)
тип данных object. (https://yandex.ru/yandsearch?clid=2028026&text=vba%20%D1%82%D0%B8%D0%BF%20%D0%B4%D0%B0%D0%BD%D0%BD%D1%8B%D1%85%20object&redircnt=1457701632.1)
Вообще на ресурсе много полезного, можно почитать с начала (https://msdn.microsoft.com/ru-ru/library/office/jj692818.aspx).

[Iska]

Не. Тут нужна большая хорошая книжка по VBA в целом и по каждой из объектных моделей — в частности. Каждая — страницы на 900-1500. Тогда будет толк и смысл.