Passing Excel Cell Values into DPlot
Posted: Mon Jul 07, 2014 11:07 pm
Can anyone help me out?
I'm trying to pass dates stored in cells in excel into X,YLabels in DPlot.
I need some help determining the correct VBA syntax to do this?
My code is currently constructed in Excel VBA as
Dim AKDate As Date
AKDate = CDate(Range("B20").value)
Dim WMSDate As Date
WMSDate = CDate(Range("B21").value)
Dim WAEDate As Date
WAEDate = CDate(Range("B22").value)
Dim VTIDate As Date
VTIDate = CDate(Range("B23").value)
' Applying Document Control Dates
ret = DPlot_Command(doc, "[XYLabel(1380,2,0,""AK Run Date"")]")
ret = DPlot_Command(doc, "[XYLabel(1350,2,0,
AKDate)]") ' AK Run Date
ret = DPlot_Command(doc, "[XYLabel(1320,2,0,""WMS Date"")]")
ret = DPlot_Command(doc, "[XYLabel(1290,2,0,
WMSDate)]") ' WMS Date
ret = DPlot_Command(doc, "[XYLabel(1260,2,0,""WAE Date"")]")
ret = DPlot_Command(doc, "[XYLabel(1230,2,0,
WAEDate)]") ' WAE Date
ret = DPlot_Command(doc, "[XYLabel(1200,2,0,""VTI Date"")]")
ret = DPlot_Command(doc, "[XYLabel(1170,2,0,
VTIDate)]") ' VTI Date
Similarly, is there any way to force these XYLabels into DPlot with formatting applied, I need all dates to have red text.
Any help would be greatly appreciated.
Regards,
Ryan.
I'm trying to pass dates stored in cells in excel into X,YLabels in DPlot.
I need some help determining the correct VBA syntax to do this?
My code is currently constructed in Excel VBA as
Dim AKDate As Date
AKDate = CDate(Range("B20").value)
Dim WMSDate As Date
WMSDate = CDate(Range("B21").value)
Dim WAEDate As Date
WAEDate = CDate(Range("B22").value)
Dim VTIDate As Date
VTIDate = CDate(Range("B23").value)
' Applying Document Control Dates
ret = DPlot_Command(doc, "[XYLabel(1380,2,0,""AK Run Date"")]")
ret = DPlot_Command(doc, "[XYLabel(1350,2,0,

ret = DPlot_Command(doc, "[XYLabel(1320,2,0,""WMS Date"")]")
ret = DPlot_Command(doc, "[XYLabel(1290,2,0,

ret = DPlot_Command(doc, "[XYLabel(1260,2,0,""WAE Date"")]")
ret = DPlot_Command(doc, "[XYLabel(1230,2,0,

ret = DPlot_Command(doc, "[XYLabel(1200,2,0,""VTI Date"")]")
ret = DPlot_Command(doc, "[XYLabel(1170,2,0,

Similarly, is there any way to force these XYLabels into DPlot with formatting applied, I need all dates to have red text.
Any help would be greatly appreciated.
Regards,
Ryan.