Problem Drawing Arrows

[NewOrderFac33]

Good afternoon,

The following code, which works on my PC at work (Office 2010/Win 7) won't work on my PC at home (Office 2010/Win XP). The line draws successfully, but if any of the commented out lines are uncommented, they return the error message: "The specified value is out of range".

As I input the code manually, because I can't email code from work, I'm just wondering if anyone can see anything wrong with it. Perhaps I set a reference to something at work that I've forgotten?

Sub AA_Test()
    Set MyDocument = Worksheets("MailMe")
    With MyDocument.Shapes.AddLine(100, 100, 200, 300).Line
        '.BeginArrowheadLength = msoArrowheadShort
        '.BeginArrowheadStyle = msoArrowheadOval
        '.BeginArrowheadWidth = msoArrowheadNarrow
        '.EndArrowheadLength = msoArrowheadLong
        '.EndArrowheadStyle = msoArrowheadTriangle
        '.EndArrowheadWidth = msoArrowheadWide
    End With
End Sub
[code]

Thanks in advance for your help.

Pete

 

[shg]

Microsoft Office xx Object Library?

 

[NewOrderFac33]

Microsoft Office xx Object Library?

No, I already have that one. Not to worry, I'll just take a look on Monday when I'm back in. Funny that I can draw the line, but just not add the embellishments to it.

Have a nice weekend.

Pete

 

[NewOrderFac33]

Shg,
I checked my work PC and the references for the workbook are identical to those at home (VBA, MS Excel 14.0 Object Library, MS Office 14.0 Object Library and OLE Automation)
Just as a matter of interest, were YOU able to get my code to run? Here's the full thing:

Sub DrawLineBetweenSelectedCells()
    With Selection
        If .Count = 2 Then
            If .Areas.Count = 1 Then
                Arrow .Cells(1), .Cells(2)
            Else
                Arrow .Areas(1), .Areas(2)
            End If
        End If
    End With
End Sub


Sub DrawLineBetweenTwoCellAddresses()
    Arrow Range("A1"), Range("A10")
End Sub


Sub Arrow(rnStart As Range, rnEnd As Range)
    With ActiveSheet.Shapes.AddLine(MOC(rnStart), MOC(rnStart, True), MOC(rnEnd), MOC(rnEnd, True)).Line
        .EndArrowheadStyle = msoArrowheadTriangle 'msoArrowheadOpen
        .EndArrowheadLength = msoArrowheadLengthMedium
        .EndArrowheadWidth = msoArrowheadWidthMedium
        .ForeColor.RGB = RGB(255, 0, 0)
        .Weight = 2
        .Visible = msoTrue
    End With
End Sub
 
'Required by the Arrow procedure
Function MOC(R As Range, Optional Y As Boolean) As Long 'if y is false or omitted, the X pos is returned
    If Y Then
        MOC = R.Top + R.Height / 2
    Else
        MOC = R.Left + R.Width / 2
    End If
End Function

Cheers
Pete

 

[NewOrderFac33]

FYI I tried this code on a work colleague's PC and it works fine - looks like a reinstall of Office at home is called for!