> I am getting error message when I try to run it.
Which error? What's the error number AND description? What line is
highlighted?
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. -
http://PeltierTech.com
_______
"R Tanner" <(E-Mail Removed)> wrote in message
news:c7b7f827-1ae5-4a6f-9420-(E-Mail Removed)...
> Can anyone help me identify what I am doing wrong with this macro? I
> am getting error message when I try to run it. It is telling me that
> I am not completing the end if statement.
>
>
> Sub createchart()
> Dim cw As Long, rh As Long
> Dim mp(1 To 4) As Integer
>
> cw = Application.Sheets("Sheet4").Shape("Rounded Rectangle 2").Width
> rh = Application.Sheets("Sheet4").Shape("Rounded Rectangle 2").Height
> ct = Application.ActiveSheet.ChartObjects.Add(cw - 1, rh - 1, cw - 1,
> rh - 5)
> mp(1) = ActiveWorkbook.Sheets(1).Range("A22")
> mp(2) = ActiveWorkbook.Sheets(1).Range("A23")
> mp(3) = ActiveWorkbook.Sheets(1).Range("A24")
> mp(4) = ActiveWorkbook.Sheets(1).Range("A25")
>
> If ActiveWorkbook.Sheets(1).Range("A22") > 0 Then
> ct.Chart.SeriesCollection.Add _
> Source:=ActiveSheet.Range("C18" + Range("A22").Value), _
> SeriesLabels:=True
> Else
> If ActiveWorkbook.Sheets(1).Range("A23") > 0 Then
> ct.Chart.SeriesCollection.Add _
> Source:=ActiveSheet.Range("C19" + Range("A23").Value), _
> SeriesLabels:=True
> Else
> If ActiveWorkbook.Sheets(1).Range("A24") > 0 Then
> ct.Chart.SeriesCollection.Add _
> Source:=ActiveSheet.Range("C20" + Range("A24").Value), _
> SeriesLabels:=True
> Else
> If ActiveWorkbook.Sheets(1).Range("A25") > 0 Then
> ct.Chart.SeriesCollection.Add _
> Source:=ActiveSheet.Range("C21" + Range("A25").Value), _
> SeriesLabels:=True
> End If
> With ct
> .Type = xlLine
> .HasTitle = True
> .chartitle.Text = "Volumes Trends"
> .HasAxis(xlCategory, xlPrimary) = True
> .HasAxis(xlCategory, xlSecondary) = False
> .HasAxis(xlValue, xlPrimary) = False
> .HasAxis(xlValue, xlSecondary) = False
> End With
> End Sub
>
Similar Threads
