[VBA - excel] chart

[Mastrohead]

Hi to all I'm a new user.
I have a trouble, I have to create a polar chart on excel. To do this I create a VBA subroutine to simplify its creation (in my mind..). It is a very stupid operation , but probably due to my poorly experience with VBA, I'm not able tio run it!
Can any one help me?!!

hereafter the code:

Sub graph()

Dim c() As Variant
Dim s() As Variant
Dim vn, bw As Single

vn = 0.1
i = 0

Const st = 30

For bw = 0 To 360 Step st
ReDim Preserve c(0 To i)
ReDim Preserve s(0 To i)


c(i) = vn * Cos(Application.Radians(bw))
s(i) = vn * Sin(Application.Radians(bw))

i = i + 1
Next

Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries

ActiveChart.SeriesCollection(1).XValues = c
ActiveChart.SeriesCollection(1).Values = s
ActiveChart.SeriesCollection(1).Name = "=""VN=01"""

With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "titolo gr"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "xValori"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "yValori"
End With
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
End Sub

 

[VoG]

Something here may help you http://www.andypope.info/charts.htm

 

[Mastrohead]

thx VoG for your quickly response,
but I can't use that. I try to create a plane where I will plot many arrays (results of another subroutine) without use the spreadsheets cells.

Up to now, I find that if I reduce the number of the elements on the array c () - setting st=30. I can plot it. This could be acceptable to create the background of the plot, but not when I will plot the data...

Is in VBA chart some length data restriction?
Is possible to set up it?

 

[VoG]

Sorry, I had not seen your code when I posted.

 

[Mastrohead]

hurry up, Guys!
anyones have ideas to solve the matter?!

please, I've spent two days wothout results...

 

[pgc01]

Hi
Welcome to the board

Try:

Sub graph()
Dim c() As Double, s() As Double
Dim cht As Chart
Dim ser As Series
Dim vn As Double, bw As Double
Dim i As Long
 
Const st As Long = 30
ReDim c(0 To 360 \ st)
ReDim s(0 To 360 \ st)
 
vn = 0.1
i = 0
 
For bw = 0 To 360 Step st
    c(i) = vn * Cos(Application.Radians(bw))
    s(i) = vn * Sin(Application.Radians(bw))
    
    i = i + 1
Next
 
Set cht = Charts.Add

With cht
    .ChartType = xlXYScatterSmoothNoMarkers
    Set ser = .SeriesCollection.NewSeries
    
    With ser
        .XValues = c
        .Values = s
        .Name = "VN=01"
    End With
 
    .HasTitle = True
    .ChartTitle.Characters.Text = "titolo gr"
    .Axes(xlCategory, xlPrimary).HasTitle = True
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "xValori"
    .Axes(xlValue, xlPrimary).HasTitle = True
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "yValori"
 
    .HasAxis(xlCategory, xlPrimary) = True
    .HasAxis(xlValue, xlPrimary) = True
 
    .Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
    With .Axes(xlCategory)
        .HasMajorGridlines = False
        .HasMinorGridlines = False
    End With
 
    With .Axes(xlValue)
        .HasMajorGridlines = False
        .HasMinorGridlines = False
    End With
End With
End Sub

 

[tusharm]

You've already received several suggestions but *how* does your own code not work?

Hi to all I'm a new user.
I have a trouble, I have to create a polar chart on excel. To do this I create a VBA subroutine to simplify its creation (in my mind..). It is a very stupid operation , but probably due to my poorly experience with VBA, I'm not able tio run it!
Can any one help me?!!

hereafter the code:

Sub graph()

Dim c() As Variant
Dim s() As Variant
Dim vn, bw As Single

vn = 0.1
i = 0

Const st = 30

For bw = 0 To 360 Step st
ReDim Preserve c(0 To i)
ReDim Preserve s(0 To i)


c(i) = vn * Cos(Application.Radians(bw))
s(i) = vn * Sin(Application.Radians(bw))

i = i + 1
Next

Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries

ActiveChart.SeriesCollection(1).XValues = c
ActiveChart.SeriesCollection(1).Values = s
ActiveChart.SeriesCollection(1).Name = "=""VN=01"""

With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "titolo gr"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "xValori"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "yValori"
End With
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
End Sub