Here is a modified version of Andy Pope's Line_Direction.xls VBA
program at
http://www.andypope.info/ngs/ng10.htm
Sub pointer()
Dim angle As Integer
Dim Start As Double
Dim ArrowHead As Shape
Set ArrowHead = Sheets("data").Shapes("arrow2")
For angle = 0 To 180 Step 10
With ArrowHead
.LockAspectRatio = msoFalse
.Left = 72
.Top = 210
.Rotation = angle
.Height = 0.3 * (angle + 50)
.Width = 0.3 * (1.5 * (angle + 50))
.Copy
End With
'Sheets("chart1").SeriesCollection("track").Points (10).Paste
Start = Timer
Do While Timer < Start + 0.2
Loop
Next angle
End Sub

It works as expected, but when I uncomment the Sheets...Paste line,
I get the error message:
Method 'Height' of object 'Shape' failed.
If I comment out Height/Width, ...Paste works as expected.
How can I get Height/Width and Paste to work together?

Hi Herbert,

I can't recreate you problem so can you email your workbook and I will
have a look.

Cheers
Andy

Herbert Seidenberg wrote:
Here is a modified version of Andy Pope's Line_Direction.xls VBA
program at
http://www.andypope.info/ngs/ng10.htm
Sub pointer()
Dim angle As Integer
Dim Start As Double
Dim ArrowHead As Shape
Set ArrowHead = Sheets("data").Shapes("arrow2")
For angle = 0 To 180 Step 10
With ArrowHead
.LockAspectRatio = msoFalse
.Left = 72
.Top = 210
.Rotation = angle
.Height = 0.3 * (angle + 50)
.Width = 0.3 * (1.5 * (angle + 50))
.Copy
End With
'Sheets("chart1").SeriesCollection("track").Points (10).Paste
Start = Timer
Do While Timer < Start + 0.2
Loop
Next angle
End Sub

It works as expected, but when I uncomment the Sheets...Paste line,
I get the error message:
Method 'Height' of object 'Shape' failed.
If I comment out Height/Width, ...Paste works as expected.
How can I get Height/Width and Paste to work together?


--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info

Thanks Andy,
Copying from the chart to the point worked much better than copying
from the worksheet to the point.
Herb