Excel vba insert arrow macro

Question

Я создал макрос в excel, чтобы вставить красную стрелку с помощью команды клавиатуры. Я выяснил исследование, как заставить его остановить выбор ячейки, которая была выбрана, когда я написал макрос, но я не могу понять, как заставить его вставлять стрелку рядом с моим текущим выбором каждый раз. В настоящее время она вставляет стрелку в том же месте, что и моя оригинальная строка, когда я записал макрос. Есть ли способ обойти это?

Вот код:

Sub Red_Arrow_Insert() 

Red_Arrow_Insert Macro 
Insert Red Arrow 

Keyboard Shortcut: Ctrl+Shift+A 

    ActiveCell.Select 
    ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 264, 50.25, 353.25, 139.5 _ 
     ).Select 
     Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadOpen 
    With Selection.ShapeRange.Line 
     .Visible = msoTrue 
     .ForeColor.RGB = RGB(255, 0, 0) 
     .Transparency = 0 
    End With 
    With Selection.ShapeRange.Line 
     .Visible = msoTrue 
     .Weight = 1.5 
    End With 
    ActiveCell.Select 
End Sub 

Answer 1

Этот запрос может быть сделан с помощью Top и Left свойства ActiveCell и использовать эти числа, чтобы поместить курсор, так как Top и Left собственности измеряются против в верхнем левом углу документа и при условии, что стрелка всегда будет статической.

См переработан код ниже:

Sub Red_Arrow_Insert() 

'Red_Arrow_Insert Macro 
'Insert Red Arrow 
'Keyboard Shortcut: Ctrl Shift + A 

Dim l As Long, t As Long 

l = ActiveCell.Left 
t = ActiveCell.Top 

ActiveSheet.Shapes.AddConnector(msoConnectorStraight, t + 89.25, l + 89.25, l, t).Select 

With Selection 
    With .ShapeRange.Line 
     .EndArrowheadStyle = msoArrowheadOpen 
     .Visible = msoTrue 
     .ForeColor.RGB = RGB(255, 0, 0) 
     .Transparency = 0 
     .Weight = 1.5 
    End With 
End With 

ActiveCell.Select 'assumes you want to activate the last active cell. 

End Sub 

нотабене - Я использовал 89.25 как длину, так как это была разница в точках вашего исходного кода. При необходимости измените.