Passing Excel Cell Values into DPlot

[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, 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.

[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 & "}" & """)]")