Запустить программу, когда пользователь дважды щелкнет правой кнопкой мыши

Question

Я хочу, чтобы следующая программа запускалась и вставляла фигуру, когда пользователь дважды щелкает кнопку мыши. Какое событие я использую и где я должен его использовать?

Sub CurosrXY_Pixels(Sel As Word.Selection)
Dim shp As Word.Shape

Set shp = ActiveDocument.Shapes.AddShape(msoShapeRectangle, fcnXCoord(Sel), fcnYCoord(Sel), 20#, 16#, Sel.Range)
With shp.TextFrame.TextRange
    .Font.Name = "Arial"
    .Font.Size = 7
    .Font.Bold = False
    .Paragraphs.FirstLineIndent = 0
    .Paragraphs.RightIndent = -10
    .Paragraphs.LeftIndent = -10
    .Paragraphs.Alignment = wdAlignParagraphCenter
    .Text = 11
End With
shp.LockAspectRatio = msoCTrue
End Sub

Function fcnXCoord(Sel As Word.Selection) As Double
fcnXCoord = Sel.Information(wdHorizontalPositionRelativeToPage)
End Function

Function fcnYCoord(Sel As Word.Selection) As Double
fcnYCoord = Sel.Information(wdVerticalPositionRelativeToPage)
End Function

Answer 1

В заголовке вопроса указано «двойной щелчок правой кнопкой мыши». Фактический вопрос гласит «когда пользователь дважды щелкает кнопку мыши». Поэтому неясно, что вы имеете в виду, однако ...

Слово содержит нет событие для двойной щелчок вправо кнопка мыши, только для левой кнопки мыши. Это событие Word WindowBeforeDoubleClick , событие уровня приложения. Информацию о событии и пример его использования см. В документации.

Если вы не знакомы с использованием событий уровня приложения VBA, см. Документацию Использование событий с объектом приложения .

Если у вас возникли проблемы с кодом события, вы можете задать вопрос.