2013-12-11 5 views
1

Я хотел бы создать учебник Excel elearning (смешанное обучение) для некоторых сотрудников. Я хотел бы использовать vba/vbs для перемещения мыши по экрану и отображения их, где расположены разные команды. Я знаю, что это можно сделать, но когда вы меняете разрешение экрана, оно больше не работает. Есть ли способ сделать это независимо от разрешения экрана?Как сделать перемещение мыши в Excel независимо от разрешения экрана?

I.e .: Перемещайте мышь медленно до «Bold» -Button и щелкните по ней, независимо от того, какая вкладка в данный момент выбрана и разрешение экрана?

Спасибо за любые предложения.

+3

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

+0

Excel не предназначен для этого. Но тогда Да, можно добиться того, чего вы хотите. Однако это очень сложно и не очень практично. Во-вторых, предложение @PortlandRunner –

ответ

0
  1. Это было бы лучше всего достигается с помощью инструмента захвата экрана видео
  2. Если вы настаиваете, создать указатель-образной формы на листе и использовать какую-то версию прикрепленного кода, чтобы переместить его вокруг

    Sub MoveShape(shp As Shape, dbTop As Double, dbLeft As Double) 
    Dim dbVerticalIncrement As Double, dbHorizontalIncrement As Double 
    Dim lLoop As Long 
    Const lSteps As Long = 1000 
    
    
    dbVerticalIncrement = (dbTop - shp.Top)/lSteps 
    dbHorizontalIncrement = (dbLeft - shp.Left)/lSteps 
    
    For lLoop = 1 To lSteps 
        shp.Top = shp.Top + dbVerticalIncrement 
        shp.Left = shp.Left + dbHorizontalIncrement 
        Application.Wait (Now() + 0.0000001) 
    Next lLoop 
    
    End Sub 
    
Смежные вопросы