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.
Passing Excel Cell Values into DPlot
- DPlotAdmin
- Posts: 2312
- Joined: Tue Jun 24, 2003 9:34 pm
- Location: Vicksburg, Mississippi
- Contact:
Use, for example,
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,""" & AKDate & """)]")
Code: Select all
ret = DPlot_Command(doc, "[XYLabel(1350,2,0,""" & "{\c0000ff" & AKDate & "}" & """)]")
Visualize Your Data
support@dplot.com
support@dplot.com