以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图表标记错位问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192657)

--  作者:njzwm
--  发布时间:2024/7/9 20:49:00
--  图表标记错位问题
在柱状图中,如果我标记数字比较小时(<4位),标记一切正常,但是如果标记数>3位数时,图中标记的位置就发生错位,请问老师有办法解决吗,谢谢!

程序如下:

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = Forms("选号器").Controls("Chart1") \' 引用窗口中的图表
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.HeaderText = Vars("title2")
Chart.ChartType = ChartTypeEnum.Bar \'图表2类型为线形
Chart.DataSource = "图表临时数据" \'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系

For Each c As Col In Tables("图表临时数据").Cols
    If c.Name <> "标签" Then
        Series = Chart.SeriesList.Add() \'增加一个图系
        Series.Text = c.Name \'设置图系的标题
        Series.X.DataField = "标签" \'X轴绑定到产品列
        Series.Y.DataField = c.Name \'设置Y轴的绑定列
        Series.MarkShape = MarkShapeEnum.Dot
        Series.MarkSize = 3
        Chart.LegendVisible = True\'显示图列
        Chart.LegendCompass = CompassEnum.South \'图列显示在南方(底端)
        Series.DataLabelText = "{#YVAL}"
    End If
Next
Chart.AxisY.Min = 0 \'指定Y轴的最小值


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2024/7/9 21:04:00
--  
只能试试设置标识的位置,比如

        Series.DataLabelText = "{#YVAL}"
        Series.DataLabelConnected = True
        Series.DataLabelCompass = LabelCompassEnum.Radial ‘http://www.foxtable.com/webhelp/topics/0982.htm