- 积分
- 69
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-1-17
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2013-10-25 17:50:36
|
显示全部楼层
已解决
Set ContourMap = ContourMapFrame.Overlays(1)
ContourMap.FillContours = True
ContourMap.ShowColorScale = True
Dim DiscreteColorScale As Object
Set DiscreteColorScale = ContourMap.ColorScale
With DiscreteColorScale
.Left = 2.1
.Width = 0.4
.Height = 2.5
.Top = 8.2
.LabelFont.Size = 10
'.LabelInterval = 5
.FrameLine.Style = "Invisible"
.LabelFormat.NumDigits = 2
' .LabelFormat.Type = srfLabFixed
End With |
评分
-
查看全部评分
|