J
jmacclure
I'm trying to create a form code that will make a chart and display i
in the form and am having some trouble with the code for creating th
chart. I am using OfficeXP.
Here is the code section that I am having problems with and the issu
written behind.
Dim myChtObj As ChartObject
Dim myNewSeries1 As Series
Dim myXValues As Range
Dim myYValues1 As Range
Dim myName1 As Range
Dim myName2 As String
Dim myChtTitle As String
Dim myAxisTitle As String
Private Sub cmdShowChart_Click()
Call GetValues 'Gets values, ranges, etc for populating th
chart
Set myChtObj = ActiveSheet.ChartObjects.Add _
(Left:=1000, Width:=528, Top:=100, Height:=282)
Set myNewSeries1 = myChtObj.Chart.SeriesCollection.NewSeries
With myNewSeries1
.Name = myName1
.Values = myYValues1
.XValues = myXValues
.Border.ColorIndex = 11
.Border.Weight = xlThin
.Border.LineStyle = xlContinuous
.MarkerBackgroundColorIndex = 11 ~Get a "Unabl
to set the MarkerBackgroundColorIndex property of the Series class
error
'.MarkerBackgroundColor = 11 ~Trie
this to see if it made a difference - no luck
.MarkerForegroundColorIndex = 11 ~Sam
type of error
.MarkerStyle = xlMarkerStyleDiamond ~Sam
type of error
.MarkerSize = 5
.Smooth = False
~Same type of error
.Shadow = False
.ApplyDataLabels xlDataLabelsShowValue
End With
With myChtObj.Chart
.ChartType = xlLineMarkers
.HasTitle = True
.ChartTitle.Characters.Text = myChtTitle
.HasLegend = False
With .Axes(xlValue, xlPrimary)
.HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text
myAxisTitle ~Object doesn't support this property or method
End With
With .Axes(xlCategory, xlPrimary)
.HasTitle = False
With .TickLabels
.Alignment = xlCenter
.Offset = 100
.ReadingOrder = xlContext
.Orientation = 45
End With
End With
With .PlotArea
.Left = 1
.Top = 24
.Width = 354
.Height = 186
End With
End With
End If
' Save chart as GIF
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
~Type Mismatch
myChtObj.Chart.Export Filename:=Fname, FilterName:="GIF"
' Load Image to Form
Image1.Picture = LoadPicture(Fname)
I would appreciate any hel
in the form and am having some trouble with the code for creating th
chart. I am using OfficeXP.
Here is the code section that I am having problems with and the issu
written behind.
Dim myChtObj As ChartObject
Dim myNewSeries1 As Series
Dim myXValues As Range
Dim myYValues1 As Range
Dim myName1 As Range
Dim myName2 As String
Dim myChtTitle As String
Dim myAxisTitle As String
Private Sub cmdShowChart_Click()
Call GetValues 'Gets values, ranges, etc for populating th
chart
Set myChtObj = ActiveSheet.ChartObjects.Add _
(Left:=1000, Width:=528, Top:=100, Height:=282)
Set myNewSeries1 = myChtObj.Chart.SeriesCollection.NewSeries
With myNewSeries1
.Name = myName1
.Values = myYValues1
.XValues = myXValues
.Border.ColorIndex = 11
.Border.Weight = xlThin
.Border.LineStyle = xlContinuous
.MarkerBackgroundColorIndex = 11 ~Get a "Unabl
to set the MarkerBackgroundColorIndex property of the Series class
error
'.MarkerBackgroundColor = 11 ~Trie
this to see if it made a difference - no luck
.MarkerForegroundColorIndex = 11 ~Sam
type of error
.MarkerStyle = xlMarkerStyleDiamond ~Sam
type of error
.MarkerSize = 5
.Smooth = False
~Same type of error
.Shadow = False
.ApplyDataLabels xlDataLabelsShowValue
End With
With myChtObj.Chart
.ChartType = xlLineMarkers
.HasTitle = True
.ChartTitle.Characters.Text = myChtTitle
.HasLegend = False
With .Axes(xlValue, xlPrimary)
.HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text
myAxisTitle ~Object doesn't support this property or method
End With
With .Axes(xlCategory, xlPrimary)
.HasTitle = False
With .TickLabels
.Alignment = xlCenter
.Offset = 100
.ReadingOrder = xlContext
.Orientation = 45
End With
End With
With .PlotArea
.Left = 1
.Top = 24
.Width = 354
.Height = 186
End With
End With
End If
' Save chart as GIF
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
~Type Mismatch
myChtObj.Chart.Export Filename:=Fname, FilterName:="GIF"
' Load Image to Form
Image1.Picture = LoadPicture(Fname)
I would appreciate any hel