Page 1 of 1

Passing Excel Cell Values into DPlot

Posted: Mon Jul 07, 2014 11:07 pm
by rholt
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, :arrow: AKDate)]") ' AK Run Date
ret = DPlot_Command(doc, "[XYLabel(1320,2,0,""WMS Date"")]")
ret = DPlot_Command(doc, "[XYLabel(1290,2,0, :arrow: WMSDate)]") ' WMS Date
ret = DPlot_Command(doc, "[XYLabel(1260,2,0,""WAE Date"")]")
ret = DPlot_Command(doc, "[XYLabel(1230,2,0, :arrow: WAEDate)]") ' WAE Date
ret = DPlot_Command(doc, "[XYLabel(1200,2,0,""VTI Date"")]")
ret = DPlot_Command(doc, "[XYLabel(1170,2,0, :arrow: 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.

Posted: Tue Jul 08, 2014 8:58 am
by DPlotAdmin
Use, for example,

Code: Select all

ret = DPlot_Command(doc, "[XYLabel(1350,2,0,""" & AKDate & """)]")
XYLabel text uses the same font (and color) as the numbers along the axes. To use a different color you'll need to embed it in the label, as in:

Code: Select all

ret = DPlot_Command(doc, "[XYLabel(1350,2,0,""" & "{\c0000ff" & AKDate & "}" & """)]")