Comments on: Wind Direction Chart

By: Rob van Gelder

Rob van Gelder — Thu, 21 Jan 2010 02:37:00 +0000

Hi Frans.

Indeed you've found a mistake. You'll note this was a comment earlier on.
Nice site. You've got a lot of material there!

Cheers

By: Frans van Zelm

Frans van Zelm — Sat, 16 Jan 2010 23:48:00 +0000

Hi Rob,

I was pleasantly surprised by all ideas on in-cell charts. This is fun.

You'll be far beyond this topic (2005) but still ...
Shouldn't the formula in B7 read =SIN(RADIANS(B4)) and in B9 =COS(RADIANS(B4)).
In that way 0 degrees point top, 90 degrees to right etc. I wonder if I have a point here.

If you are interested: see my site, page Example Files, Excel, DiversenGrafieken.xls. On the last sheet, you'll find 'changed' versions of your great examples.
I also had a fight with the macro code of in-cell line charts. It assigns names to the lines, based on a cell address. And I tried to add more comments (in Dutch). Also funny: I found the WorksheetFunction.Max before reading all comments.

Kind regards, Frans

By: Ajith

Ajith — Wed, 17 Aug 2005 06:11:00 +0000

Jon,
Thanks for the reply. But I am using OWC copmponent to create the spread sheet and the chart. I want to combine both. Or I can insert the GIF file created from the chart into the spread sheet at runtime. Do you have any idea to do this.
Thanks
Ajith

By: Jon Peltier

Jon Peltier — Tue, 16 Aug 2005 16:38:00 +0000

Ajith -

Use Insert menu > Picture > From File to insert the GIF. If you need to automate it, turn on the macro recorder prior to inserting the picture, then edit the code as necessary.

- Jon

By: Jon Peltier

Jon Peltier — Tue, 16 Aug 2005 12:46:00 +0000

I’ve built an app which is a vector map, essentially a scatter chart with a regular array of points, where each point used a custom line segment as its marker, with an arrowhead at one end, and the length and direction of the arrow were determined by values in a table.

By: Ajith

Ajith — Tue, 16 Aug 2005 11:42:00 +0000

Hi Rob,
I am creating a chart using ChartSpaceClass.
oChartSpace.Charts[0].SeriesCollection.Add(0);
oChartSpace.Charts[0].SeriesCollection[0].SetData(OWC11.ChartDimensionsEnum.chDimCategories,Convert.ToInt32(OWC11.ChartSpecialDataSourcesEnum.chDataLiteral),names );
oChartSpace.Charts[0].SeriesCollection[0].SetData(OWC11.ChartDimensionsEnum.chDimValues,Convert.ToInt32(OWC11.ChartSpecialDataSourcesEnum.chDataLiteral),totals );
'names' and 'totals' are twa tab limited strings.
I want this chart to be showed in an excel and save in the server.
I use SpreadsheetClass to generate excel sheet. How can I link this chart to my Spreadsheet, if I am not using the data from the spread sheet to create Chart.

If I use,
oChartSpace.ExportPicture( TargetGIF + strName, "gif", 800, 600);
to save the chart as a picture, how can I irsert this GIF to my spreadsheet? Please help me.

Ajith

By: Rob van Gelder

Rob van Gelder — Tue, 16 Aug 2005 06:36:00 +0000

Murray,

Nice work.

Cheers,
Rob

By: Murray Shactman

Murray Shactman — Tue, 16 Aug 2005 05:25:00 +0000

Sub Direction()
'
'
'
Dim ang As Double
Dim length As Double
Dim centerX As Double 'the starting point x points from upper left
Dim centerY As Double 'the starting point y points from upper left
Dim y As Double
Dim x As Double
Dim rad As Double
Dim i As Integer
Dim numLines As Integer

numLines = ActiveSheet.Shapes.Count 'count number of shapes
For i = numLines To 1 Step -1
If ActiveSheet.Shapes(i).Type = 9 Then
ActiveSheet.Shapes(i).Delete 'get rid of them
End If
Next i

centerX = Range("B1").Value 'I just used empty cells
centerY = Range("B3").Value
length = Range("B5").Value 'the length of arrow line in points
ang = Range("B4").Value - 180 'so that the arrow will point toward the
'wind direction
rad = ang * Application.WorksheetFunction.Pi / 180
x = Cos(rad) * length
y = Sin(rad) * length
With ActiveSheet.Shapes.AddLine(centerX, centerY, centerX + x, centerY - y).Line
.EndArrowheadWidth = msoArrowheadWidthMedium
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadLength = msoArrowheadLengthMedium
End With
End Sub

My first time posting code. I hope I did it right.

This is only for one wind direction of course.

By: Rob van Gelder

Rob van Gelder — Tue, 16 Aug 2005 04:12:00 +0000

Murray,

You are correct. I must have been looking at a previous version.

What I settled on was =COS(B4 * PI() / 180)

Please post your code! it's great to see other examples:
When posting code in this comment box, replace:
" with "
& with &
< with <
> with >

By: Murray Shactman

Murray Shactman — Tue, 16 Aug 2005 03:49:00 +0000

What units of measurement are in cell B4 through E4?

If they are in degrees, then the formula in cell B7 should be COS(B4 * 3.1416[pi]/180).

I wrote some VBA code that would graphically indicate direction using the drawing objects (arrowhead line) on it. If you want it I'll post it.