[bellaelysium]

Is it possible to convert VBA to VB 2005 code?

I actually record the excel marco as I insert the chart and format it. Then taking the VBA code from there.

Now I need to create a chart in excel using VB 2005 so I was wondering if anyone could guide me on converting the code?


here's the VBA code:

Charts.Add
	ActiveChart.ChartType = xlLine
	ActiveChart.SetSourceData Source:=Sheets("Copy of 

trial").Range("A1:H23"), _
		PlotBy:=xlColumns
	ActiveChart.Location Where:=xlLocationAsNewSheet
	With ActiveChart
		.HasTitle = True
		.ChartTitle.Characters.Text = "Animal Rack Monitor"
		.Axes(xlCategory, xlPrimary).HasTitle = True
		.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = 

"Time/Date"
		.Axes(xlValue, xlPrimary).HasTitle = True
		.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = 

"Measurements"
	End With
	With ActiveChart.Axes(xlCategory)
		.HasMajorGridlines = True
		.HasMinorGridlines = True
	End With
	With ActiveChart.Axes(xlValue)
		.HasMajorGridlines = True
		.HasMinorGridlines = True
	End With
	ActiveChart.HasLegend = True
	ActiveChart.Legend.Select
	Selection.Position = xlRight
	ActiveChart.SeriesCollection(1).Select
	With Selection.Border
		.ColorIndex = 57
		.Weight = xlMedium
		.LineStyle = xlContinuous
	End With
	With Selection
		.MarkerBackgroundColorIndex = xlNone
		.MarkerForegroundColorIndex = xlNone
		.MarkerStyle = xlNone
		.Smooth = False
		.MarkerSize = 3
		.Shadow = False
	End With
	ActiveChart.SeriesCollection(1).AxisGroup = 2
	ActiveChart.SeriesCollection(4).Select
	With Selection.Border
		.ColorIndex = 57
		.Weight = xlMedium
		.LineStyle = xlContinuous
	End With
	End Sub

So far I have already done the opening of excel file and putting in Excel namespace:

		
		Dim objExcelC As Excel.Chart


		WExcel.Charts.Add()
		objExcelC = WBook.ActiveChart
		objExcelC.Activate()

		objExcelC.ChartType = Excel.XlChartType.xlLineMarkers
		objExcelC.SetSourceData(Source:=range)

		objExcelC.Name = "ARM Chart"
		objExcelC.HasTitle = True
		objExcelC.ChartTitle.Text = "Animal Rack Monitor"



	End Sub
End Class

When I tried running, the axis in opposite to what I want.
I tried ways to correct it and inserting more code (refering to VBA code) but errors occurs, like xlLines , xlColumns are not declared...etc.


I dunno how to proceed on.

HELP..guidance??!!

This post has been edited by bellaelysium: 16 June 2008 - 10:05 PM

[bellaelysium]

So far, I wrote this code:

WExcel.Charts.Add()
		objExcelC = WBook.ActiveChart
		objExcelC.Activate()
		objExcelC.ChartType = Excel.XlChartType.xlLine
		objExcelC.SetSourceData(Source:=range, PlotBy:=_
Excel.XlRowCol.xlColumns)
		objExcelC.Name = "ARM Chart"
		objExcelC.HasTitle = True
		objExcelC.ChartTitle.Text = "Animal Rack Monitor"

		With objExcelC
			xlsAxisCategory = .Axes(, Excel.XlAxisGroup.xlPrimary)
			xlsAxisCategory.Item(Excel.XlAxisType.xlCategory)._
HasTitle = True
			xlsAxisCategory.Item(Excel.XlAxisType.xlCategory)._
AxisTitle.Characters.Text = "Time/Date"
			xlsAxisCategory.Item(Excel.XlAxisType.xlCategory)._
HasMajorGridlines = True
			xlsAxisCategory.Item(Excel.XlAxisType.xlCategory)._
HasMinorGridlines = True

			xlsAxisValue = .Axes(, Excel.XlAxisGroup.xlPrimary)
			xlsAxisValue.Item(Excel.XlAxisType.xlValue)._
HasTitle = True
			xlsAxisValue.Item(Excel.XlAxisType.xlValue)._
AxisTitle.Characters.Text = "Measurements"
			xlsAxisValue.Item(Excel.XlAxisType.xlValue)._
HasMajorGridlines = True
			xlsAxisValue.Item(Excel.XlAxisType.xlValue)._
HasMinorGridlines = True


		End With

I need some guidance in adding second y-axis into the chart.


here's the VBA code where I select one data to display as second y-axis ( I recorded the Excel Macro):

ActiveChart.SeriesCollection(1).Select
	ActiveChart.SeriesCollection(1).AxisGroup = 2 

The graph and all run to what I want.

But now, I want only one series of data to be plot themselves in second y-axis instead of me selecting it.
the ideal graph I manually plot in in the attachment.


Any guidance? Thanks!

Attached File(s)

•  Copy_of_trial.zip (6.69K)
  Number of downloads: 49

[bellaelysium]

Matter resolved.

Was able to add in after figuring out.

This post has been edited by bellaelysium: 17 June 2008 - 06:57 PM

[Jayman]

Good job at arriving at a solution for your problem.